Jump to content

Recommended Posts

yo there, long time no post :dance:

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 :whistle:

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 :dance::D 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 post
Share on other sites

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 post
Share on other sites

-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 post
Share on other sites

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 :whistle:

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 post
Share on other sites

lol it works and gives no error's on my own pc here :whistle:

and now i fixed the hextostring to a stringtohex (stupid error :dance:) it works perfect :dance:

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 :D

*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 post
Share on other sites

btw, is there anyone who wan't to join my little game :whistle:

its not so people learn hacking, but to make a better password protection :dance:

<{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 post
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
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...