Я тут попробовал - у меня вот что получается...

agat 27.09.2002 16:50

Ya vospolzovalsya vashim sovetom - sdelal takoy macros

@getUniqueRND[count]
$new[^hash::create[]]
$used[^hash::sql{select code,id from cards}]

^for[x](0;$count){
$rnd[^math:random(1000000000)]
^while(def $used.[$rnd] && def $new.[$rnd]){
   ^rnd.inc[]
}
$new.[$rnd][1]
}
^new.foreach[key;value]{ 
        ^void:sql{insert into cards (code) values ('$key')}
#	^math:crypt[$key;^$apr1^$]  -> zdes ya poproboval crypt
}

i reshil poprobovat(test) crypt'it, kak vi i posovetovali. Tolko u mneya vot takoy vot crypt poluchaetsa :

$apr1$/gQoPKyB$qWpQDwEitVMoB4l6tJOK/1

$apr1$lIYa4lB6$U1Lf1kI/muHhDAN3MjD1n.

$apr1$Esa9z7fY$PAOPw41QfC.xZkpATvjcT.

$apr1$bzQX.TNE$ZWU8ONihp/3nJZM3Yu3UV/

$apr1$KR3aoU11$PRgBpD6An2MPM3YpMiAuD.

$apr1$0pmWptlh$A4Zi35HeSSncXXNnysyNF1

eto vse primeri... Kak vidite, v nachale kazhdoy stroki poyavlyaetsa $apr1$. Ya dumayu, chto on tam lishniy - mozhet gde-to oshibka? ili tak i dolzhno bit? Mozhet mne ih ^string.match[]'em pochistit?

---