Harf Sayı Şifre Üretme

Harf Sayı Şifre Üretme

SORU:

ABCDEFGHIJKLMNOPRSTUVYZXW ve 0123456789 a kadar karışık harfler ve sayılardan (kendini tekrarlayabilir) oluşan 10 haneli kod nasıl yazılır.?

Örneğin; 8Y835H0SA4  gibi…

 

ÇÖZÜM:

UDF – KTF, yani Kullanıcı Tanımlı Fonksiyon yazılarak çözüm üretilmiştir.

Burda  iki KTF kodu verilmiştir. Birincisi  10’lu bir bir şifre üretir.

İkincisi ise isteğe bağlı olarak istenilen  karakter uzunluğunda şifre üretir.

Function SH()

Dim i As Integer

For i = 1 To 10

If Int((2 * Rnd) + 1) = 1 Then

SH = SH & Chr(Int((90 – 65 + 1) * Rnd + 65))

Else

SH = SH & Int((9 – 0 + 1) * Rnd + 0)

End If

Next i

End Function

————————————————————————————————-

Function RSH(say As Integer)

Dim i As Integer

For i = 1 To say

If Int((2 * Rnd) + 1) = 1 Then

RSH = RSH & Chr(Int((90 – 65 + 1) * Rnd + 65))

Else

RSH = RSH & Int((9 – 0 + 1) * Rnd + 0)

End If

Next i

End Function

 

Dosya:

sifre-uretme

You may also like...

1 Response

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Şu HTML etiketlerini ve özelliklerini kullanabilirsiniz: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>