zasada działania jest prosta
literka przykładowo A jest zamieniana na F ( każdy znak + 5 do przodu )
Kod
For i = 1 To Len(s)
tmp = Mid(s, i, 1)
tmp = Asc(tmp) + v
tmp = Chr(tmp)
total = total & tmp
Next i
Encrypt = total
tmp = Mid(s, i, 1)
tmp = Asc(tmp) + v
tmp = Chr(tmp)
total = total & tmp
Next i
Encrypt = total
Pozdrawiam