سلام
  

dim i

for i=0 to txt_num.txt

       Dim rng As New RNGCryptoServiceProvider



        Dim buff(4) As Byte



        rng.GetBytes(buff)



        dim x= Convert.ToBase64String(buff)

'این برای تولید حرف بود

dim xxx=txtstart+x

حالا xxx رو با دستور insert بفرست به بانک
بای