şifre oluşturma

[hls06drm]

Merhaba;
Sizden ricam bana ekteki örnek tablomda olduğu gibi 0123456789 rakamlar ile ABCDEF harfler kullanarak 16 karakterli şifreler yaratmak. Yardımcı olursanız memnun olurum.

ÖRNEK ŞİFRELER

E2 5C D2 10 90 15 81 26

D9 B4 32 BF E1 AD 4F DD

D8 87 EE 4D 3B C4 E5 E4

 

[ÖmerBey]

Merhaba,
Deneyiniz...

=BİRLEŞTİR(DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15)))

 

[Asri]

Alternatif: makrolu çözüm

Sub kodolustur()
   liste = "0A1B2C3D4E5F6789"
   adet = 100
   For satir = 1 To adet
        kod = ""
        For i = 1 To 8
           For j = 1 To 2
              Randomize
              basi = 1
              sonu = 16
              sira = Int(basi + Rnd() * (sonu - basi + 1))
              kod = kod & Mid(liste, sira, 1)
           Next
           kod = kod & " "
        Next i
        Cells(satir, "A").Value = trim(kod)
   Next satir
End Sub

 

[RBozkurt]

Sub RastgeleSifreUret()
    Dim sifreUzunluk As Integer
    sifreUzunluk = 16

    Dim karakterler As String
    karakterler = "ABCDEF0123456789"

    Dim rastgeleSifre As String
    Dim i As Integer
    For i = 1 To sifreUzunluk
        rastgeleSifre = rastgeleSifre & Mid(karakterler, Int((Len(karakterler) * Rnd) + 1), 1)
    Next i

    Range("B2").Value = rastgeleSifre
End Sub

****

A1 ile A1000 arasına rastgele şifre üretir. Kendiniz isteğinize göre değiştirin.

Sub RastgeleSifreUret()
    Dim sifreUzunluk As Integer
    sifreUzunluk = 16

    Dim karakterler As String
    karakterler = "ABCDEF0123456789"

    Dim rastgeleSifre As String
    Dim i As Integer

    For rowNumber = 1 To 1000
        rastgeleSifre = ""
        For i = 1 To sifreUzunluk
            rastgeleSifre = rastgeleSifre & Mid(karakterler, Int((Len(karakterler) * Rnd) + 1), 1)
        Next i
        Cells(rowNumber, 1).Value = rastgeleSifre '1 yazan A sütunu. 2 yazarsanız B sütunu.
    Next rowNumber
End Sub

 

[hls06drm]

Alternatif: makrolu çözüm

Sub kodolustur()
   liste = "0A1B2C3D4E5F6789"
   adet = 100
   For satir = 1 To adet
        kod = ""
        For i = 1 To 8
           For j = 1 To 2
              Randomize
              basi = 1
              sonu = 16
              sira = Int(basi + Rnd() * (sonu - basi + 1))
              kod = kod & Mid(liste, sira, 1)
           Next
           kod = kod & " "
        Next i
        Cells(satir, "A").Value = trim(kod)
   Next satir
End Sub

ilginiz için teşekkür ederim..

 

[hls06drm]

Merhaba,
Deneyiniz...

=BİRLEŞTİR(DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15));DEC2HEX(RASTGELEARADA(0;15)))

ilginiz için teşekkür ederim...

 

[hls06drm]

Sub RastgeleSifreUret()
    Dim sifreUzunluk As Integer
    sifreUzunluk = 16

    Dim karakterler As String
    karakterler = "ABCDEF0123456789"

    Dim rastgeleSifre As String
    Dim i As Integer
    For i = 1 To sifreUzunluk
        rastgeleSifre = rastgeleSifre & Mid(karakterler, Int((Len(karakterler) * Rnd) + 1), 1)
    Next i

    Range("B2").Value = rastgeleSifre
End Sub

****

A1 ile A1000 arasına rastgele şifre üretir. Kendiniz isteğinize göre değiştirin.

Sub RastgeleSifreUret()
    Dim sifreUzunluk As Integer
    sifreUzunluk = 16

    Dim karakterler As String
    karakterler = "ABCDEF0123456789"

    Dim rastgeleSifre As String
    Dim i As Integer

    For rowNumber = 1 To 1000
        rastgeleSifre = ""
        For i = 1 To sifreUzunluk
            rastgeleSifre = rastgeleSifre & Mid(karakterler, Int((Len(karakterler) * Rnd) + 1), 1)
        Next i
        Cells(rowNumber, 1).Value = rastgeleSifre '1 yazan A sütunu. 2 yazarsanız B sütunu.
    Next rowNumber
End Sub

ilginiz için teşekkür ederim...