Que hay tíos, bueno necesitaba un pequeño cifrado para cifrar la URL de un Downloader que estoy haciendo y saque esto, no es gran cosa pero lo dejo por aquí.
Func Cifrado_Simple_Cifrar($texto, $numero)
$Resultado = ''
For $i = 1 to StringLen($texto)
$Resultado = $Resultado & Chr(Asc(StringMid($texto, $i)) + $numero)
next
Return $Resultado
EndFunc
Func Cifrado_Simple_Descifrar($texto, $numero)
$Resultado = ''
For $i = 1 to StringLen($texto)
$Resultado = $Resultado & Chr(Asc(StringMid($texto, $i)) - $numero)
next
Return $Resultado
EndFunc
Ejemplo de uso:
Msgbox (64, 'funciona', Cifrado_Simple_Cifrar('Hola', 3)) ==> Devuelve 'Krod'
Msgbox (64, 'funciona', Cifrado_Simple_Descifrar('Krod', 3)) ==> Devuelve 'Hola'
Saludos
