[plevel 1]

sifre



[dialog d_sifredegis]

0,0

nomove

resizepic 70 120 5120 230 180

resizepic 100 180 3000 170 30

dtext 100 150 0481 Sifrenizi Yaziniz 

dtextentry 105 180 160 16 0481 1

button 120 230 4005 4006 1 0 1

button 200 230 4017 4018 1 0 2



[dialog d_sifredegis Button]

on=1

if (strmatch('<argtxt[1]>','')

src.sysmessage @025,1,1 Lutfen Bir Sifre Giriniz

return 1

endif



FOR x 1 <eval (strlen(<argtxt[1]>))-1>

IF !(strmatch('[0123456789abcdefghijklmnoprstuvyz']','<strsub <dlocal.x> 1 <argtxt[1]>>'))

src.sysmessage @39,9,1 Hatali Password Girdiniz.

return 1

ENDIF

ENDFOR



if (strlen(<argtxt[1]>) > 10) || (strlen(<argtxt[1]>) < 4)

src.sysmessage @025,1,1 Password en az 4, en fazla 10 karakter olmalidir.

return 1

endif



src.password <argtxt[1]>

src.sysmessage @048,,1 Yeni Password'unuz "<argtxt[1]>"

src.sysmessage @048,,1 Password'unuzu Basari Ile Degistirdiniz..!

Değerlendirmeler

0

Total votes: 0