[ATLAS]

****************************************
ProxyKiller v2.0 MN
Proxy tarama sockbot
Code by CoCoRiCo
Network Server Version
09/01/09
****************************************
Proxykiller v2.0 MN Edition
Proxy scanner and Client (info) sockbot
Network Server Version
Code by AtLaS
02.03.2010
****************************************
Servere giren kullanıcılarin nick: ident: ip: port: bilgileri belirtilen kanala yansıtıldı.
Botun atmış olduğu banlar açılır pencereye yansıtıldı.
Botun bulunduğu kanala erişim (Görevli) nickleri Botmaster olarak eklendi.
Not: ( Botmaster ) bölümünde ekli değilseniz. Botun bulunduğu kanala erişemezsiniz.
Botun yaptığı işlemlerin mIRC üzerinden izlenebilmesi için mIRC bot yaratıldı. (PRXBOT)
Servere giren kullanıcılar üzerinde yapılan tarama sonuçları statüse yansıtıldı.
Proxy olarak algılanan (uzaklaştırılan kullanıcılar) belirtilen kanala bilgilendirildi.
Network serverlerde Birden fazla link halinde çalışan botlardan herhangi birinin
serverden düşmesi halinde tüm botların yeniden yükleme yapılması sağlandı.
Botun girdiği her kanalda op olması eklendi.
Portlar hakkında geniş bilgi içeren bilgi.txt belgesi ana dizine eklendi.
Konfigurasyon ayarları yeniden düzenlendi. ( mIRC Bot EDİT )
Server üzerinde nick değişimleri belirtilen kanala bildirildi.
Server agresif bağlantı yoğunluğunu önleme , bot üzerinden spam ekleme , bad nick ekleme ,
nick yasaklama , yasaklanan nick bilgileri , bot üzeriden global mesaj atabilme vs. gibi
yaptırımlı birçok komutları içeren üst v. botumuz çok yakında test aşamasından sonra yayınlanacaktır.
Bot çalışır haldedir. Script1.mrc dosyasını kendinize göre editlemeniz yeterlidir.
mIRC lisansında sorun yaşayanlar /crack lisansadı şeklinde tekrar lisans oluşturabilirler.
Umarım işinize yarar.

Aşağıda bulunan 2 adet kodu mircinize entegre edebilir yada
çalışır versinonu indirme linkinden indirirebilirsiniz.
script1.MIRC

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

;BOTUN İŞLEV AÇIKLAMALARI:
/* 
## fonksiyonlar "/"Lı komutlar: ## 
a     = Sunucu yüklemesi
b     = Tümüne baglan.
c     = Tümünü sıfırla 
d     = Debug dışa aktarım 
e     = Debug yansıtılacak pencere
f     = Dil ayarları (beta da yok)
g [ + @ -] | [ < > ] 
= Konfigurasyon işlemci fonsiyonu
l g - k]
= X:line ceza fonsiyonu.
s     = Soket servis fonsiyonu
conf  = Ana ayar fonsiyonu
 
########## BOTUN YAPILANDIRMA AYARLARI ###############
*/
alias conf {
GOTO $1
:server {
;Botun gireceği serverler
return 212.101.125.4 212.101.125.5 212.101.125.6 212.101.125.7 212.101.125.8 212.101.125.9 212.101.125.10 212.101.125.11 212.101.125.12
;return 212.175.122.111
}
:server2 {
;ANA Botun gireceği server
return  212.101.125.2:6667 haoxriyaxxmydsf51
;return 212.175.122.111:6667 dfsfsfsd  
}
:botmaster {
;Bu bölüm botun bulunduğu kanala (giriş) erişim listesini belirler.
return Administrator AtLaS OxiGeN Merlyn orlando
}
:nick {
return $+(BOT_,$left($md5($ticks),$r(3,8)))
;return $+($r(a,z),$r(a,z),$left($md5($ticks),$r(3,8)))
}
:supass {
;Server Su pass şifreniz buraya
return  **!merhaba!mynet!**
}
:sfr_ {
return $left($+($r(a,z),$md5($+(,$ticks,$r(A,Z),$r(1000,90000),$date))),$r(4,13)) 
} 
:nick2 {
return PRXBOT
}
:me {
;Botun alacağı nick
return  ProxyBOT
}
:ident {
return $+($r(a,z),$r(a,z),$left($md5($ticks),$r(3,8)),@,mynet.com)
}
:usern {
;return $+(:,$read($script,3))
return Mynet Sohbet Kullanicisi
}
:user {
return Mynet Proxy BOT Controller via Proxykiller
}
:nickpass {
;Botun nick şifresi
return çokiyibirsifreooooomynetsfsdfds
}
:operpass {
;Botun gireceği oper şifresi
return AtLaS MYNET-TECH-HUB-D9MAZQ15XFRHUB-NE?
}
:umodes {
;Botun alacağı modeler.
return +s-h
}
:excempt {
;Bu bölüme izin verilen ip adresleri eklenir. Taramadan muaf tutulacak ipler.
return 95.65.169.185 212.101.125.4:9900 212.101.125.5:9900 212.101.125.6:9900 212.101.125.7:9900 212.101.125.8:9900 212.101.125.9:9900 212.101.125.10:9900 212.101.125.11:9900 212.101.125.12:9900 
}
:banreason {
;Proxy algılanan iplerin serverden atılma sebebi.
return Proxy yasaktir.
}
:sure {
;Bu bölüm botun proxy olarak algıladığı ipe ne kadar ceza uygulayacağı belirtilir.
;1D = 1gün olarak zaman zarfı.
; M minute - dk. olarak zaman zarfı.
return 1d
}
:domain {
return mynet.com
}
:controthle {
return 8
}
:prxport {
;Bu Bölüm servere giren kullanıcıların proxy olup olmadığı tespiti için taranacak portlar yazılır.
;Porların açıklamaları yukarıda #Proxy Liste# olarak belirtilmiştir.Örnek alarak port ekleyebilirsiniz.
return 53 3128 8080 80 38285 19626 14777 9050 7209 11033 3131 2713 60417 89 9706
}
:conport {
return 443
}
:ajoin {
;Botun ajoin (otomatik gireceği) kanal belirtilir.
return #Proxy-Found
}
:timeoutsec {
;Bu soketin kontrol için acık kalacagı süredir
;Bu süre içinde proxy olup olmadıgı anlasılmazsa o port iiçin kapanır
return 5
}
:dns {
;1=Open \ 0=Close
return 0
}
:spass {
;Bu bölüm serverinize girişdeki port şifresi gireceğiniz bölüm
;return myqaz1wsx4erfv1tgb41uirc4ir
return akgunk
}
:cfile {
;Bazı bilgilerin log olarak belirtileceği dosya.
return config.txt 
}
}
on *:start:{ gir_ | helpscript  }
alias gir_ {
.username $conf(user)
.emailaddr bot
.nick $conf(sfr_) | .anick $conf(sfr_) |  prxb_
}
raw *:*: {
var %nu = $numeric
if %nu == 376 || %nu == 422 { .oper $conf(operpass) }
if %nu == 381 {
.nick $conf(nick2)
.timer_np 1 3 msg NickServ identify $conf(nickpass)
.mode $me -s+BH
.join 0,
.timer_sj 1 10 sajoin $conf(bick2) $conf(ajoin)
.timer_sups 1 3 os su $conf(supass)  
}
}
alias prxb_ { .timer_prxb 1 3 sgir_ }
alias sgir_ {  
if (!$server) {
.server $conf(server2) 
}
if ($server) && ($me != $conf(nick2)) { .nick $conf(nick2) 
}
}
on ^*:snotice:*: {
if !$window(@snotice) {
window -fen @snotice verdana 9
}
if $window(@snotice) {
echo 5 @snotice $1-
}
if *k:line added* iswm $1- || *g:line added* iswm $1- || *z:line added* iswm $1- || *expiring*k:line* iswm $1- || *expiring*g:line* iswm $1- || *expiring*z:line* iswm $1- || *removed*z:line* iswm $1- || *removed*k:line* iswm $1- || *removed*g:line* iswm $1- {
window -e @Zline-KiLL
echo 5 @Zline-KiLL - $+ $time $+ - $1-
}
halt
}
on ^*:notice:*:?: {
if $nick == nickserv && *Eger 1 dakika icinde degistirmezseniz, nickiniz* iswm $1- {
.os su $conf(supass)
.timer 1 2 ns identify $conf(nickpass)
}
if $nick == nickserv {
if *sifre*kabul*edil* iswm $1- || *password*accep* iswm $1- {
sajoin $me $onf(ajoin) | os su $conf(supass)
}
}
if $nick == operserv && *Services root yetkilerine sahipsiniz* iswm $1- {
haltdef
}
}
on ^*:join:#*: {
if $nick == $me {
os raw :chanserv mode $chan +ao $me $me
}
if ($chan == #Proxy-found) {
if ($nick != $me) && (*proxy* !iswm $nick) && ($nick !isin $conf(botmaster)) {
sapart $nick #Proxy-found
}
}
}
on *:disconnect: {
gir_ | c | b | d
}

main.MRC

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

alias a {
var %a = 1
while %a <= $ini($conf(cfile),servers,0) {
%servers = $addtok(%servers,$readini($conf(cfile),servers,$+(n,%a)),32)
inc %a
}
return  %servers
unset %servers
}
alias b {
var %s = 1
while %s <= $gettok($conf(server),0,32) {
if $sock($+($conf(me),%s)).status != active {
$iif($sock($+($conf(me),%s)),.sockclose $sock($+($conf(me),%s)))
if !$sock($+($conf(me),%s),1).name {
  $+(.timer,_ct,%s) 1 $calc($conf(controthle) + %s) .sockopen $+($conf(me),%s) $replace($gettok($conf(server),%s,32),$chr(58),$chr(32))
}
}
inc %s
}
}
alias c {
sockclose $+(*,$conf(me),*)
var %i = 1
while %i <= $gettok($conf(server),0,32) {
if !$sock($+($conf(me),%i),1).name {
$+(.timer,_ctc,%i) 1 $calc($conf(controthle) + %i) .sockopen $+($conf(me),%i) $replace($gettok($conf(server),%i,32),$chr(58),$chr(32))
}
inc %i
}
.timer_c 0 10 b
}
alias d { 
if ($hget(debug,debug) == acik) { 
echo *** Debug Closed
hadd -m debug debug kapali
hsave -i debug $conf(cfile)
e -c
return
}
:b
if ($hget(debug,debug) == kapali) { 
echo *** Debug Open
hadd -m debug debug acik
hsave -i debug $conf(cfile)
return
}
if !$hget(debug,debug) {
err Debug Config line missing..! Actualy standart debug config making.
hadd -m debug debug acik
hsave -i debug $conf(cfile)
hload -i debug $conf(cfile)
goto b
return
}
if !$1 { hload -i debug $conf(cfile) }
if $1 == -i && $2 && !$3 {
if !$isalias($2) {
err Aliases function not found!, Plaease make first aliases function then use this command!.
}
if $isalias($2) {
hadd -m dalias debugal $2
err *** Debug outputing $2 function.
}
}
}
alias e { 
if $hget(debug,debug) == acik {
$iif(!$window($+(@db-,$1)),window -fen $+(@db-,$1),aline $+(@db-,$1) <-- $1- ) 
$iif($hget(dalias,debugal),$hget(dalias,debugal) $1-)
} 
if $1 == -c { close -@ }
}
alias f {
;flush alias
}
alias g {
/*
;+
if $1 == $chr(43) && $3 { 
hadd -m $2 $3- 
hsave -i $2 $conf(cfile) 
hload -i $2 $conf(cfile)
}
;-
if $1 == $chr(45) { 
hfree  $2 $3-  
hsave -i $2 $conf(cfile)
hload -i $2 $conf(cfile)
}
;@
if $1 == $chr(64) { return $hget($2,$3-) }
*/
;<
if $1 == $chr(60) { writeini $cofn(cfile) $1 $2- }
;<
if $1 == $chr(62) { return $readini($cofn(cfile),$1,$2-) }
if !$1  { hload -i c $conf(cfile) | echo *** Config file load }
;/
if $1 == $chr(47) { hadd -m m $2- }
;\  
if $1 == $chr(92) { return $hget(m,$2) }
;!
if $1 == $chr(33) { return hfree m }
}
alias l {
;ceza <1=sname> <2=time> <3=ip> <4=reason>
var %show_mode 
; echo s  $1-
;cr only 
if !%show_mode {
var %year = 525941 
var %month = 43829
var %week = 10080
var %day = 1440 
var %hour = 60
var %min = 1 
if $right($3,1) == Y && $left($2,$calc($len($2) -1)) isnum { var %exp $calc($gettok($2,1,$asc(y)) * %year) }
if $right($3,1) == A && $left($2,$calc($len($2) -1)) isnum { var %exp $calc($gettok($2,1,$asc(a)) * %month) }
if $right($3,1) == W && $left($2,$calc($len($2) -1)) isnum { var %exp $calc($gettok($2,1,$asc(w)) * %week) }
if $right($3,1) == D && $left($2,$calc($len($2) -1)) isnum { var %exp $calc($gettok($2,1,$asc(d)) * %day) }
if $right($3,1) == H && $left($2,$calc($len($2) -1)) isnum { var %exp $calc($gettok($2,1,$asc(h)) * %hour }
if $right($3,1) == M && $left($2,$calc($len($2) -1)) isnum { var %exp $calc($gettok($2,1,$asc(m)) * %min) }
if $hget(Sver,Server) == CR {
s $1 KLINE $3 $4- %exp
s $1 AKILL $3 $4- %exp
return 
}
if $hget(Sver,Server) == Unreal {
s $1 GZLINE $2-
s $1 GZLINE $2-
return  
}
else {
s $1 KLINE $3 0 $4-
}
}
}
alias s {
$iif($window(@db-,$1),echo $+(@db-,$1) ---> $1- )
if $sock($1).status == active { sockwrite -nt $1- }
}
alias err {
echo :: 4,8 DATA $1-
}
alias _ { return $eval($sockname) }
##Event
on *:START: { a | b | d }
ON *:SOCKOPEN:*: {
;echo :: $sockerr
;###System open sock
if $+(*,$conf(me),*) iswm $_ {
var %n $conf(nick)
s $_ PASS $conf(spass)
s $_ NICK %n  
g / $_ %n 
; ident "domain" "ip" :user
s $_ USER mynet "" " $+ $iif($host,$host,$ip) $+ " :Mynet Sohbet Kullanicisi
;s $_ USER $+($iif(!$gettok($conf(ident),1,$asc(@)),$conf(ident),$gettok($conf(ident),1,$asc(@))),$chr(32),",$iif(!$gettok($conf(ident),2,$asc(@)),$conf(domain),$gettok($conf(ident),2,$asc(@))),",$chr(32),",$iif(!$ip,127.0.0.1,$ip),",$chr(32),$conf(usern))
}
;##proxy sock
if *prx-* iswm $_ {
if ($sockerr) { sockclose $_ | return }
echo : 2 Proxy: $chr(32)4Port: $sock($_).port - $sock($_).ip 4Type: $sock($_).type 4N\A: $portfree($sockerr) 
if $sock($_).port isin $conf(conport) {
;normal web 
s $_ GET / HTTP/1.1
s $_ Host: $gettok($_,2,$asc(=)) $v2 $+ $str($crlf,2)
s $_ Referer: $+($conf(me),$chr(40),User:,$_,$chr(41))
s $_ User-Agent: Mozilla/4.6 [tr] $+($chr(40),Win,$os,;,$chr(32),I,$chr(41))  
;poxy connect
s $_ CONNECT $+(irc.,$conf(domain),:666,$r(0,9)) HTTP/1.0 $str($crlf,2)
s $_ $crlf
;proxy web
s $_ GET $+([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) HTTP/1.0 $str($crlf,2)
s $_ $crlf
} 
if ($portfree($sockerr)) && $sock($_).port !isin $conf(conport) {
;%D detayli - %S standart 
var %D $+($conf(BanReason),~,$gettok($sock($_).ip,1-3,$asc(.)),.,$str(*,$len($gettok($sock($_).ip,-1,46))),:,$sock($_).port)
var %Q $conf(BanReason)
s $gettok($_,1,$asc(~)) privmsg $conf(ajoin) PROXY FOUND!:  $_ @ $+(*@,$sock($_).ip) 1d %D 
l $gettok($_,1,$asc(~)) $+(*@,$sock($_).ip) $conf(sure) %D 
.sockclose $+(*,$gettok($_,2,$asc(=)),*)
}
}
}
ON *:SOCKREAD:*: {
var %s 
;##system sock
if $+(*,$conf(me),*) iswm $_ {
sockread %s
tokenize 32 %s
;##DEBUG
if $hget(debug,debug) == acik { e $_ $1- }
;echo :sil:debug: $1-
;##PING!PONG?
if $1 == PING { s $_ PONG $2- }
;##RAWs    
if $2 isnum {   
if $2 == 001 {
  ;  g / $_ $gettok($1-,-1,32)
}
if $2 == 004 {
  ;server version
  if *Unreal?.* iswm $2- { hadd -m Sver Server Unreal | return }
  if ConferenceRoom isin $2- { hadd -m Sver Server CR | return }
  else { hadd -m Sver Server diger | return }
} 
if $2 == 005 {
  s $_ OPER $conf(operpass)
  s $_ JOIN 0,
  .timer 1 2 s $_ privmsg nickserv identify $conf(nickpass)
  .timer 1 3 s $_ chghost $_ proxybot.mynet.com
  .timer 1 120 s $_ chgname $_ ProxyBOT BETA v2.0 MN Mynet
  .timer 1 5 s $_ sajoin $_ $replace($conf(ajoin),$chr(44),$chr(32))
}
if $2 == 302 {
  ;user host 
}
if $2 == 376 || $2 == 422 {
  ;end motd -  motd yok
}
if $2 == 381 {
  ;now oper
  s $_ NICK  $_
  if $hget(Sver,Server) == CR { var %sj FJOIN | .timer 1 5 s $_ UMODE +fc }
  if $hget(Sver,Server) == Unreal { 
    var %sj SAJOIN $_ 
    .timers 1 5 s $_ $conf(umodes) 
  }
  else { var %sj JOIN }
  s $_ %sj $replace($conf(ajoin),$chr(44),$chr(32))
}
if $2 == 491 || $2 == 464 {
  ;non oper
  err $_ $1-
}
if $2 == 433 {
  ;nick in use
  err $2-
} 
} ;end raw
;##SCOMMAND
if $2 == NICK {
if $remove($gettok($1,1,$asc(!)),:) == $g(\,$_) {
  ;bot nick <$me> function
  if $remove($3,:) != $g(\,$_) && $+($conf(me),*) !iswm $remove($3,:) {
    g / $_ $remove($3,:)
    if $_ != $remove($3,:) {
      s $_ NICK $_
      g / $_ $remove($3,:)
    }
    $iif($g(\,$_) != $_,$+(.timer,$_) 0 5 s $_ NICK $_)
  }
} 
; if $remove($3,:) != $g(\,$_) && $+($conf(me),*) == $remove($3,:) { err :no:19  }
else { 
  ;end more 
}
} ;#end Scommands
;##SNOTICE BÖLÜMÜ
if *Notice*--*Client*connecting*on*port* iswm $5- {
s $_ privmsg #proxy-found GRS-NICK:  $12 GRS-IDENT: $remove($gettok($13,1,64),$chr(40)) GRS-IP: $remove($gettok($13,2,64),$chr(40),$chr(41),$chr(64)) GRS-PORT: $remove($11,:)
var %ip = $remove($gettok($13,2,64),$chr(40),$chr(41),$chr(64)) 
;server ip noscan - excemp ip'ler
if !$regex($conf(server),(%pi)) && !$regex($conf(excempt),(%pi)) {
  var %pi = 1
  while (%pi <= $gettok($conf(prxport),0,32)) {
    var %ki = $gettok($conf(prxport),%pi,32) 
    var %pxn = $+($_,~prx-,%ki,=,%ip) 
    if !$sock(%pxn,1).name {
      sockopen %pxn %ip %ki
      $+(.timer,%pxn) 1 $conf(timeoutsec) .sockclose %pxn
      if $conf(dns) { .dns %ip }
    }
    inc %pi
  }
} 
if *Notice*Client*connecting* iswm $5- || *Client?exiting:* iswm $5- {
  $iif(!$window(@Giris\Cikis),window -fen @Giris\Cikis,aline @Giris\Cikis $1-)
}
if *changed*his/her*nickname* iswm $1- {
  s $_  privmsg #proxy-found NICK-U: $7-
} 
} ;#end Snotice
;##PRIVMSG 
if :
FINGER
 iswm $4- { 
s $_ NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER esChat v3.9 © 2009 $+ $chr(1) 
}
if :
VERSION
 iswm $4- {
s $_ NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION esChat v3.9 © 2009 $+ $chr(1)
} ;#end Privmsg
;##Scanner Sock
if *prx-* iswm $_ {
if $sock($_).port isin $conf(conport) {
  sockread %s
  if  *<?>* iswm %s || *-*:* iswm %s  {
    echo :REAL-SITE: %s 
    ;real web
    ; .sockclose $_
    return
  }
  if $regex(%s,.*HTTP\/1\.. 200 .*) {
    echo :PROXY-SITE: %s  
    echo : s $gettok($_,1,$asc(~)) privmsg os akill add +1d $+(*@,$sock($_).ip) $+($conf(BanReason),~,$left($sock($_).ip,-3),$str(*,$len($gettok($sock($_).ip,-1,46))),:,$sock($_).port )
  }
  if *<?>* iswm %s && $regex(%s,.*HTTP ERROR: 501 Method+NICK+.*) {
    echo :WEB-PROXY-SITE: %s  
    echo : s $gettok($_,1,$asc(~)) privmsg os akill add +1d $+(*@,$sock($_).ip) $+($conf(BanReason),~,$left($sock($_).ip,-3),$str(*,$len($gettok($sock($_).ip,-1,46))),:,$sock($_).port )
  }
  else {
    echo :--: %s 
    echo : s $gettok($_,1,$asc(~)) privmsg os akill add +1d $+(*@,$sock($_).ip) $+($conf(BanReason),~,$left($sock($_).ip,-3),$str(*,$len($gettok($sock($_).ip,-1,46))),:,$sock($_).port )
    ; return
  }
}
if $sock($_).port !isin $conf(conport) {
  sockread %s
}
if $sockerr > 0 { err $sock($_).wserr | return }
echo 4 -s :-> $sock($_).ip $sock($_).port 
.sockclose $_
}
}
}
alias tr {
var %prx $ticks 
.dns $1 
var %ip  $1 
var  %pi = 1
while (%pi <= $gettok($conf(prxport),0,32)) {
var %ki = $gettok($conf(prxport),%pi,32) 
var %pxn = $+($2,~prx-,%ki,=,$1) 
if !$sock(%pxn,1).name {
sockopen %pxn %ip %ki
$+(.timer,%pxn) 1 $conf(timeoutsec) sockclose %pxn
}
inc %pi
}
}

Ben uğraşamam hazırını indiririm diyorsanız .
Buradan full mirc halinde indirebilirsiniz. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bottan görünümler..


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.

[HeRaCLeS]

güzel çalışma paylaşım için sağol

[XcLusive]

proxy koruması arayanlar için ideal
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[CaKaBo]

Merhaba, AtLaS her zaman ki gibi yine dökdürmüşsün maşallahın var : .) Şuana kadar Piyasada bu kadar saglam bu kadar hızlı ve bir o kadarda stabil calışan bu sistemi paylaştıgın için teşekkür ederim. Başarılarının devamını dilerim. İyi çalışmalar.

[ATLAS]

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

Merhaba, AtLaS her zaman ki gibi yine dökdürmüşsün maşallahın var : .) Şuana kadar Piyasada bu kadar saglam bu kadar hızlı ve bir o kadarda stabil calışan bu sistemi paylaştıgın için teşekkür ederim. Başarılarının devamını dilerim. İyi çalışmalar.

Paylaşımın asıl yaratıcısı CoCoRiCo dur.
Ben Beta versionun dan yola çıkarak düzenlemelerde bulunup
gelişdirmeye çalışdım.
Ortaya bu şekilde bişey çıktı.
Yararlı olabildiysem ne mutlu bana..

[skywoLf]

reklamlar..

[ATLAS]

indirme linki yenilendi. indir >>> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[paLe]

link açılmıyor bi türlü.

[SeRDaR406]

Link çalışmaktadır.

[CipriX]

Sock olarak yazılabilirdi.