zeroZshadow Posted September 2, 2005 Share Posted September 2, 2005 yo there, long time no post i'm having a kind of competition with my friends, 1 makes a password program and the rest try's to find the password with whatever needed. its my turn this week, but i'm stuck here, because the include function doesn't do its work please help me out there #include "H:\AutoIt-V3\Include\string.au3" opt("GUIONEVENTMODE",1) GUICreate("Password",300,100) $cmdButton = GuiCtrlCreateButton("Create", 10, 40, 60, 40) $txtInput = GuiCtrlCreateInput("", 10, 10, 170, 20) GuiSetState() GUISetOnEvent(-3,"_Exit") GuiCtrlSetOnEvent($cmdButton,"_Create") while 1 WEnd Func _Exit() Exit EndFunc Func _Create() $ConvPass = _HexToString(GuiCtrlRead($txtInput)) $file = FileOpen ( "H:\Mijn Documenten\Pass.txt",2) FileWrite ($File,$ConvPass) FileClose($file) EndFunc that's the program that creates the password file. #include "H:\AutoIt-V3\Include\string.au3" opt("GUIONEVENTMODE",1) GUICreate("Password",300,100) $cmdButton = GuiCtrlCreateButton("Check", 10, 40, 60, 40) $txtInput = GuiCtrlCreateInput("", 10, 10, 170, 20,0x0020) GuiSetState() GUISetOnEvent(-3,"_Exit") GuiCtrlSetOnEvent($cmdButton,"_Check") while 1 WEnd Func _Exit() Exit EndFunc Func _Check() $file = FileOpen ( "H:\Mijn Documenten\Pass.txt",0) $ReadPass = FileReadLine ($file,1) FileClose($file) $ConvPass = _StringToHex(GuiCtrlRead($txtInput)) if $ConvPass = $ReadPass Then MsgBox(0,"Password","Correct") Else MsgBox(0,"Password","Error, Wrong") EndIf EndFunc and thats the one they need to crack. in both i have the problem with including string.au3 (i don't use the normal include, because i can't on the school comps) please help me out here XD see ya soon *If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip... Link to comment Share on other sites More sharing options...
Raindancer Posted September 2, 2005 Share Posted September 2, 2005 What is the Errormessage you get? Say: "Chuchichäschtli"My UDFs:_PrintImage UDF_WinAnimate UDFGruess Raindancer Link to comment Share on other sites More sharing options...
w0uter Posted September 2, 2005 Share Posted September 2, 2005 (edited) Sounds fun. how about you attach it after your done instead of using include just copy it by hand into the right file Edited September 2, 2005 by w0uter My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll Link to comment Share on other sites More sharing options...
zeroZshadow Posted September 2, 2005 Author Share Posted September 2, 2005 H:\AutoIt-V3\Include\string.au3(16,59) : ERROR: $strHex already declared as parameter Local $strChar, $aryHex, $i, $iDec, $Char, $file, $strHex, ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ H:\AutoIt-V3\Include\string.au3(60,112) : ERROR: $i_EncryptLevel already declared as parameter If Number($i_EncryptLevel) <= 0 Or Int($i_EncryptLevel) <> $i_EncryptLevel Then Local $i_EncryptLevel = 1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~^ \\eb007mfile03\home_dln$\051088001\Mijn Documenten\passwordAU3\PassCreate1.au3 - 2 error(s), 0 warning(s) and when i just say continu, it works, BUT it writes a -1 in the file :@ *If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip... Link to comment Share on other sites More sharing options...
w0uter Posted September 2, 2005 Share Posted September 2, 2005 a Autoit and the _StringToHex version would be nice. (if its not the latest could you attach it ?) My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll Link to comment Share on other sites More sharing options...
Raindancer Posted September 2, 2005 Share Posted September 2, 2005 H:\AutoIt-V3\Include\string.au3(16,59) : ERROR: $strHex already declared as parameterH:\AutoIt-V3\Include\string.au3(60,112) : ERROR: $i_EncryptLevel already declared as parameter<{POST_SNAPBACK}>Hmmm... maybe a buggy string.au3?Which AutoIt version are you using? Say: "Chuchichäschtli"My UDFs:_PrintImage UDF_WinAnimate UDFGruess Raindancer Link to comment Share on other sites More sharing options...
MHz Posted September 2, 2005 Share Posted September 2, 2005 and when i just say continu, it works, BUT it writes a -1 in the file :@<{POST_SNAPBACK}>-1 is the error return of FileOpen. Link to comment Share on other sites More sharing options...
Raindancer Posted September 2, 2005 Share Posted September 2, 2005 -1 is the error return of FileOpen.<{POST_SNAPBACK}>I think -1 is the error _HexToString returns upon the error that the variable is already declared...Cause it writes the -1 to the file, so it doesn't seem to be the problem to open and write the file but converting the String into its HEX-Value, cause of the probably buggy string.au3. Say: "Chuchichäschtli"My UDFs:_PrintImage UDF_WinAnimate UDFGruess Raindancer Link to comment Share on other sites More sharing options...
zeroZshadow Posted September 3, 2005 Author Share Posted September 3, 2005 just wondering, but is autoit based on VB ?? because in vb you have to call ur string variable "str*****" and integer"int****" maby that could be a problem and i just found out that i gave you guys a error myself, because i made the program do hextostring in stead of stringtohex checking it now and i hope its just the pc's on school that makes the problem (i had to fool the secutery to install it XD) *If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip... Link to comment Share on other sites More sharing options...
zeroZshadow Posted September 3, 2005 Author Share Posted September 3, 2005 lol it works and gives no error's on my own pc here and now i fixed the hextostring to a stringtohex (stupid error ) it works perfect btw, is there anyone who wan't to join my little game its not so people learn hacking, but to make a better password protection *If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip... Link to comment Share on other sites More sharing options...
w0uter Posted September 3, 2005 Share Posted September 3, 2005 btw, is there anyone who wan't to join my little game its not so people learn hacking, but to make a better password protection <{POST_SNAPBACK}>me.i got some very basic cracking skill's. My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll 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