| CoCoRiCo | 10 Eylül 2015 17:49 |
random nick - text üretici V2
başlıktan da anlaşılacağı gibi daha önce benzerini vermiştim bu versiyon biraz daha gelişmişi..
lorem ipsumu bilmeyen yoktur bu da ona benzer metinler üretebiliyor.
eskisine göre değişiklikler var.. daha fazla akılcı kelimeler üretiyor mantıksal sınama ile tespip etilmesi imkansız kelimelerle sonsuz vasyasyon üretmek mümkün..
ne amaçla kullanacağınız önemli degil.. eğlenin yeter :)
hata varsa düzeltin beni uğraştırmayın bu ihtiyar halimle kod yazıyorum
zaten faslasını beklemeyin o kadar :D
işte kod.
kullanımı : /regdom Kod:
alias regword { noop $regex($prop,/(\d+$)) | var %i-l $regml(1) | while %i-l { var %imp $addtok(%imp,$regdom($1,$2).w,32) | dec %i-l } | return %imp }
alias regdom {
if !$isid {
var %e- echo 5
%e- *** Kullanim:
%e- *** $!regdom(N,N).w N<N 1-10 1 ile 10 karakter arası rastgele kelime
%e- : $!regdom(3,10).w $!regdom(3,10)
%e- :*** Anahtar Sonuc:
%e- : W DUKEPOGEH
%e- : w dukepogeh
%e- : WR Karmasik
%e- : NR WILIXENIKIZUPOG_74
%e- : nr zeritacen^49
%e- : Mix ozel karakter karma H^a]y|u^M]A-g´
%e- : *** BONUS
%e- : ipsum regular word $!regword(3,10).text-10
%e- : 3 ile 10 arasında uzunlukta kelimelerden olusan 10 kelimelik cumle olusturur
}
if $isid {
if $1 < $2 && $2 > 40 { echo 4 *** maksimum uzunluk degeri 1-40 olmalıdır | return }
if $1 < $2 && $2 <= 40 {
var %l' $r($1,$2),%s' a e i o u ,%a' b c d f g h j k l m n p r s t v x w y z | :r
var %k' $addtok(%k',$gettok(%a',$r(1,$numtok(%a',32)),32),32)
if $len(%k') < %l' goto r
if $len(%k') >= %l' {
var %s- _.-.|.\.[.].^.´
var %r1 $regsubex($regsubex(%k',/(\W)/ig,$gettok(%s',$r(1,$numtok(%s',32)),32)),/([a-f]|[c-g]|[h-z])/g,$iif($r(0,20) > 15,$upper(\t),\t))
var %r2 $+($gettok(%s-,$r(1,$gettok(%s-,0,46)),46),$r(18,85))
var %r3 $regsubex($regsubex(%k',/(\W)/ig,$gettok(%s',$r(1,$numtok(%s',32)),32)),/([a-f]|[c-g]|[h-z])/g,$iif($r(1,100) > 10, $&
$+($iif($r(0,20) > 15,$upper(\t),\t),$gettok(%s-,$r(1,$gettok(%s-,0,46)),46)),$iif($r(0,20) > 15,$upper(\t),\t)))
if $prop === NR return $+($upper(%r1),%r2)
if $prop === nr return $+($lower(%r1),%r2)
if $prop === W return $upper(%r1)
if $prop === w return $lower(%r1)
if $prop === mix return %r3
if $prop === WR || !$prop { return $iif($r(1,10) > 5,%r1,$+(%r1,%r2)) }
else echo 5 *** Hatalı anahtar | return
} }
else echo 5 *** Hatali yada eksik parametre..
}
}
şeysi şurada : http://www.mpaste.com/p/0D4Q8Uco |
