Indetectables

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

Te paso igual que a Metal y a mi.. jajaj el cifrado es un Rot-N.

Saludo!

Himanen escribió:Te paso igual que a Metal y a mi.. jajaj el cifrado es un Rot-N.

Saludo!

Es verdad!!, con las prisas ni me di cuenta.
Saludos Himanen

Muy bueno Naker90 sigue así. no olvides declarar las variables.

saludos