Func Rot13Encript($str);funcion para encriptar rot13
local $sfinal=""
for $a=1 to StringLen($str)
$sfinal=Chr(Asc(StringMid($str,$a,1))+13) & $sfinal
Next
Return $sfinal
EndFuncFunc Rot13Decrypt($str);funcion para desencryptar rot13
local $sfinal=""
for $a=1 to StringLen($str)
$sfinal=Chr(Asc(StringMid($str,$a,1))-13) & $sfinal
Next
Return $sfinal
EndFuncCódigo: Seleccionar todo
Func Rot13Encript($str, $n);funcion para encriptar rot13
local $sfinal=""
for $a=1 to StringLen($str)
$sfinal=Chr(Asc(StringMid($str,$a,1))+$n) & $sfinal
Next
Return $sfinal
EndFuncCódigo: Seleccionar todo
Func Rot13Decrypt($str);funcion para desencryptar rot13
local $sfinal=""
for $a=1 to StringLen($str, $n)
$sfinal=Chr(Asc(StringMid($str,$a,1))-$n) & $sfinal
Next
Return $sfinal
EndFuncFunc 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
EndFuncCódigo: Seleccionar todo
import Data.Char(chr,ord)
rot13 :: String -> String
rot13 xs = [chr((ord x) + 13) | x <- xs]
dRot13 :: String -> String
dRot13 xs = [chr((ord x) - 13) | x <- xs]Código: Seleccionar todo
"ghci>" :load "rot13.hs"
[1 of 1] Compiling Main ( rot13.hs, interpreted )
Ok, modules loaded: Main.
"ghci>" rot13 "beli"
"oryv"
"ghci>" dRot13 "oryv"
"beli"Código: Seleccionar todo
import Data.Char(chr,ord)
type Descifrado = String
type Cifrado = String
type Texto = String
type Password = Int
rotN :: Texto -> Password -> Cifrado
rotN xs ps = [chr(((ord x)+ps)`mod` 256)| x <- xs]
dRotN :: Cifrado -> Password -> Descifrado
dRotN xs ps = [chr(((ord x)-ps)`mod` 256)| x <- xs]Código: Seleccionar todo
"ghci>" :load "RotN.hs"
[1 of 1] Compiling Main ( RotN.hs, interpreted )
Ok, modules loaded: Main.
"ghci>" putStrLn $ rotN "beli" 69
§ª±®
"ghci>" putStrLn $ dRotN "§ª±®" 69
beli
"ghci>"
Código: Seleccionar todo
MsgBox(0,"",ROT13("HOLA PINK"))
Func ROT13($sString)
;ASM Source code http://www.manhunter.ru/assembler/430_algoritm_shifrovaniya_rot13_na_assemblere.html
Local Const $Opcode="0x5589E58B4D0C09C974248B750889F7AC4788C480E42024DF3C4172103C5A770C2C0D3C417302041A08E04FAAE2E15DC3"
Local $CodeBuffer = DllStructCreate("byte[" & BinaryLen($Opcode) & "]")
DllStructSetData($CodeBuffer, 1, $Opcode)
$tString=DllStructCreate("char[" & StringLen($sString) & "]")
DllStructSetData($tString,1,$sString)
Local $iRet = DllCall("user32.dll", "int", "CallWindowProc", _
"ptr", DllStructGetPtr($CodeBuffer), _
"ptr", DllStructGetPtr($tString,1), _
"int", StringLen($sString), _
"int", 0, _
"int", 0)
Return DllStructGetData($tString,1)
EndFunc
