Locked ROT N by Slek

[Expermicid]

Les dejo esta funcion de Slek. :)

 

[lenguaje=vb]'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[/lenguaje]

 

Saludos

Edited February 16, 2014 by Expermicid