[manikdepresif]

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_))
}