Alper Nickli Üyeden Alıntı
(Mesaj 1041966612)
Öncelikle kodu defalarca denemeden paylaşım yapmıyorum. Sırf bu kodu yaparken sunucumda farklı port açıp orda denemeler yaptım sonrasında paylaşım yaptım.
Sorunun kaynağına gelirsek ben kodu denediğimde htmlfree aliası farklı bir yerde olduğundan giriş ülkelerini göstermede sıkıntı olmuyordu doğal olarak çalışıyordu.
Kodu güncelledim.
Düzenlenen ve eklenen yerleri kırmızı renk ile belirttim.
Nerden kısmını isteğe göre açıp kapatılacak şekilde ayarladım /set %:nrdn on yazılıp aktif edilebilir varsayılan olarak off. Otomatik proxy çekmede sorun vardı sorunun kaynağı ise sitenin adresi sansürlendiğinden host kısmındaki adres doğru gözükmüyor doğal olarak proxy güncellemiyor.
Kod:
on *:start:{ ykle | ykle1 | ykle2 | .connect_ aç | korumaontheircd | .proal_ | .timeral 0 18000 .proal_ }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias ykle { $iif(!$isfile(proxip.hs),.write proxip.hs) | .hmake proxip 100 | .hload proxip proxip.hs }
alias ykle1 { $iif(!$isfile(krlst.hs),.write krlst.hs) | .hmake krlst 100 | .hload krlst krlst.hs }
alias ykle2 { $iif(!$isfile(prox.hs),.write prox.hs) | .hmake prox 100 | .hload prox prox.hs }
alias korumaontheircd { .set %prox on | .set %aynidnt off | .set %:yon off | .set %:vpn off | .set %:nrdn off }
alias korumaontheircdfull { .set %prox on | .set %aynidnt on | .set %:vpn on }
alias korumaoff { .set %prox off | .set %aynidnt off | .set %:vpn off | .set %:yon off }
alias proal_ {
if $hget(Proxy) { .hfree -sw Proxy }
var %::rand $r(1,999999)
sockopen $+(alpro,%::rand)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
$+(.timer,otoproxy) 1 40 guncelpro
}
alias guncelpro { echo -sat Proxy list güncellendi toplam4 $hget(Proxy,0).data }
alias connect_ {
if ($1 = aç) debug -i on connect_
if ($1 = kapat) debug off
tokenize 32 $1-
if $1 = <- && $3 = NOTICE {
if ($9 == connecting) && ($level($13) != muafnick) && ($level($remove($token($14,2,64),$chr(41))) != muafips) {
var %:r = $r(1,999999999999), %ip2 = $remove($token($14,2,64),$chr(41))
.sockopen $+(pro,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(pro,%:r) $+($remove($token($14,2,64),$chr(41)),¿,$13)
if (%aynidnt = on) && ($13 === $right($gettok($14,1,64),-1)) { kill $13 7Nickiniz13&4Identiniz 8Aynıdır 9Değişiriniz %ver1 }
if (%prox == on) {
if $hget(proxy,%ip2) { kline $+(*@,%ip2) +0 2Sunucumuza 4Proxy/Tor/Socks/Wingate 2ile girmek yasak!! %ver1 }
elseif $hfind(prox,$13,1,W).data { kline $13 +0 8Yasaklı 7Nick 4Olarak 9Algılandınız. %ver1 }
elseif $hfind(proxip,%ip2,1,W).data { kline $+(*@,%ip2) +0 7Proxy 4Olarak 9Algılandınız. %ver1 }
elseif $hfind(krlst,$+($13,!,$remove($14,$chr(40),$chr(41))),1,W).data { kline $13 +0 7Sunucuya 4Girişiniz 9Yasaklanmıştır. 6! %ver1 }
}
}
}
}
on *:sockopen:pro*:{
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -nt $sockname $crlf
}
on *:sockread:pro*:{
if ($sockerr) { .sockclose $sockname | return }
var %:pro | sockread -f %:pro
if (IP Country: isin %:pro) && (*Turkey* iswm $token($htmlfree(%:pro),2,58)) && (%:yon == on) {
.inc %:yici
if (%:yici >= 2) { .set %:yon off | .unset %:yici }
}
if (IP Country: isin %:pro) && (*Turkey* !iswm $token($htmlfree(%:pro),2,58) ) {
if (!$ulist($token($sock($sockname).mark,2,191),muafnick,1)) {
.inc -u3 %:yd?s?
if (%:yon == on) { kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Yurtdışı 4Girişi 9Yasaktır. 6! %ver1 }
elseif (%:yd?s? >= 7) { .set %:yon on | echo -at [ Yurt Dışı Girişi ] - Yurt Dışı Girişleri Kapatıldı. }
}
}
if (ISP Provider: isin %:pro) {
var %sglyc = $token($htmlfree(%:pro),2,58)
if (Virtua isin %sglyc) { kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Proxy 4Girişi 9Yasaktır. 6! %ver1 }
elseif (%:vpn == on) {
if (Services isin %sglyc) || (Ocean isin %sglyc) || (SG.GS isin %sglyc) || (SurfEasy isin %sglyc) || (ISPPro isin %sglyc) || (WorldStream isin %sglyc) || (SoftLayer isin %sglyc) || (OVH isin %sglyc) || (Liteserver isin %sglyc) {
kline $+(*@,$token($sock($sockname).mark,1,191)) +0 7Vpn 4Kullanımı 9Yasaktır. 6! %ver1
}
}
}
if (%:yon == off) && (%:nrdn == on) {
if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
if (ISP Provider: isin %:pro) {
var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
window -e $+(@,Network,-,$token($server,2,46))
echo -t $+(@,Network,-,$token($server,2,46)) 2[ 4Giriş 2] *** Nick:4 %:n 3- IP:4 %ip 3- Ulke:4 %ülke 3- Sehir:4 %sehir 3- ISP:4 %:isp 3- Saat:4 $timestamp
.hfree -sw %:n
sockclose $sockname
}
}
}
on *:sockopen:alpro*:{
var %:proal sockwrite -n $sockname
%:proal GET / HTTP/1.1
%:proal Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:48.0) Gecko/20100101 Firefox/48.0
%:proal Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
%:proal Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
%:proal Connection: keep-alive
%:proal $crlf + $crlf
}
on *:sockread:alpro*:{
var %proal
sockread %proal
if (*timestamp-link*.html* iswm %proal) {
var %rand $rand(10,999999)
.sockopen $+(hpsproal,%rand)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
.sockmark $+(hpsproal,%rand) $token($token(%proal,3-,47),1,39)
}
}
on *:sockopen:hpsproal*:{ var %:proalhps sockwrite -n $sockname | %:proalhps GET / $+ $sock($sockname).mark HTTP/1.1 | %:proalhps Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:hpsproal*:{ var %proalhps | sockread %proalhps | if $regex(%proalhps,(\d+\.\d+\.\d+\.\d+)) { .hadd -m Proxy $regml(1) IP } }
on *:input:*:{
if $regex($1,/^[!\.]korumaon$/Si) { .korumaontheircd | echo -sat Koruma Açık }
if $regex($1,/^[!\.]korumaoff$/Si) { .korumaoff | echo -sat Koruma Kapalı }
if $regex($1,/^[!\.]korumafullon$/Si) { .korumaontheircdfull | echo -sat Koruma Full Açık }
if $regex($1,/^[!\.]pr[oO]xyn[ıiİ][cçÇ]k$/Si) {
if $regex($2,/^ekle$/Si) {
if (!$3) { .timer -h 1 500 msg # Lütfen nick belirtiniz | return }
if $hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz Nick Zaten Listede mevcut $+([,$chr(32),$hget(prox,$hfind(prox,$strip($3),1,W).data),$chr(32),]) Eslesen Veri. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m prox %n $strip($3)
.hsave -o prox prox.hs
.timer -h 1 500 msg # Proxy Listesine Eklenen Kayıt: $strip($3)
}
if $regex($2,/^s[ıiİ]l$/Si) {
if (!$3) { .timer -h 1 500 msg # $qt($nick) Lütfen Nick belirtin | return }
if !$hfind(prox,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) Proxy Nick Listesinde Bulunmamaktadır. | return }
.hdel -m prox $hfind(prox,$strip($3),1,W).data
.hsave -o prox prox.hs
.timer -h 1 500 msg # Proxy Listesinden Silinen Kayıt: $strip($3)
}
if $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(prox,0).data == 0) { .timer -h 1 500 msg # Proxy Nick Listesi bos. | return }
.timer -h 1 500 msg # -
var %:ya = 1 | while (%:ya <= $hget(prox,0).data) { .timer -h 1 500 msg # %:ya $+ ) [ $hget(prox,%:ya).data ] | inc %:ya }
.timer -h 1 500 msg # -
}
}
if $regex($1,/^[!\.]pr[oO]xy[ıiİ]p$/Si) {
if $regex($2,/^ekle$/Si) {
if (!$3) { .timer -h 1 500 msg # Lütfen IP belirtin | return }
if $hfind(proxip,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz IP Zaten Listede mevcut $+([,$chr(32),$hget(proxip,$hfind(proxip,$strip($3),1,W).data),$chr(32),]) Eslesen Veri.. | return }
var %:r = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m proxip %:r $strip($3)
.hsave -o proxip proxip.hs
.timer -h 1 500 msg # Proxy IP Listesine Eklenen Kayıt: $strip($3)
}
if $regex($2,/^s[ıiİ]l$/Si) {
if (!$3) { .timer -h 1 500 msg # Lütfen IP belirtin | return }
if !$hfind(proxip,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) Proxy IP Listesinde Bulunmamaktadır. | return }
.hdel -m proxip $hfind(proxip,$strip($3),1,W).data
.hsave -o proxip proxip.hs
.timer -h 1 500 msg # Proxy IP Listesinden Silinen Kayıt: $strip($3)
}
if $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(proxip,0).data == 0) { .timer -h 1 500 msg # Proxy IP Listesi bos. | return }
.timer -h 1 500 msg # -
var %:g = 1 | while (%:g <= $hget(proxip,0).data) { .timer -h 1 500 msg # %:g $+ ) [ $hget(proxip,%:g).data ] | inc %:g }
.timer -h 1 500 msg # -
}
}
if $regex($1,/^[!\.]m[uU]afn[ıiİ][cçÇ]k$/Si) {
if $2 == list {
.timer -h 1 500 msg $chan listeleniyor.
var %:mnck = 1, %mnc = $ulist(*,muafnick,0)
.timer -h 1 500 msg $chan - Toplam Muaf Nick Sayısı:4 %mnc
while %:mnck <= %mnc {
.timer -h 1 500 msg $chan $+(%:mnck,$chr(41)) $iif($ulist(*,muafnick,%:mnck) == $nick,$+(,$v1,),$v1)
inc %:mnck 1
}
}
if $2 == ekle {
if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek nicki yazınız | return }
if $ulist($3,muafnick,1) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return }
.auser muafnick $3-
.timer -h 1 500 msg $chan $+(",,$3,,") Muaf Nick Listesine Eklendi
}
if $2 == sil {
if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek Nicki Yazınız | return }
.ruser muafnick $3- | .timer -h 1 500 msg $chan $+(",,$3,,") Muaf nick Listesinden Silindi
}
}
if $regex($1,/^[!\.]m[uU]af[ıiİ]p$/Si) {
if $2 == list {
.timer -h 1 500 msg $chan listeleniyor.
var %:mips = 1, %mip = $ulist(*,muafips,0)
.timer -h 1 500 msg $chan - Toplam Muaf IP Sayısı:4 %mip
while %:mips <= %mip {
.timer -h 1 500 msg $chan $+(%:mips,$chr(41)) $iif($ulist(*,muafips,%:mips) == $nick,$+(,$v1,),$v1)
inc %:mips 1
}
}
if $2 == ekle {
if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen eklenecek IP - HOST yazınız | return }
if $ulist($3,muafips,1) { .timer -h 1 500 msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return }
.auser muafips $3-
.timer -h 1 500 msg $chan $+(",,$3,,") Muaf IP Listesine Eklendi
}
if $2 == sil {
if $3 == $null { .timer -h 1 500 msg $chan $+(",$nick,") Lütfen silinecek IP - HOST Yazınız | return }
.ruser muafips $3- | .timer -h 1 500 msg $chan $+(",,$3,,") Muaf IP Listesinden Silindi
}
}
if $regex($1,/^[!\.]karal[ıiİ]ste$/Si) {
if (!$2) { .timer -h 1 500 msg # Kullanımı: !karaliste ekle/sil/list | return }
if $regex($2,/^ekle$/Si) {
if (!$3) { .timer -h 1 500 msg # Lütfen FullAdres belirtiniz | return }
if $hfind(krlst,$strip($3),0,W).data { .timer -h 1 500 msg # $qt($nick) Eklemek istediğiniz Zaten KaraListede mevcut $+([,$chr(32),$hget(krlst,$hfind(krlst,$strip($3),1,W).data),$chr(32),]) Eslesen Veri. | return }
var %n1 = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m krlst %n1 $strip($3)
.hsave -o krlst krlst.hs
.timer -h 1 500 msg # KaraListeye Eklenen Kayıt: $strip($3)
}
if $regex($2,/^s[ıiİ]l$/Si) {
if (!$3) { .timer -h 1 500 msg # $qt($nick) Lütfen Nick belirtin | return }
if !$hfind(krlst,$strip($3),0,W).data { .timer -h 1 500 msg # $strip($3) KaraListede Bulunmamaktadır. | return }
.hdel -m krlst $hfind(krlst,$strip($3),1,W).data
.hsave -o krlst krlst.hs
.timer -h 1 500 msg # KaraListeden Silinen Kayıt: $strip($3)
}
if $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(krlst,0).data == 0) { .timer -h 1 500 msg # KaraListe bos. | return }
.timer -h 1 500 msg # -
var %:ya = 1 | while (%:ya <= $hget(krlst,0).data) { .timer -h 1 500 msg # %:ya $+ ) [ $hget(krlst,%:ya).data ] | inc %:ya }
.timer -h 1 500 msg # -
}
}
}
|
