Security program

[philo]

hi i have this script.

$password = InputBox("Security Protocol", "Enter Your Password For Startup", "", "*")
if $password = admin then
    msgbox( 11, "Acces Granted", "Security Protocol is now online", "")
    
    EndIf

but this does't work

my idee = Get a input box---> enter the password-----

--->if password correct msgbox (see script ) --->programs start--->if password not correct -----

->msgbox password incorect --->exit script.

Hope someone can help me

Edited June 13, 2005 by philo

[sykes]

$password = InputBox("Security Protocol", "Enter Your Password For Startup", "", "*")
if $password = "admin" then
    msgbox(0, "Access Granted", "Security Protocol is now online")
Else
    MsgBox(0, "Access Denied", "Incorrect Password")
EndIf

[Wus]

$password = InputBox("Security Protocol", "Enter Your Password For Startup")
If $password = "admin" then
    msgbox( 48, "Access Granted", "Security Protocol is now online")  
ElseIf $password <> "admin" Then
    msgbox( 48, "Access Denied", "DIE HACKER DIE")
EndIf

Needed quotes around the admin string

your flag was nonexistant for the msgbox... I used flag 48 because i didnt wana look up one in the help file

[Wus]

looks like someone beat me too it

[philo]

Thanks for the help

but i am not there yet.

after it the acces granted i want it to write log :

Keys pressed

so i think this is ok but it isn't

#include <file.au3>


$password = InputBox("Security Protocol", "Enter Your Password For Startup")
If $password = "admin" then
    msgbox( 48, "Access Granted", "Security Protocol is now online")  
        _FileCreate("c:/Program Files/log.txt")

ElseIf $password <> "admin" Then
    msgbox( 48, "Access Denied", "Password incorrect")
EndIf

but after the creating i want to write the log but the only thing i can find is the

_FileWriteLog(@ScriptDir & "\my.log","Text 1")

somebody has a idea

Edited June 13, 2005 by philo

[philo]

I tryed to get some things from here.

http://www.autoitscript.com/forum/index.php?showtopic=10688

But i cant get it to work.

Need help please

Thanks

[Wus]

Im confused... dont really understand what your looking for...

It seems like you may want a keylogger which has been made... just search it on the forums...

Try to spend a little more time writing the posts so we can better understand what you want...

[philo]

okey

I want to make a keylogger

but for it starts up it ask for a password.

end if the pass is correct it wil log key

Hope you get it now

[Valuater]

I can help with writing the file

#include <file.au3>

$password = InputBox("Security Protocol", "Enter Your Password For Startup")

If $password = "admin" then

msgbox( 48, "Access Granted", "Security Protocol is now online")

If Not FileExists(@WindowsDir & "\Admin.log") Then

_FileCreate(@WindowsDir & "\Admin.log")

_FileWriteLog(@WindowsDir & "\Admin.log", "Administrator logged on")

EndIf

ElseIf $password <> "admin" Then

msgbox( 48, "Access Denied", "Password incorrect")

EndIf

;;;;;;;;;;;;;;;; example

While 1

get-message

if message = ??????

_FileWriteLog(@WindowsDir & "\Admin.log", "Administrator used" & ?????)

Wend

this is not a great key logger... another suggestion for keys was given

this is intended more for useage

Hope it helps

8)

[philo]

Thanks i hope it can help with the script

[kristoff]

Hi

This is what i use :

Stored password in a file

If file doesn't exist -> create it and hash it

Else read file, decrypt and store in variable then start cmd :

Opt("TrayIconDebug", 1) ;0=no info, 1=debug line info

Opt("TrayIconHide", 1) ;0=show, 1=hide tray icon

#include "C:\scripts\autoit\Include\string.au3"

If FileExists(@scriptdir&"\passwd.txt") Then

$decode = fileopen ( @ScriptDir&"\passwd.txt", 0 )

$line = FileReadLine($decode)

$pwd_decode = _StringEncrypt(0,$line,"PassPhrase",8 )

;MsgBox(0, "Error", $pwd_decode )

Else

$file = fileopen (@ScriptDir&"\passwd.txt", 1 )

;Asks the user to enter a password. Don't forget to validate it!

$passwd = InputBox("Security Check", "Enter the NEW password to Store", "", "*")

$pwd = _StringEncrypt(1,$passwd,"PassPhrase",8)

;MsgBox(0, "Encrypted Password", $pwd )

FileWrite($file, $pwd)

fileclose($file)

FileSetAttrib(@ScriptDir&"\passwd.txt", "+R")

$decode = fileopen ( @ScriptDir&"\passwd.txt", 0 )

$line = FileReadLine($decode)

$pwd_decode = _StringEncrypt(0,$line,"PassPhrase",8 )

EndIf

If @OSVERSION = "WIN_XP" then

$loc = "D:\w3s-ix86"

MsgBox(0, "OS VERSION", $loc )

EndIF

If @OSVERSION = "WIN_NT4" then

$loc = "D:\nt-ix86"

MsgBox(0, "OS VERSION", $loc )

EndIF

If @OSVERSION = "WIN_2000" then

$loc = "D:\w2k-ix86"

MsgBox(0, "OS VERSION",$loc )

EndIF

If @OSVERSION = "WIN_2003" then

$esmcloc = "D:\w3s-ix86"

MsgBox(0, "OS VERSION", $loc )

EndIF

;MsgBox(0, "VERSION ", "WINDOWS 2003" )

RunWait (@ComSpec & ' /c '&$loc&'\<The commande >$pwd_decode&'',$loc,)

Hope it helps

[philo]

Line 55

runwait(@ComSpec & '/c'$loc& <the commande>$pwd_decode&",$looc,)

Run wait (@ComSpec & '/c'$loc^ERROR

Error: String missing closing quote

[kristoff]

Just replace last line with :

RunWait (@ComSpec & ' /c '&@scriptdir&'\command2start '&$pwd_decode&'',@ScriptDir,)

Should work

BTW, you can remove all OS tests, my location tool path is depending of my OS release so..