w@rriorhckr
🏅Acemi Tasarımcı🏅
- Katılım
- 9 Şub 2009
- Mesajlar
- 37
- Tepkime puanı
- 1
<%
'// Coded by Rawkmetal
'// 09:01 çarşamba.....
Function sifre_sec( nNoChars, sValidChars )
Const szDefault = "0123456789qwertyuoplkjhgfdsazxcvbnmQWERTYUOPLKJHGFDSAZXCVBNM"
Randomize
If sValidChars = "" Then
sValidChars = szDefault
End If
nLength = Len( sValidChars )
For nCount = 1 To nNoChars
nNumber = Int((nLength * Rnd) + 1 )
sRet = sRet & Mid( sValidChars, nNumber, 1 )
Next
sifre_sec = sRet
End Function
%>
'// Coded by Rawkmetal
'// 09:01 çarşamba.....
Function sifre_sec( nNoChars, sValidChars )
Const szDefault = "0123456789qwertyuoplkjhgfdsazxcvbnmQWERTYUOPLKJHGFDSAZXCVBNM"
Randomize
If sValidChars = "" Then
sValidChars = szDefault
End If
nLength = Len( sValidChars )
For nCount = 1 To nNoChars
nNumber = Int((nLength * Rnd) + 1 )
sRet = sRet & Mid( sValidChars, nNumber, 1 )
Next
sifre_sec = sRet
End Function
%>
