Harf, Karakter, Sayı Şifre Üretme
Harf, Karakter, Sayı Şifre Üretme
SORULAR:
Burada yanıtını verdiğim soruyla ilgili olarak, bazı istekler geldi. Bunlar;
- Sizin Verdiğiniz çözümde İngilizce harf ve 10 rakam için geçerlidir. Daha çok harf ve karakter olsa nasıl olacak?
- Daha çok harf ve karakteri bir hücrede belirleyerek oradan almasını istesek nasıl olacak?
ÇÖZÜM:
Birincisi için Kod:
Function RSH_A(say As Integer)
Dim harf As String
krk = “ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZXW0123456789!^?<>@&/(){}[]\*-+$%#”
Dim i As Integer
For i = 1 To say
Randomize
sira = Int((Len(krk
RSH_A = RSH_A & Mid(krk, sira, 1)
Next i
End Function
——————————————————————————————————
İkincisi için Kod:
Function RSH_B(say As Integer)
Dim krk As String
krk = Range(“A1”).Value
Dim i As Integer
For i = 1 To say
Randomize
sira = Int((Len(krk) * Rnd) + 1)
RSH_B = RSH_B & Mid(krk, sira, 1)
Next i
End Function
Dosya:
Son Yorumlar