Código
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.