Código: Seleccionar todo

;Modificación de un code que vi por ahi...
;Autor: DuNeD@i

Global $Result, $ABC = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"

$input = "$Cheeee Documentación, $Cheee los papeles del camión, que no de qué...#"
$Valor = 43

Encr()
Decr()

Func Encr()
    $Result = _Cifr($input, $Valor)
    ConsoleWrite($Result)
EndFunc

Func Decr()
    ConsoleWrite(_Cifr($Result, 52 - $Valor))
EndFunc

Func _Cifr($Stringadena, $n = 1)
    Local $Final = ""
    For $i = 1 To StringLen($Stringadena)
        $Final &= _DesCifr(StringMid($Stringadena, $i, 1), $n)
    Next
    Return $Final
EndFunc

Func _DesCifr($String, $n = 1)
    Local $x = StringInStr($ABC, $String, 1) - 1
    If $x < 0 Then Return $String
    $x += $n
    $x = Mod($x, 52)
    $x += 1
    Return StringMid($ABC, $x, 1)
EndFunc