t0ddie Posted September 11, 2005 Share Posted September 11, 2005 am i lazy? i dont think so. i just cant find it! but could someone point me in the right direction on how i could make this encrypted? (just jotting code off the tpo of my head, may have errors) $crypt = abc123 ;do some encrypting here fileopen("test.txt",1) filewrite("test.txt",$crypt) ;should write somehting like sdolhwlhwtrliuh23458y23452r4f980yh433rfsih to that file i have seen a gui that you enter text and it encrypts it but i cant find it. i want to add it to my script so that i dont enter anything and it does it by itself when needed. Valik Note Added 19 October 2006 - 08:38 AMAdded to warn level I just plain don't like you. Link to comment Share on other sites More sharing options...
Moderators SmOke_N Posted September 11, 2005 Moderators Share Posted September 11, 2005 I found one 3 post down in the search function.. Didn't go any further... Just looked at "Encrypt" in "Scripts and Scraps".Encryption / and Snakes UDF's 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. Link to comment Share on other sites More sharing options...
t0ddie Posted September 12, 2005 Author Share Posted September 12, 2005 (edited) looks nice. i ran the gui.. and i tried to add letters, but it wont let me. is there something i can use for alphanumerical strings? nevermind i see where i need to type it. this isnt encryption though. it turns a character into a code that is the same thing at all points. like this.. h = 123 i = 987 so if you had this 123987123987 it wound be easy to decipher as hihi there is a pattern. i would rather have somehting that worked with an algorhythm or something. pretty much if i wanted to encrypt this... hey hows it goin i should get sdflkhewrfglihrgleurhge2395u3thgun4gbvpo943uh5tg0p9h45tgr98yi now, if i wanted to encrypt it again... with that program i would get the exact same thing. sdflkhewrfglihrgleurhge2395u3thgun4gbvpo943uh5tg0p9h45tgr98yi where as i should get something new every time. i dont know if anyone has made encryption such as this, but please let me know if its out there as i dont want to re-invent the weel although it would take me a long time to make a program like that anyways. i hope im making sense Edited September 12, 2005 by t0ddie Valik Note Added 19 October 2006 - 08:38 AMAdded to warn level I just plain don't like you. Link to comment Share on other sites More sharing options...
therks Posted September 12, 2005 Share Posted September 12, 2005 I say go for it. I don't think anybody has code for something like that, and if you can create it someone will use it. My AutoIt Stuff | My Github Link to comment Share on other sites More sharing options...
Xenobiologist Posted September 12, 2005 Share Posted September 12, 2005 Hi, maybe this is something you can use. $encryptedUserID = _StringEncrypt ( 1, $UserID, "xyz123" , 3 ) IniWrite("pwd.ini", "UserID", "ID", $encryptedUserID) xyz123 is used to encrpyt your String. code--> #include <GUIConstants.au3> #include <string.au3> Call("UserID") Call("HostPWD") Call("NotesPWD") exit(0) Func UserID() $UserID = InputBox("Security Check", "Bitte geben Sie Ihre UserID ein:", "", "*", 220, 130) If @error = 1 Then MsgBox(64, "Information", "Das Skript wurde beendet", 2) Exit EndIf $UserID2 = InputBox("Security Check", "Bitte geben Sie Ihre UserID erneut ein:", "", "*", 220, 130) If @error = 1 Then MsgBox(64, "Information", "Das Skript wurde beendet", 2) Exit EndIf if $UserID = $UserID2 Then $encryptedUserID = _StringEncrypt ( 1, $UserID, "xyz123" , 3 ) IniWrite("pwd.ini", "UserID", "ID", $encryptedUserID) Else $returnWert = MsgBox(5, "Passwortcheck", "Die eingegenen Passwörter stimmen nicht überein!") Select Case $returnWert = 4 Call("UserID") Case Else MsgBox(64, "Information", "Das Skript wurde beendet", 2) Exit(0) EndSelect EndIf EndFunc ;==>UserID Func HostPWD() $HostPWD = InputBox("Security Check", "Bitte geben Sie das Host-Passwort ein:", "", "*", 220, 130) If @error = 1 Then MsgBox(64, "Information", "Das Skript wurde beendet", 2) Exit EndIf $HostPWD2 = InputBox("Security Check", "Bitte geben Sie das Host-Passwort erneut ein:", "", "*", 220, 130) If @error = 1 Then MsgBox(64, "Information", "Das Skript wurde beendet", 2) Exit EndIf if $HostPWD = $HostPWD2 Then $encryptedHOSTPWD = _StringEncrypt ( 1, $HOSTPWD, "test" , 3 ) IniWrite("pwd.ini", "Host", "PWD", $encryptedHOSTPWD) Else $returnWert = MsgBox(5, "Passwortcheck", "Die eingegenen Passwörter stimmen nicht überein!") Select Case $returnWert = 4 Call("UserID") Case Else MsgBox(64, "Information", "Das Skript wurde beendet", 2) Exit(0) EndSelect EndIf EndFunc ;==>HostPWD Func NotesPWD() $NotesPWD = InputBox("Security Check", "Bitte geben Sie das Notes-Passwort ein:", "", "*", 220, 130) If @error = 1 Then MsgBox(64, "Information", "Das Skript wurde beendet", 2) Exit EndIf $NotesPWD2 = InputBox("Security Check", "Bitte geben Sie das Notes-Passwort erneut ein:", "", "*", 220, 130) If @error = 1 Then MsgBox(64, "Information", "Das Skript wurde beendet", 2) Exit EndIf if $NotesPWD = $NotesPWD2 Then $encryptedNotesPWD = _StringEncrypt ( 1, $NotesPWD, "encrypthelp" , 3 ) IniWrite("pwd.ini", "Notes", "PWD", $encryptedNotesPWD) Else $returnWert = MsgBox(5, "Passwortcheck", "Die eingegenen Passwörter stimmen nicht überein!") Select Case $returnWert = 4 Call("UserID") Case Else MsgBox(64, "Information", "Das Skript wurde beendet", 2) Exit(0) EndSelect EndIf EndFunc ;==>NotesPWD So long, Mega Scripts & functions Organize Includes Let Scite organize the include files Yahtzee The game "Yahtzee" (Kniffel, DiceLion) LoginWrapper Secure scripts by adding a query (authentication) _RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...) Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc. MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times 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