 Loading |
|
Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: ROT13
|
||
|
Dim Test : Test = "Hello World" 'Encode with ROT13 Test = ROT13(Test) msgbox Test 'Decode with ROT13 Test = ROT13(Test) msgbox Test ' -------------------------- Public Function ROT13(sText) Const cAlphabet = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ" Dim sROT13, lPos For lPos = 1 To Len(sText) iChar = Instr(cAlphabet, Mid(sText, lPos, 1)) If iChar = 0 Then sROT13 = sROT13 & Mid(sText, lPos, 1) Else sROT13 = sROT13 & Mid(cAlphabet, iChar + 13, 1) End If Next ROT13 = sROT13 End Function | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||
