[Darnasus]

Merhaba,

İntnetten çektiğim IP adreslerini portları ile birlikte alıyor. Bunları değiştirebileceğim bir remote var mı. Portları aşağıdaki gibi alıyor.

Alıntı:

Scanning: 93.90.232.113 11238 Scanning: 212.14.232.110 1080 Scanning: 196.46.189.114 1080 Scanning: 125.88.123.244 1082 Scanning: 202.197.68.201 1080 Scanning: 187.162.253.250 1080

[q0kh4n]

nasıl çektiğini görelim, sadece ipleri alırız.

[Darnasus]

q0kh4n Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

nasıl çektiğini görelim, sadece ipleri alırız.

Yurt disi kaynakli bir siteden buldugum bir kod var. Onunla cekiyorum, yukarida gösterdigim gibi listeliyor. Kod'u paylasayim?

[Aytac08]

Kodu görmeden adam sana nasil yardımcı olsun : )

[q0kh4n]

görmediğimiz bişey için ne diyebiliriz ki, müneccimmi sanıyorsunuz bizi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[Darnasus]

Alıntı:

ALIAS DEF.S { %z = $r(0,1) | if (%z) return %def.s | else return %def.s2 } alias getiphost2 { %var = /\b((? Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. ?:[a-z]+)\.)+(?:[a-z]+)[: ]\d{2,5})\b|\b((? Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. ? Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 25[0-5]|2[0-4]\d|[01]?\d?\d))\.){3}(?3)[: ]\d{2,5})\b/i if $regex(ip,$remove($1-,$chr(9)),%var) { return $replace($regml(ip,1),:,$chr(32)) } } on 1:START:scan.win alias getsource { var %i $iif([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] !iswm $1,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $1, $& %comName leech. $+ $ticks, $& %fname $qt($mircdir $+ %comName $+ .txt) .comopen %comName MSScriptControl.ScriptControl var %v = $& Set xmlhttp = CreateObject("msxml2.xmlhttp") $lf $& xmlhttp.open "GET", $qt(%i) , false $lf $& xmlhttp.send $lf $& Set fso = CreateObject("Scripting.FileSystemObject") $lf $& fso.CreateTextFile( %fname ) $lf $& Set file = fso.OpenTextFile( %fname , 8, True) $lf $& file.WriteLine(xmlhttp.responseText) $lf $& file.Close noop $com(%comName,Language,4,bstr,VBScript) $com(%comName,ExecuteStatement,1,bstr,%v) .comclose %comName return %fname :error if ($com(%comName)) .comclose %comName } alias leech { scan.win if (!%interval) %interval = 50 echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can 4 $+ $timestamp * Now leeching proxy-lists over the web, mIRC might freeze (if so use CTRL + BREAK) .s4file $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.1 1 1 .s5file %fname %interval .timerpl.2 1 2 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.3 1 3 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.4 1 4 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.5 1 5 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.6 1 6 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.7 1 7 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.8 1 8 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.9 1 9 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.10 1 10 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.11 1 11 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.12 1 12 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.13 1 13 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.14 1 14 .s5file $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.15 1 15 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.16 1 16 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.17 1 17 .s5file $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.18 1 18 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.19 1 19 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.20 1 20 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.21 1 21 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.22 1 22 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.23 1 23 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.24 1 24 .s4file $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.25 1 25 .s5file %fname %interval } alias sc5nfile { s5.scan $1- } alias sc4nfile { s4.scan $1- } alias sc4n { if (*.*.*.* iswm $1-) && ($1 != x) && ($2) { if ($read($pxy,w,* $+ $1 $+ *) != $null) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can $1 $2 Already in list, halted scan. | return } echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can Scanning: $1 $2 sockopen scan $+ $r(0,99999999999999) $1 $2 return } if ($getiphost2($1-)) { if ($read($pxy,w,* $+ $gettok($getiphost2($1-),1,32) $+ *) != $null) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can $1 $+ : %+ $2 Already in list, halted scan. | goto next } echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can Scanning: $getiphost2($1-) sockopen scan $+ $r(0,99999999999999) $getiphost2($1-) goto next } if (*.*.*.* !iswm $1-) goto next if ($read($pxy,w,* $+ $wildtok($1-,*.*.*.*,1,32) $+ *) != $null) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can $wildtok($1-,*.*.*.*,1,32) Already in list, halted scan. | goto next } :next } alias setinterval { echo -a Set interval in milliseconds to wait between each threads. echo -a To run the script without problem try an interval between 1 and 1000 use larger value if connection is slow. :restart %interval = $?="Enter interval in milliseconds, 1 to 1000 " if (!$!) || ($! >= 1000) goto restart } alias defaultset { %interval = 50 | %def.s = 184.161.67.182 | %def.s2 = 173.176.239.242 | %def.p = 6667 | %fldchan = #elite-team } alias scan.win { inc %scan.start | if (%scan.start == 1) defaultset | if (%interval == $null) setinterval | if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can) == $null) { window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can | window -e @sock4 | window -e @sock5 } } alias selectmultiplefile { set %sfiles $nopath($shortfn($msfile($mircdir,CHOSE PROXY FILES,SCAN))) | :incthat | inc %sinc | if (%sinc > %sfiles) { unset %sinc | halt } | /pxyfile $shortfn($msfile(%sinc)) %interval | goto incthat } menu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can,menubar { [-Proxy Scan-] .play central:play .Show window: scan.win | window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can Paste your proxies here .Leech Proxy Now!:leech .- .Settings ..Default Setting: defaultset ..Set interval of scan ( $+ %interval $+ ): setinterval ..Set channel to load on ( $+ %fldchan $+ ): set %fldchan $$?="enter #channel" ..Set server to scan on ( $+ %def.s $+ ): set %def.s $?=="Please enter an ip address (no hostnames)" ..Set alternate server to scan on ( $+ %def.s2 $+ ): set %def.s2 $?=="Please enter an ip address (no hostnames)" .. .- .Show good proxies: /run $pxy .Sort proxy list: /filterfile $pxy .- .Scan multiple proxy files: selectmultiplefile .- .Abort scanning: abord | /SOCKCLOSE SCAN* .Clear window: /clear .Hide window: window -h @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can .- .Proxy lists ..My-Proxy forum: run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ..Xorum: run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ..Proxy4Free: run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ..PublicProxyServers:run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ..AnonymityChecker:run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ..Proxz:run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ..MultiProxy:run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ..Samair:run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ..HighAnonimity: run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } alias pxy return ValidProxy.txt alias abord { play stop | .timerleech off | timerpl.* off } on *:INPUT:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can:{ if (/ !isin $1) && ($getiphost2($1-)) { write temp $getiphost2($1-) .timerscanfile 1 1 .pxyfile temp %interval .timerscanfileoff 1 2 .remove temp return } if (!$getiphost2($1-)) && ($wildtok($1-,*.*.*.*,1,32)) sc4n $wildtok($1-,*.*.*.*,1,32) } alias sk { write $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port set %radi $read($allpxy,w,* $+ %scan.ip $+ : $+ %scan.port $+ *) if (!%radi) write $allpxy %scan.ip $+ : $+ %scan.port } on *:sockopen:scan*:{ if ($sockerr > 0) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can 14,15 $sock($sockname).ip $sock($sockname).port Error ( $+ $sock($sockname).wsmsg $+ ) | return } if (_ !isin $sockname) { sockmark $sockname $ticks sockwrite -n $sockname CONNECT $def.s $+ : $+ %def.p HTTP/1. $+ $r(0,1) $+ $crlf sockwrite -n $sockname $crlf sockwrite -n $sockname $crlf return } } alias success { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can $1- | sk } alias allpxy return ALL.txt alias portclose { sockclose $1 } on *:SOCKREAD:scan*:{ sockread %scan if (ERROR* iswm $gettok(%scan,1,32)) { Echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can 6* $sock($sockname).ip $+ : $+ $sock($sockname).port WORKING! (but banned on %def.s $+ ) Lag: $calc($ticks - $sock($sockname).mark) ms } if (PING == $gettok(%scan,1,32)) sockwrite -n $sockname PONG $remove($gettok(%scan,2,32), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. if (HTTP/* iswm $gettok(%scan,1,32)) { if ($gettok(%scan,2,32) > 200) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can 4,5 Bad: $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $iif(Method not allowed iswm $gettok(%scan,3-,32),CoDeeN Proxy,$gettok(%scan,3-,32)) $+ ) | sockclose $sockname | return } if ($gettok(%scan,2,32) == 200) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can 3 $sock($sockname).ip $+ : $+ $sock($sockname).port is connecting... | sockwrite -n $sockname $crlf | sockwrite -n $sockname $crlf } } if (*NOTICE AUTH* iswmcs $gettok(%scan,1-3,32)) { set -u1 %readi $read($pxy,w,* $+ $sock($sockname).ip $+ *) if (%readi == $null) { success 9,3* $sock($sockname).ip $+ : $+ $sock($sockname).port WORKING! Lag: $calc($ticks - $sock($sockname).mark) ms sockrename $sockname fld $+ $sockname } sockwrite -n $sockname USER $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(0,999) "." "." : $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(0,999) sockwrite -n $sockname NICK $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(0,999) sockwrite -n $sockname JOIN %fldchan } } on 1:sockclose:scan*:echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can 4,5 $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated. alias pb return echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can alias scanfile { sc4n $iif($getiphost2($1-),$getiphost2($1-),$2) } alias pxyfile { play -a scanfile @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can $1 $2 } alias range { unset %range* set %range1 $gettok($1,1,46) set %range2 $gettok($1,2,46) set %range3 $gettok($1,3,46) .timerRANGEr -om 0 %interval next $2- privmsg %fldchan Starting at $1 on Port $2 Sv $+ $3 } menu menubar { Open Socks Scanner: scan.win } alias next { :START set %temp $r(0,999999999999) if ($sock(s $+ $2 $+ chk $+ %temp).name != $null) goto START inc %range4 sockopen s $+ $2 $+ chk $+ %temp %range1 $+ . $+ %range2 $+ . $+ %range3 $+ . $+ %range4 $1 goto next :NEXT if (%range4 >= 255) { inc %range3 | set %range4 0 } if (%range3 >= 255) { inc %range2 | set %range3 0 } if (%range2 >= 255) { unset %range* | PRIVMSG : $+ $chr(35) $+ $gettok(%def.c,1,32) Scan halted. | .timerRANGE off | halt } } on *:INPUT:@sock5:{ write temp.s5 $getiphost2($1-) .timerscans5file 1 1 .s5file temp.s5 %interval .timerscans5fileoff 1 2 .remove temp.s5 } on *:INPUT:@sock4:{ write temp.s4 $getiphost2($1-) .timerscans4file 1 1 .s4file temp.s4 %interval .timerscans4fileoff 1 2 .remove temp.s4 } alias s5.scan { if (!$1) goto END window -e @sock5 if ($read(sock5.txt,w,* $+ $gettok($1,1,58) $+ *) != $null) { echo @sock5 $gettok($1,1,58) $+ : $+ $gettok($1,2,58) Already in list. | goto END } if (*.*.*.* iswm $1) && (*.*.*.*:* !iswm $1) { if ($read(sock5.txt,w,* $+ $1 $+ *) == $null) { sockopen s5chk $+ $r(0,9999999) $1 $2 echo @sock5 Scanning: $1 $2 } } elseif (*.*.*.*:* iswm $1-) && ($read(sock5.txt,w,* $+ $getiphost2($1-) $+ *) == $null) { sockopen s5chk $+ $r(0,9999999) $getiphost2($1-) echo @sock5 Scanning: $getiphost2($1-) } :END } menu @sock5 { play central:play Show window: scan.win | window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can Paste your proxies here Leech Proxy Now!:leech - Settings .Default Setting: defaultset .Set interval of scan ( $+ %interval $+ ): setinterval .Set channel to load on ( $+ %fldchan $+ ): set %fldchan $$?="enter #channel" .Set server to scan on ( $+ %def.s $+ ): set %def.s $?=="Please enter an ip address (no hostnames)" .Set alternate server to scan on ( $+ %def.s2 $+ ): set %def.s2 $?=="Please enter an ip address (no hostnames)" - Scan SOCK5 IP range:range $?="IP: 59.90.0.0" $?="Port" 5 - Check current SOCK5 list: /run sock5.txt Sort file: /filterfile sock5.txt - Set interval of scan:setinterval Scan multiple SOCK5 files: selectmultiplefiles5 - ABORT SCANS: abord Clear: /clear } alias selectmultiplefiles5 { set %sfiles $nopath($shortfn($msfile($mircdir,CHOSE SOCK5 FILES,SCAN))) | :incthat | inc %sinc | if (%sinc > %sfiles) { unset %sinc | halt } | /s5file $shortfn($msfile(%sinc)) %interval | goto incthat } alias selectmultiplefiles4 { set %sfiles $nopath($shortfn($msfile($mircdir,CHOSE SOCK4 FILES,SCAN))) | :incthat | inc %sinc | if (%sinc > %sfiles) { unset %sinc | halt } | /s4file $shortfn($msfile(%sinc)) %interval | goto incthat } menu @sock4 { play central:play Show window: scan.win | window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can Paste your proxies here Leech Proxy Now!:leech - Settings .Default Setting: defaultset .Set interval of scan ( $+ %interval $+ ): setinterval .Set channel to load on ( $+ %fldchan $+ ): set %fldchan $$?="enter #channel" .Set server to scan on ( $+ %def.s $+ ): set %def.s $?=="Please enter an ip address (no hostnames)" .Set alternate server to scan on ( $+ %def.s2 $+ ): set %def.s2 $?=="Please enter an ip address (no hostnames)" - Scan SOCK4 IP range:range $?="IP: 59.90.0.0" $?="Port" 4 - Check current SOCK4 list: /run sock4.txt Sort list: /filterfile sock4.txt - Set interval of scan: setinterval Scan multiple SOCK4 files: selectmultiplefiles4 - ABORT SCANS: .play stop | .timerranger off | sockclose *chk* Clear: clear } alias s4.scan { if (!$1) goto END window -e @sock4 if ($read(sock4.txt,w,* $+ $gettok($1,1,58) $+ *) != $null) { echo @sock4 $gettok($1,1,58) $+ : $+ $gettok($1,2,58) Already in list | goto END } if (*.*.*.* iswm $1) && (*.*.*.*:* !iswm $1) { if ($read(sock4.txt,w,* $+ $1 $+ *) == $null) { sockopen s4chk $+ $r(0,9999999) $1 $2 echo @sock4 Scanning: $1 $2 } } elseif (*.*.*.*:* iswm $1-) && ($read(sock5.txt,w,* $+ $getiphost2($1-) $+ *) == $null) { sockopen s4chk $+ $r(0,9999999) $getiphost2($1-) echo @sock4 Scanning: $getiphost2($1-) } :END } on *:sockopen:s5chk*:{ if ($sockerr) { echo @sock5 15,14* Error $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $sock($sockname).wsmsg $+ ) | return } .bset &bvar5 1 5 1 0 .sockwrite -n $sockname &bvar5 .bunset &bvar5 return } on *:sockread:s5chk*:{ if ($sockbr) { return } .sockread &bsocks5 if ($bvar(&bsocks5,1,2) != 5 0) { echo @sock5 4,5Bad $sock($sockname).ip $+ : $+ $sock($sockname).port return $bvar(&bsocks5,2-) | return } if ($bvar(&bsocks5,1,2) == 5 0) && ($bvar(&bsocks5,3) != 0) { sockmark $sockname $ticks bset &socks5 1 5 1 0 1 $replace($def.s,.,$chr(32)) $gettok($longip(%def.p),3,46) $gettok($longip(%def.p),4,46) .sockwrite -n $sockname &socks5 .bunset &socks5 sockrename $sockname chks5 $+ $remove($sockname,s5chk) } } on 1:SOCKREAD:chks5*:{ sockread %socks5 if (*NOTICE AUTH* iswmcs $gettok(%socks5,1-3,32)) { window -e @sock5 suces5 $sock($sockname).ip $+ : $+ $sock($sockname).port Lag: $calc($ticks - $sock($sockname).mark) $+ ms sockrename $sockname fld $+ $sockname } } alias suces4 { echo @sock4 9,3* $1- | sk4 } alias suces5 { echo @sock5 9,3* $1- | sk5 } alias sk4 { set -u3 %rady $read(sock4.txt,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *) if (!%rady) write sock4.txt $sock($sockname).ip $+ : $+ $sock($sockname).port } alias sk5 { set -u3 %redy $read(sock5.txt,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *) if (!%redy) write sock5.txt $sock($sockname).ip $+ : $+ $sock($sockname).port } on *:sockopen:s4chk*:{ if ($sockerr) { echo @sock4 14,15* Error $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $sock($sockname).wsmsg $+ ) | return } sockmark $sockname $ticks .bset &bvar4 1 4 1 $gettok($longip(%def.p),3,46) $gettok($longip(%def.p),4,46) $replace($def.s,.,$chr(32)) 0 .sockwrite $sockname &bvar4 .bunset &bvar4 } ON *:SOCKREAD:s4chk*:{ if ($sockbr) { return } .sockread &bsocks4 if ($bvar(&bsocks4,2) != 90) { echo 4 @sock4 Bad $sock($sockname).ip $+ : $+ $sock($sockname).port return $bvar(&bsocks4,2-) | return } if ($bvar(&bsocks4,2) == 90) { window -e @sock4 suces4 $sock($sockname).ip $+ : $+ $sock($sockname).port $calc($ticks - $sock($sockname).mark)) $+ ms sockrename $sockname fld $+ $sockname } } on 1:SOCKCLOSE:s5*:{ echo @sock5 4,5 * $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated. | return } on 1:SOCKCLOSE:s4*:{ echo @sock4 4,5 * $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated. | return } alias scans4file { s4.scan $getiphost2($1-) } alias s4file { play -a scans4file @sock4 $1- } alias scans5file { s5.scan $getiphost2($1-) } alias s5file { play -a scans5file @sock5 $1- } alias logo return psyBNC2.3.1d on 1:SOCKREAD:fld*:{ if (!$sock($sockname).mark) || ($sock($sockname).mark == c) sockmark $sockname $ctime sockread %fld if ($gettok(%fld,1,32) == PING) { sockwrite -n $sockname PONG $remove($gettok(%fld,2,32), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. } if ($gettok(%fld,2,32) == Privmsg) && ($gettok(%fld,4,32) == :!own) { sockwrite -n $sockname NOTICE $remove($gettok($gettok(%fld,1,32),1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. : I am connecting from $sock($sockname).ip $+ : $+ $sock($sockname).port } if ($gettok(%fld,2,32) == Privmsg) && ($gettok(%fld,4,32) == :!up) { %up = $ctime - $sock($sockname).mark | sockwrite -n $sockname NOTICE $remove($gettok($gettok(%fld,1,32),1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. : Uptime:  $+ $duration($calc(%up)) $+  } if ($gettok(%fld,2,32) == Privmsg) && ($gettok(%fld,4,32) == :!kill) { sockwrite -n $sockname QUIT : $+ $gettok(%fld,5,32) } if (*NOTICE AUTH* iswm $gettok(%fld,1-3,32)) || (451 == $gettok(%fld,2,32)) || (43* iswm $gettok(%fld,2,32)) { sockmark $sockname $ctime .timerNICK $+ $sockname 1 1 sockwrite -n $sockname NICK $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(0,9) .timerUSR $+ $sockname 1 1 sockwrite -n $sockname USER $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(0,9) "." "." : $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(0,9) .timerJOIN $+ $sockname 1 2 $iif(%fldchan != $null,sockwrite -n $sockname JOIN %fldchan) } }

Yahu anlasamadik neyse, kod bu

[Darnasus]

Alıntı:

ALIAS DEF.S { %z = $r(0,1) | if (%z) return %def.s | else return %def.s2 } alias getiphost2 { %var = /\b((? Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. ?:[a-z]+)\.)+(?:[a-z]+)[: ]\d{2,5})\b|\b((? Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. ? Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 25[0-5]|2[0-4]\d|[01]?\d?\d))\.){3}(?3)[: ]\d{2,5})\b/i if $regex(ip,$remove($1-,$chr(9)),%var) { return $replace($regml(ip,1),:,$chr(32)) } } on 1:START:scan.win alias getsource { var %i $iif([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] !iswm $1,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $1, $& %comName leech. $+ $ticks, $& %fname $qt($mircdir $+ %comName $+ .txt) .comopen %comName MSScriptControl.ScriptControl var %v = $& Set xmlhttp = CreateObject("msxml2.xmlhttp") $lf $& xmlhttp.open "GET", $qt(%i) , false $lf $& xmlhttp.send $lf $& Set fso = CreateObject("Scripting.FileSystemObject") $lf $& fso.CreateTextFile( %fname ) $lf $& Set file = fso.OpenTextFile( %fname , 8, True) $lf $& file.WriteLine(xmlhttp.responseText) $lf $& file.Close noop $com(%comName,Language,4,bstr,VBScript) $com(%comName,ExecuteStatement,1,bstr,%v) .comclose %comName return %fname :error if ($com(%comName)) .comclose %comName } alias leech { scan.win if (!%interval) %interval = 50 echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can 4 $+ $timestamp * Now leeching proxy-lists over the web, mIRC might freeze (if so use CTRL + BREAK) .s4file $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.1 1 1 .s5file %fname %interval .timerpl.2 1 2 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.3 1 3 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.4 1 4 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.5 1 5 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.6 1 6 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.7 1 7 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.8 1 8 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.9 1 9 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.10 1 10 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.11 1 11 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.12 1 12 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.13 1 13 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.14 1 14 .s5file $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.15 1 15 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.16 1 16 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.17 1 17 .s5file $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.18 1 18 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.19 1 19 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.20 1 20 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.21 1 21 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.22 1 22 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.23 1 23 .pxyfile $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.24 1 24 .s4file $getsource([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) %interval .timerpl.25 1 25 .s5file %fname %interval } alias sc5nfile { s5.scan $1- } alias sc4nfile { s4.scan $1- } alias sc4n { if (*.*.*.* iswm $1-) && ($1 != x) && ($2) { if ($read($pxy,w,* $+ $1 $+ *) != $null) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can $1 $2 Already in list, halted scan. | return } echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can Scanning: $1 $2 sockopen scan $+ $r(0,99999999999999) $1 $2 return } if ($getiphost2($1-)) { if ($read($pxy,w,* $+ $gettok($getiphost2($1-),1,32) $+ *) != $null) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can $1 $+ : %+ $2 Already in list, halted scan. | goto next } echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can Scanning: $getiphost2($1-) sockopen scan $+ $r(0,99999999999999) $getiphost2($1-) goto next } if (*.*.*.* !iswm $1-) goto next if ($read($pxy,w,* $+ $wildtok($1-,*.*.*.*,1,32) $+ *) != $null) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can $wildtok($1-,*.*.*.*,1,32) Already in list, halted scan. | goto next } :next } alias setinterval { echo -a Set interval in milliseconds to wait between each threads. echo -a To run the script without problem try an interval between 1 and 1000 use larger value if connection is slow. :restart %interval = $?="Enter interval in milliseconds, 1 to 1000 " if (!$!) || ($! >= 1000) goto restart } alias defaultset { %interval = 50 | %def.s = 184.161.67.182 | %def.s2 = 173.176.239.242 | %def.p = 6667 | %fldchan = #elite-team } alias scan.win { inc %scan.start | if (%scan.start == 1) defaultset | if (%interval == $null) setinterval | if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can) == $null) { window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can | window -e @sock4 | window -e @sock5 } } alias selectmultiplefile { set %sfiles $nopath($shortfn($msfile($mircdir,CHOSE PROXY FILES,SCAN))) | :incthat | inc %sinc | if (%sinc > %sfiles) { unset %sinc | halt } | /pxyfile $shortfn($msfile(%sinc)) %interval | goto incthat } menu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can,menubar { [-Proxy Scan-] .play central:play .Show window: scan.win | window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can Paste your proxies here .Leech Proxy Now!:leech .- .Settings ..Default Setting: defaultset ..Set interval of scan ( $+ %interval $+ ): setinterval ..Set channel to load on ( $+ %fldchan $+ ): set %fldchan $$?="enter #channel" ..Set server to scan on ( $+ %def.s $+ ): set %def.s $?=="Please enter an ip address (no hostnames)" ..Set alternate server to scan on ( $+ %def.s2 $+ ): set %def.s2 $?=="Please enter an ip address (no hostnames)" .. .- .Show good proxies: /run $pxy .Sort proxy list: /filterfile $pxy .- .Scan multiple proxy files: selectmultiplefile .- .Abort scanning: abord | /SOCKCLOSE SCAN* .Clear window: /clear .Hide window: window -h @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can .- .Proxy lists ..My-Proxy forum: run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ..Xorum: run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ..Proxy4Free: run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ..PublicProxyServers:run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ..AnonymityChecker:run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ..Proxz:run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ..MultiProxy:run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ..Samair:run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ..HighAnonimity: run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } alias pxy return ValidProxy.txt alias abord { play stop | .timerleech off | timerpl.* off } on *:INPUT:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can:{ if (/ !isin $1) && ($getiphost2($1-)) { write temp $getiphost2($1-) .timerscanfile 1 1 .pxyfile temp %interval .timerscanfileoff 1 2 .remove temp return } if (!$getiphost2($1-)) && ($wildtok($1-,*.*.*.*,1,32)) sc4n $wildtok($1-,*.*.*.*,1,32) } alias sk { write $pxy $sock($sockname).ip $+ : $+ $sock($sockname).port set %radi $read($allpxy,w,* $+ %scan.ip $+ : $+ %scan.port $+ *) if (!%radi) write $allpxy %scan.ip $+ : $+ %scan.port } on *:sockopen:scan*:{ if ($sockerr > 0) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can 14,15 $sock($sockname).ip $sock($sockname).port Error ( $+ $sock($sockname).wsmsg $+ ) | return } if (_ !isin $sockname) { sockmark $sockname $ticks sockwrite -n $sockname CONNECT $def.s $+ : $+ %def.p HTTP/1. $+ $r(0,1) $+ $crlf sockwrite -n $sockname $crlf sockwrite -n $sockname $crlf return } } alias success { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can $1- | sk } alias allpxy return ALL.txt alias portclose { sockclose $1 } on *:SOCKREAD:scan*:{ sockread %scan if (ERROR* iswm $gettok(%scan,1,32)) { Echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can 6* $sock($sockname).ip $+ : $+ $sock($sockname).port WORKING! (but banned on %def.s $+ ) Lag: $calc($ticks - $sock($sockname).mark) ms } if (PING == $gettok(%scan,1,32)) sockwrite -n $sockname PONG $remove($gettok(%scan,2,32), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. if (HTTP/* iswm $gettok(%scan,1,32)) { if ($gettok(%scan,2,32) > 200) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can 4,5 Bad: $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $iif(Method not allowed iswm $gettok(%scan,3-,32),CoDeeN Proxy,$gettok(%scan,3-,32)) $+ ) | sockclose $sockname | return } if ($gettok(%scan,2,32) == 200) { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can 3 $sock($sockname).ip $+ : $+ $sock($sockname).port is connecting... | sockwrite -n $sockname $crlf | sockwrite -n $sockname $crlf } } if (*NOTICE AUTH* iswmcs $gettok(%scan,1-3,32)) { set -u1 %readi $read($pxy,w,* $+ $sock($sockname).ip $+ *) if (%readi == $null) { success 9,3* $sock($sockname).ip $+ : $+ $sock($sockname).port WORKING! Lag: $calc($ticks - $sock($sockname).mark) ms sockrename $sockname fld $+ $sockname } sockwrite -n $sockname USER $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(0,999) "." "." : $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(0,999) sockwrite -n $sockname NICK $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(0,999) sockwrite -n $sockname JOIN %fldchan } } on 1:sockclose:scan*:echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can 4,5 $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated. alias pb return echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can alias scanfile { sc4n $iif($getiphost2($1-),$getiphost2($1-),$2) } alias pxyfile { play -a scanfile @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can $1 $2 } alias range { unset %range* set %range1 $gettok($1,1,46) set %range2 $gettok($1,2,46) set %range3 $gettok($1,3,46) .timerRANGEr -om 0 %interval next $2- privmsg %fldchan Starting at $1 on Port $2 Sv $+ $3 } menu menubar { Open Socks Scanner: scan.win } alias next { :START set %temp $r(0,999999999999) if ($sock(s $+ $2 $+ chk $+ %temp).name != $null) goto START inc %range4 sockopen s $+ $2 $+ chk $+ %temp %range1 $+ . $+ %range2 $+ . $+ %range3 $+ . $+ %range4 $1 goto next :NEXT if (%range4 >= 255) { inc %range3 | set %range4 0 } if (%range3 >= 255) { inc %range2 | set %range3 0 } if (%range2 >= 255) { unset %range* | PRIVMSG : $+ $chr(35) $+ $gettok(%def.c,1,32) Scan halted. | .timerRANGE off | halt } } on *:INPUT:@sock5:{ write temp.s5 $getiphost2($1-) .timerscans5file 1 1 .s5file temp.s5 %interval .timerscans5fileoff 1 2 .remove temp.s5 } on *:INPUT:@sock4:{ write temp.s4 $getiphost2($1-) .timerscans4file 1 1 .s4file temp.s4 %interval .timerscans4fileoff 1 2 .remove temp.s4 } alias s5.scan { if (!$1) goto END window -e @sock5 if ($read(sock5.txt,w,* $+ $gettok($1,1,58) $+ *) != $null) { echo @sock5 $gettok($1,1,58) $+ : $+ $gettok($1,2,58) Already in list. | goto END } if (*.*.*.* iswm $1) && (*.*.*.*:* !iswm $1) { if ($read(sock5.txt,w,* $+ $1 $+ *) == $null) { sockopen s5chk $+ $r(0,9999999) $1 $2 echo @sock5 Scanning: $1 $2 } } elseif (*.*.*.*:* iswm $1-) && ($read(sock5.txt,w,* $+ $getiphost2($1-) $+ *) == $null) { sockopen s5chk $+ $r(0,9999999) $getiphost2($1-) echo @sock5 Scanning: $getiphost2($1-) } :END } menu @sock5 { play central:play Show window: scan.win | window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can Paste your proxies here Leech Proxy Now!:leech - Settings .Default Setting: defaultset .Set interval of scan ( $+ %interval $+ ): setinterval .Set channel to load on ( $+ %fldchan $+ ): set %fldchan $$?="enter #channel" .Set server to scan on ( $+ %def.s $+ ): set %def.s $?=="Please enter an ip address (no hostnames)" .Set alternate server to scan on ( $+ %def.s2 $+ ): set %def.s2 $?=="Please enter an ip address (no hostnames)" - Scan SOCK5 IP range:range $?="IP: 59.90.0.0" $?="Port" 5 - Check current SOCK5 list: /run sock5.txt Sort file: /filterfile sock5.txt - Set interval of scan:setinterval Scan multiple SOCK5 files: selectmultiplefiles5 - ABORT SCANS: abord Clear: /clear } alias selectmultiplefiles5 { set %sfiles $nopath($shortfn($msfile($mircdir,CHOSE SOCK5 FILES,SCAN))) | :incthat | inc %sinc | if (%sinc > %sfiles) { unset %sinc | halt } | /s5file $shortfn($msfile(%sinc)) %interval | goto incthat } alias selectmultiplefiles4 { set %sfiles $nopath($shortfn($msfile($mircdir,CHOSE SOCK4 FILES,SCAN))) | :incthat | inc %sinc | if (%sinc > %sfiles) { unset %sinc | halt } | /s4file $shortfn($msfile(%sinc)) %interval | goto incthat } menu @sock4 { play central:play Show window: scan.win | window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can Paste your proxies here Leech Proxy Now!:leech - Settings .Default Setting: defaultset .Set interval of scan ( $+ %interval $+ ): setinterval .Set channel to load on ( $+ %fldchan $+ ): set %fldchan $$?="enter #channel" .Set server to scan on ( $+ %def.s $+ ): set %def.s $?=="Please enter an ip address (no hostnames)" .Set alternate server to scan on ( $+ %def.s2 $+ ): set %def.s2 $?=="Please enter an ip address (no hostnames)" - Scan SOCK4 IP range:range $?="IP: 59.90.0.0" $?="Port" 4 - Check current SOCK4 list: /run sock4.txt Sort list: /filterfile sock4.txt - Set interval of scan: setinterval Scan multiple SOCK4 files: selectmultiplefiles4 - ABORT SCANS: .play stop | .timerranger off | sockclose *chk* Clear: clear } alias s4.scan { if (!$1) goto END window -e @sock4 if ($read(sock4.txt,w,* $+ $gettok($1,1,58) $+ *) != $null) { echo @sock4 $gettok($1,1,58) $+ : $+ $gettok($1,2,58) Already in list | goto END } if (*.*.*.* iswm $1) && (*.*.*.*:* !iswm $1) { if ($read(sock4.txt,w,* $+ $1 $+ *) == $null) { sockopen s4chk $+ $r(0,9999999) $1 $2 echo @sock4 Scanning: $1 $2 } } elseif (*.*.*.*:* iswm $1-) && ($read(sock5.txt,w,* $+ $getiphost2($1-) $+ *) == $null) { sockopen s4chk $+ $r(0,9999999) $getiphost2($1-) echo @sock4 Scanning: $getiphost2($1-) } :END } on *:sockopen:s5chk*:{ if ($sockerr) { echo @sock5 15,14* Error $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $sock($sockname).wsmsg $+ ) | return } .bset &bvar5 1 5 1 0 .sockwrite -n $sockname &bvar5 .bunset &bvar5 return } on *:sockread:s5chk*:{ if ($sockbr) { return } .sockread &bsocks5 if ($bvar(&bsocks5,1,2) != 5 0) { echo @sock5 4,5Bad $sock($sockname).ip $+ : $+ $sock($sockname).port return $bvar(&bsocks5,2-) | return } if ($bvar(&bsocks5,1,2) == 5 0) && ($bvar(&bsocks5,3) != 0) { sockmark $sockname $ticks bset &socks5 1 5 1 0 1 $replace($def.s,.,$chr(32)) $gettok($longip(%def.p),3,46) $gettok($longip(%def.p),4,46) .sockwrite -n $sockname &socks5 .bunset &socks5 sockrename $sockname chks5 $+ $remove($sockname,s5chk) } } on 1:SOCKREAD:chks5*:{ sockread %socks5 if (*NOTICE AUTH* iswmcs $gettok(%socks5,1-3,32)) { window -e @sock5 suces5 $sock($sockname).ip $+ : $+ $sock($sockname).port Lag: $calc($ticks - $sock($sockname).mark) $+ ms sockrename $sockname fld $+ $sockname } } alias suces4 { echo @sock4 9,3* $1- | sk4 } alias suces5 { echo @sock5 9,3* $1- | sk5 } alias sk4 { set -u3 %rady $read(sock4.txt,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *) if (!%rady) write sock4.txt $sock($sockname).ip $+ : $+ $sock($sockname).port } alias sk5 { set -u3 %redy $read(sock5.txt,w,* $+ $sock($sockname).ip $+ : $+ $sock($sockname).port $+ *) if (!%redy) write sock5.txt $sock($sockname).ip $+ : $+ $sock($sockname).port } on *:sockopen:s4chk*:{ if ($sockerr) { echo @sock4 14,15* Error $sock($sockname).ip $+ : $+ $sock($sockname).port ( $+ $sock($sockname).wsmsg $+ ) | return } sockmark $sockname $ticks .bset &bvar4 1 4 1 $gettok($longip(%def.p),3,46) $gettok($longip(%def.p),4,46) $replace($def.s,.,$chr(32)) 0 .sockwrite $sockname &bvar4 .bunset &bvar4 } ON *:SOCKREAD:s4chk*:{ if ($sockbr) { return } .sockread &bsocks4 if ($bvar(&bsocks4,2) != 90) { echo 4 @sock4 Bad $sock($sockname).ip $+ : $+ $sock($sockname).port return $bvar(&bsocks4,2-) | return } if ($bvar(&bsocks4,2) == 90) { window -e @sock4 suces4 $sock($sockname).ip $+ : $+ $sock($sockname).port $calc($ticks - $sock($sockname).mark)) $+ ms sockrename $sockname fld $+ $sockname } } on 1:SOCKCLOSE:s5*:{ echo @sock5 4,5 * $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated. | return } on 1:SOCKCLOSE:s4*:{ echo @sock4 4,5 * $sock($sockname).ip $+ : $+ $sock($sockname).port Connection Terminated. | return } alias scans4file { s4.scan $getiphost2($1-) } alias s4file { play -a scans4file @sock4 $1- } alias scans5file { s5.scan $getiphost2($1-) } alias s5file { play -a scans5file @sock5 $1- } alias logo return psyBNC2.3.1d on 1:SOCKREAD:fld*:{ if (!$sock($sockname).mark) || ($sock($sockname).mark == c) sockmark $sockname $ctime sockread %fld if ($gettok(%fld,1,32) == PING) { sockwrite -n $sockname PONG $remove($gettok(%fld,2,32), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. } if ($gettok(%fld,2,32) == Privmsg) && ($gettok(%fld,4,32) == :!own) { sockwrite -n $sockname NOTICE $remove($gettok($gettok(%fld,1,32),1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. : I am connecting from $sock($sockname).ip $+ : $+ $sock($sockname).port } if ($gettok(%fld,2,32) == Privmsg) && ($gettok(%fld,4,32) == :!up) { %up = $ctime - $sock($sockname).mark | sockwrite -n $sockname NOTICE $remove($gettok($gettok(%fld,1,32),1,33), Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. : Uptime:  $+ $duration($calc(%up)) $+  } if ($gettok(%fld,2,32) == Privmsg) && ($gettok(%fld,4,32) == :!kill) { sockwrite -n $sockname QUIT : $+ $gettok(%fld,5,32) } if (*NOTICE AUTH* iswm $gettok(%fld,1-3,32)) || (451 == $gettok(%fld,2,32)) || (43* iswm $gettok(%fld,2,32)) { sockmark $sockname $ctime .timerNICK $+ $sockname 1 1 sockwrite -n $sockname NICK $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(0,9) .timerUSR $+ $sockname 1 1 sockwrite -n $sockname USER $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(0,9) "." "." : $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(0,9) $+ $r(0,9) .timerJOIN $+ $sockname 1 2 $iif(%fldchan != $null,sockwrite -n $sockname JOIN %fldchan) } }

Yahu anlasamadik neyse, kod bu

[q0kh4n]

şu satırı

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can Scanning: $1 $2

şöyle değişirmisin

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can $1

[Darnasus]

q0kh4n Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

şu satırı Kod:   Kodu kopyalamak için üzerine çift tıklayın! echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can Scanning: $1 $2 şöyle değişirmisin Kod:   Kodu kopyalamak için üzerine çift tıklayın! echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]can $1

Eyvallah @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]