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.