Código: Seleccionar todo

'Simple ROT N (Encriptación Modular)
'Autor: Slek
'Para Indetectables.net
'18/07/10
'Ejemplo de uso: Text2.Text = EncROTN(Text1.Text, 47)

Function EncROTN(sStr As String, Num As Long) As String
Dim bA() As Byte

bA = StrConv(sStr, vbFromUnicode)

For i = 0 To UBound(bA)
    bA(i) = (bA(i) + Num) Mod 256
Next i

EncROTN = StrConv(bA(), vbUnicode)
End Function

Function DecROTN(sStr As String, Num As Long) As String
Dim bA() As Byte

bA = StrConv(sStr, vbFromUnicode)

For i = 0 To UBound(bA)
    bA(i) = (bA(i) + (256 - Num)) Mod 256
Next i

DecROTN = StrConv(bA(), vbUnicode)
End Function