mirc Giriş Kodu

raw 006:*: {
if 4 isin $remove($2-,$chr(3)) {
inc %t
var %m $replace($2-,$chr(35),J), %nz /4(J{1,9}) $+ $chr(3) $+ /ig
var %p $regsubex(%m,%nz,\1)
tokenize 44 %p
set %ilkn $+(%ilkn,$len($strip($gettok($2,2,3))))
set %ortan $+(%ortan,$len($strip($gettok($3,2,3))))
set %sonn $+(%sonn,$len($strip($gettok($4,2,3))))
if %t == 7 {
giris $replace($+(%ilkn,%ortan,%sonn),9777779,0,891077710,1,97456810,2,1044104410,3,1010555105,4,101010103
310,5,9101010779,6,10456789,7,9779779,8,9779449,9)
unset %t %ilkn %ortan %sonn
}
}
}

Leave a Reply

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir