Jump to content

SecretLanguage v1.0 by TK_Incorperate


TK_Incorperate
 Share

Recommended Posts

First off.... i know this is a simple, basic script that any noobie with half a brain could do.... lol but i'm that noobie with half a brain and i'm not all too great with auto-it so this is actualy an acomplishment for me.

Well alot of my friends have been getting in trouble lately at school for writing VERY forbidden messages to each other through the school e-mails, and they've asked me to help them out. At first they wanted me to create a new language and write it down on paper so they could pull the papers out and translate it, but i had a better idea....

What this does is replaces EVERY character in the SL10.txt (you can configure this) with any other characters you specify, and they are easy to setup so you create your own language basicaly.... remember not to use the same character twice when doing this because you would get confused as to what the letter is for.

This has 36 spots per language so you can replace all letters and numbers, and you can add more any time you want to, aswell as adding another language completely.

Configureing:

1) Setup the .txt name to whatever you decide

2) Setup all the characters however you'd like

3) Save and exit

Using:

The "T" key terminates this process at any time you wish.

The "1" key starts translating in the first 'language'.

The "2" key starts translating in the second 'langiage'.

*NOTES*

You can create more then 2 languages by coppying one function, and the hotkey, and changing the numbers.

You may want to keep the letters on opposites so you can easily convert back, Eg: A = I, then I = A

If you dont keep letters on opposites, you may want to use language2, or create another language, to transfer back to english. (or the language you speak)

;-----------------------------------------------------------------------------------------------------------------------------------------------------------
;SecretLanguage v1.0      
;
;
;    Created by TK_Incorperate
;
;        Fucntion: Create your very own language, AND USE IT! no need to remember anything.
;                       100% User friendly and very easy to use.
;                       Compatible with Auti-IT v3.1.1.83 (beta) or later.
;
;
;
;
;-----------------------------------------------------------------------------------------------------------------------------------------------------------

    HotKeySet("t", "Terminate")
    HotKeySet("1", "Lang1")
    HotKeySet("2", "Lang2")

    WinActivate("SL10 - Notepad", "")   ;Replace SL10 with the name of the .txt you have opened
        Send("{LALT}{DOWN}{RIGHT}r")

    While 1
        Sleep(1000)
    WEnd

    Func Terminate()
        Exit
    EndFunc

    Func Lang1()      ;Replace the *** with the origional character(s), and replace the ### with the new character(s)
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
    EndFunc

    Func Lang2()      ;Replace the *** with the origional character(s), and replace the ### with the new character(s)
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
        Send("***{TAB}###{TAB}{TAB}{TAB}{TAB}{ENTER}{TAB}{TAB}")
    EndFunc
Edited by TK_Incorperate
Link to comment
Share on other sites

You've got the right idea, however, doesn't seem to work. At first I didn't have a clue what the purpose of this was, but then I tried it out, and it spazzed out. I then saw what you were trying to do.

Here is a better way of going about it.

#include <Array.au3>

HotKeySet("^!1", "Encode")
HotKeySet("^!2", "Decode")

Dim $window = "Untitled - Notepad"

Dim $dcode[1]
_ArrayAdd($dcode, "an")
_ArrayAdd($dcode, "te")
_ArrayAdd($dcode, "fo")
_ArrayAdd($dcode, "is")
_ArrayAdd($dcode, "ea")
_ArrayAdd($dcode, "on")
_ArrayAdd($dcode, "in")
_ArrayAdd($dcode, "re")
_ArrayAdd($dcode, "it")
_ArrayAdd($dcode, "ou")
_ArrayAdd($dcode, "il")
_ArrayAdd($dcode, "th")

Dim $ecode[1]
_ArrayAdd($ecode, "`as")
_ArrayAdd($ecode, "`ki")
_ArrayAdd($ecode, "`di")
_ArrayAdd($ecode, "`il")
_ArrayAdd($ecode, "`ey")
_ArrayAdd($ecode, "`un")
_ArrayAdd($ecode, "`em")
_ArrayAdd($ecode, "`fo")
_ArrayAdd($ecode, "`ak")
_ArrayAdd($ecode, "`ie")
_ArrayAdd($ecode, "`er")
_ArrayAdd($ecode, "`sm")

Func Encode()
    $text = ControlGetText($window, "", 15)
    For $i = 1 To Ubound($ecode) - 1 Step 1
        $text = StringReplace($text, $dcode[$i], $ecode[$i], 0, 1)
    Next
    ControlSetText($window, "", 15, $text)
EndFunc

Func Decode()
    $text = ControlGetText($window, "", 15)
    For $i = Ubound($ecode) - 1 To 1 Step -1
        $text = StringReplace($text, $ecode[$i], $dcode[$i], 0, 1)
    Next
    ControlSetText($window, "", 15, $text)
EndFunc

While 1
    Sleep(250)
Wend

Just run this script, go to your "Start Menu", click on "Run", type in "Notepad", type out a bunch of random sentances, then press CTRL+ALT+1 to encode it, and CTRL+ALT+2 to decode it.

This example is only mixing up commonly used 2 letters, but can easily be altered for full words. There must the same amount of ecode arrays as there are for dcode arrays.

Edited by AcidicChip
Link to comment
Share on other sites

Perhaps you ought to check out PGP

Dale

Free Internet Tools: DebugBar, AutoIt IE Builder, HTTP UDF, MODIV2, IE Developer Toolbar, IEDocMon, Fiddler, HTML Validator, WGet, curl

MSDN docs: InternetExplorer Object, Document Object, Overviews and Tutorials, DHTML Objects, DHTML Events, WinHttpRequest, XmlHttpRequest, Cross-Frame Scripting, Office object model

Automate input type=file (Related)

Alternative to _IECreateEmbedded? better: _IECreatePseudoEmbedded  Better Better?

IE.au3 issues with Vista - Workarounds

SciTe Debug mode - it's magic: #AutoIt3Wrapper_run_debug_mode=Y

Doesn't work needs to be ripped out of the troubleshooting lexicon. It means that what you tried did not produce the results you expected. It begs the questions 1) what did you try?, 2) what did you expect? and 3) what happened instead?

Reproducer: a small (the smallest?) piece of stand-alone code that demonstrates your trouble

Link to comment
Share on other sites

Perhaps you ought to check out PGP

Dale

Judging by the first post, I assume he wanted "another language", not so much an encryption.

If an encryption is wanted, then the easiest route would be...

#include <String.au3>

HotKeySet("^!1", "Encode")
HotKeySet("^!2", "Decode")

Dim $window = "Untitled - Notepad"
Dim $password = "This is the password."


Func Encode()
    ControlSetText($window, "", 15, _StringEncrypt(1, ControlGetText($window, "", 15), $password, 1)
EndFunc  ;==>Encode

Func Decode()
    ControlSetText($window, "", 15, _StringEncrypt(0, ControlGetText($window, "", 15), $password, 1)
EndFunc  ;==>Decode

While 1
    Sleep(250)
Wend
Edited by AcidicChip
Link to comment
Share on other sites

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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...