Šifrovanie textu

dim retazec as string
dim heslo as string
dim dlzkaretazca as long
dim dlzkahesla as long
dim pismeno as string
dim kriptor as string
dim cislo as string
dim sifra as string

Private sub command1_click()
 heslo = inputbox "Zadajte heslo"
 retazec = text1.text
 dlzkaretazca = len(retazec)
 dlzkahesla = len(heslo)

 for i = 1 to dlzkaretazca
   if a = dlzkahesla then a = 0
   a = a + 1
   pismeno = mid(retazec, i, 1)
   kriptor = mid(heslo, a, 1)
   cislo = (asc(pismeno) + acs(heslo)) XOR asc(Kriptor)
   sifra = sifra & " " & cislo
 next i

sifra = sifra & " " & cislo