+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Coders Lounge (https://hackforums.net/forumdisplay.php?fid=5)
+---- Thread: ROT13 Enc & Dec (/showthread.php?tid=5247235)
ROT13 Enc & Dec - rayane888 - Apr 23, 2016
PHP Code
<?php
Func ROT13Encrypt ($sData)
Local $Result , $lTemp
For $lTemp = 1 To StringLen($sData)
$Result = $Result & Chr(Asc(StringMid($sData, $lTemp, 1)) + 13)
Next
Return $Result
EndFunc
Func ROT13Decrypt ($sData)
Local $Result , $lTemp
For $lTemp = 1 To StringLen($sData)
$Result = $Result & Chr(Asc(StringMid($sData, $lTemp, 1)) - 13)
Next
Return $Result
EndFunc