(17/05/2017, 21:50)alpeki99 yazdı: Stackoverflowdan alıntıdır :

dim validchars as string = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"



dim sb as new StringBuilder()

dim rand as new Random()

for i as Integer = 1 to 20

    dim idx as Integer = rand.Next(0, validchars.Length)

    dim randomChar as char = validchars(idx)

    sb.Append(randomChar)

next i



dim randomString = sb.ToString()

validchars değişkeninin içine yazılanlardan üretir. Sadece harf isterseniz onları bırakıp diğerlerini silebilirsiniz. Çok daha basit birşey olsun isterseniz MD5 ile random bir değer oluşturup ilk 20 karakterini de alabilirsiniz.