[AUTOIT]Cifrado RotN

[xXSCORPIOXx]

Bueno, no tiene mucho la verdad, mi versión de RotN. 

Código (vb) [Seleccionar] Expandir

Func RotN($Text, $Long, $Encrypt)
    Local $sResult = ""

    If $Encrypt = True Then
        For $i = 1 To StringLen($Text)
            $sResult = Chr(Asc(StringMid($Text, $i, 1)) + $Long) & $sResult
        Next
    Else
        For $i = 1 To StringLen($Text)
            $sResult = Chr(Asc(StringMid($Text, $i, 1)) - $Long) & $sResult
        Next
    EndIf
    Return $sResult
EndFunc

PD: La variable $Encrypt la ponen en True si quieren que Encripte y en False si quieren que Desencripte.

//Regards.