| c00 | 30 Ağustos 2014 20:59 |
Addon Yardım ?
Kod:
raw 340:*:pscan $gettok($2,2,64) | halt
alias pscan {
if $1 == $null halt
var %ip $1
var %pline $lines($mircdirports.txt)
var %z 1
while (%z <= %pline) {
if ($read($mircdirports.txt,%z) == $null) { return }
sockopen port $+ $rand(111,999) $+ $rand(111,999) $+ $rand(111,999) %ip $read($mircdirports.txt,%z)
inc %z
}
}
on *:sockopen:port*:{
if ($sockerr < 1) siktiret $sock($sockname,1).ip $sock($sockname,1).port
sockclose $sockname
}
alias siktiret {
set %i 0
:checking
inc %i 1
set %portfound $read -l $+ %i $mircdirports.txt
if (%portfound == $null) { .unset %i | goto end }
else {
if (%portfound isin $2) { goto offense }
else { goto checking }
}
:offense
gzline *@ $+ $1 +0 %proxymesaji
;os akill add +0 *@ $+ $1 Sunucumuza Proxy Girişi Yasaklanmıştır Lütfen Normal ISS ile Bağlanmayı Deneyiniz.
write $mircdirproxylistesi.txt $1 $+ : $+ $2
if ($window(@UyarI) == $null) { window -ne @UyarI }
echo 12 -t @UyarI $1-
:end
}
alias dpscan {
if (!$dialog(dpscan)) dialog -m dpscan dpscan
else dialog -v dpscan
}
dialog dpscan {
title "Proxy Tarayıcı"
size -1 -1 124 108
option dbu
box "Portlar", 2, 5 5 114 98
button "Ekle", 3, 75 19 37 12
combo 1, 9 16 60 60, size
button "Sil", 4, 75 39 37 12
text "ZLine Mesajı:", 5, 9 78 47 8
button "Tamam", 6, 75 59 37 12
edit "", 7, 9 88 103 10
}
on 1:dialog:dpscan:*:*:{
if $devent == init {
idset 20
loadbuf -o $dname 1 ports.txt
did -a $dname 7 %proxymesaji
}
if $devent == sclick {
if $did == 3 {
write ports.txt $did(1).text
did -r $dname 1
loadbuf -o $dname 1 ports.txt
}
if $did == 4 {
write -ds $+ $did(1).text ports.txt
did -r $dname 1
loadbuf -o $dname 1 ports.txt
}
if $did == 6 dx
}
if $devent == edit {
if $did == 7 { set %proxymesaji $did(7).text }
}
}
Dialog actıgımda böle ıuarı verior.
IDSET 2Geçersiz Bir Komut!
Tamam tusuna bastıgımda böle uyarı veriyor.
DX 2Geçersiz Bir Komut! | 