TK_Incorperate Posted November 16, 2005 Share Posted November 16, 2005 (edited) 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) expandcollapse popup;----------------------------------------------------------------------------------------------------------------------------------------------------------- ;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 November 16, 2005 by TK_Incorperate Link to comment Share on other sites More sharing options...
AcidicChip Posted November 22, 2005 Share Posted November 22, 2005 (edited) 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. expandcollapse popup#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 November 22, 2005 by AcidicChip Link to comment Share on other sites More sharing options...
DaleHohm Posted November 22, 2005 Share Posted November 22, 2005 Perhaps you ought to check out PGPDale 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 More sharing options...
AcidicChip Posted November 22, 2005 Share Posted November 22, 2005 (edited) 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 November 22, 2005 by AcidicChip Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now