Jump to content

Recommended Posts

  • Moderators
Posted (edited)

I needed this today ( two different Rot ciphers/cyphers ), so I decided to go ahead with Rot1 - Rot25 and Rot47.

Example (Run from SciTe to see output):

#include "cipherRot.au3"

Global $gs_Original = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
Global $gs_Encode = ""
For $i = 1 To 25 ; notice decode param used with 1-4, 6-12, 14-17, 19-25
    $gs_Encode = _cipher_Rot($gs_Original, $i)
    ConsoleWrite("Rot" & $i & @TAB & "Encode: " & $gs_Encode & @CRLF)
    ConsoleWrite("Rot" & $i & @TAB & "Decode: " & _cipher_Rot($gs_Encode, $i, True) & @CRLF)
    ConsoleWrite("----" & @CRLF & @CRLF)
Next

$gs_Encode = _cipher_Rot($gs_Original, 47)
ConsoleWrite("Rot47" & @TAB & "Encode: " & $gs_Encode & @CRLF)
ConsoleWrite("Rot47" & @TAB & "Decode: " & _cipher_Rot($gs_Encode, 47) & @CRLF)
ConsoleWrite("----" & @CRLF & @CRLF)

cipherRot.au3

2015-01-10 cipherRot.au3

Edited by SmOke_N

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Posted

Interesting. I've seen functions in the AutoIt Snippets section for ROT13 and ROT47, but not the rest. Thanks.

UDF List:

  Reveal hidden contents

Updated: 22/04/2018

  • 2 years later...
  • Moderators
Posted

Fixed issue with Rot 1-4, 6-12, 14-17, and 19-25, had to add a decode param for those.

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

  • 2 years later...

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...