Merhaba arkadaşlar
Alience tarafından hazırlanmış bir kod vardı forumda. Ben onu pcye kayıt etmiştim. Kodu ilk gördüğümde forumda nası kullanıcağımda anlatıyordu. Bugün baktım ki forumdan o konu silinmiş. Biraz çabaladım belki kendim bulabilirim diye ama olmadı. Kodu vereyim ben umarım yardım eden biri çıkar.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias regvars {
if $1 == 6 { return 5 }
else if $1 == 21 { return 9 }
else if $1 == 2 { return 17 }
else if $1 == 14 || $1 == 19 || $1 == 30 || $1 == 37 { return 4 }
else if $1 == 1 || $1 == 11 || $1 == 16 || $1 == 31 { return 6 }
else if $1 == 25 || $1 == 29 || $1 == 35 { return 8 }
else if $1 == 9 || $1 == 24 || $1 == 26 || $1 == 27 || $1 == 32 || $1 == 36 { return 10 }
else if $1 == 0 || $1 == 10 || $1 == 15 || $1 == 20 || $1 == 23 { return 11 }
else if $1 == 3 || $1 == 4 || $1 == 7 || $1 == 22 || $1 == 33 { return 12 }
else if $1 == 5 || $1 == 12 || $1 == 13 || $1 == 17 || $1 == 18 { return 14 }
else if $1 == 8 || $1 == 28 || $1 == 34 || $1 == 38 { return 16 }
}
alias setreg {
if $len($1) >= 5 {
var %i = 4, %setreg1 = 0, %setreg2 = 0, %x = 0
while %i <= $len($1-) {
inc %setreg1 $calc($asc($mid($1,%i,1)) * $regvars(%x))
inc %setreg2 $calc($calc($asc($mid($1,$calc(%i - 1),1)) * $asc($mid($1,$calc(%i),1))) * $regvars(%x))
inc %x 1
inc %i 1
if %x > 38 {
%x = 0
}
}
return %4$s(%setreg1,-,%setreg2)
}
}
Şimdiden teşekkürler...