Kullanim : $randtok(string,ascii)
1: //echo $randtok(ali veli deli yogurt cacik,32) cacik ali veli yogurt deli
-
2: //echo $randtok(ali.veli.deli.yogurt.cacik,46) deli.yogurt.veli.cacik.ali
-
3: //echo $randtok(ali-veli-deli-yogurt-cacik,45) veli-deli-cacik-ali-yogurt
-
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias randtok {
if $chr($$2) !isin $$1 { return $false }
var %asc_ = $$2
tokenize $2 $1
var %j = 1
while ($eval($+($,%j),2)) {
var % $+ rand_ $+ $r($str(9,10),1) $v1
inc %j
}
var %m = 1
while ($var($+(%,rand_,*),%m)) {
var %b = %b $v1
inc %m
}
var %z = [ [ $ $+ sorttok(%b,32) ] ]
return $replace(%z,$chr(32),$chr(%asc_))
}