| Cevap: OPER Korumaları (Yeni koruma teknikleri)
tstandart {
var %r = $len($1-)
var %i 1
while %i <= $len($1-) {
var %r = $+(%r,$tstandart2($mid($1-,%i,1)))
inc %i
}
return %r
}
tstandart2 {
if $1 isnum { return 1 }
elseif $1 isalpha && $1 islower { return 2 }
elseif $1 isalpha && $1 isupper { return 3 }
else { return 4 }
}
Bu kodu tam olarak böyle mi calisiyo?
|