Jump to content
Sign in to follow this  
zeroZshadow

password :P

Recommended Posts

zeroZshadow

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...

Share this post


Link to post
Share on other sites
zeroZshadow

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...

Share this post


Link to post
Share on other sites
Raindancer

H:\AutoIt-V3\Include\string.au3(16,59) : ERROR: $strHex already declared as parameter

H:\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

Share this post


Link to post
Share on other sites
MHz

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.

Share this post


Link to post
Share on other sites
Raindancer

-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

Share this post


Link to post
Share on other sites
zeroZshadow

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...

Share this post


Link to post
Share on other sites
zeroZshadow

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...

Share this post


Link to post
Share on other sites
w0uter

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

Share this post


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
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.