ŞİFRE ÜRETMEK belli parametrelerle

[botex]

belli bir veriyle belli aralıkta şifre üretmek istiyorum sayısal olarak excelde yapmak basit ancak sözel olarak üretmek istiyorum
örnek: alfabedike harflerle 6 şarlı 7 şerli 8 serli 9 ar 10 ar lı .... şifreler üretmek istiyorum ve tüm kombinasyonları görmek istiyorum=
aaaaaa
aaaaab
aaaaac diye devam edecek z yarfine kadar bunu nasıl yapabilirim kombinasyonun uzunluğu önemli değil
NOT: Banka soymayacam)
milyonlardan fazla çıkacağı görüşündeyim dakikada 15 şifre deneyeniliyorum amacıma ulaşmamda yardımcı olursanız teşşekür

 

[Kemal Demir]

Sn.Botex Muhtemelen Üstadlar Daha İyi Daha Doğru Örnekler verebilirler

Bakmak İstersiniz diye (Fikir mahiyetinde) Küçük bir örnek hazırladım

(Şifrelerin Karakter sayısını belirliyebilirsiniz)

umarım işinizi Görür.

 

[veyselemre]

Aşağıdaki kodlar 6 rakamlı alternatifleri sıralar, fakat kaç dakika süreceğini bilemem.
[vb:1:4ce6e58609]Sub uret()
sut = 1
For x1 = 97 To 122
h1 = Chr(x1)
For x2 = 97 To 122
h2 = Chr(x2)
For x3 = 97 To 122
h3 = Chr(x3)
For x4 = 97 To 122
h4 = Chr(x4)
For x5 = 97 To 122
h5 = Chr(x5)
For x6 = 97 To 122
h6 = Chr(x6)
sat = sat + 1
If sat = 65537 Then
sat = 1
sut = sut + 1
End If

Cells(sat, sut) = h1 & h2 & h3 & h4 & h5 & h6
Next x6, x5, x4, x3, x2, x1

End Sub[/vb:1:4ce6e58609]