7pass

[thenewkid]

7 pass is a 2ed password for windows that will get the password from a .ini that will change every day of the week it still needs some work to make it more secure

expandcollapse popup

#include <GuiConstants.au3>
#include <Misc.au3>
#include <file.au3>
#NoTrayIcon

Opt('WinTitleMatchMode',2)

;to make 7Pass start every time windows starts up
;RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "MyProgramName", "REG_SZ", @ScriptFullPath)

$dll = DllOpen("user32.dll")

GUICreate("7Pass", @DeskTopWidth + 5, @DesktopHeight + 5, 0, 0, $WS_EX_TOPMOST + $WS_BORDER + $WS_POPUP, $WS_EX_TOOLWINDOW)
GUISetCursor (0)
;WinSetOnTop("7Pass","",1)
$OK_button = GuiCtrlCreateButton("OK", 216, 176, 75, 25, 0)
$Input_1 = GuiCtrlCreateInput("", 112, 112, 801, 21, $ES_PASSWORD)
$EXIT_button = GuiCtrlCreateButton("Exit", 672, 176, 75, 25, 0)
GUISetBkColor( 0xB0B0DB )
GuiSetState(@SW_SHOW)
While 1
    _MouseTrap(71, 69, 970, 241)
    _disablecontrols()
    $MSG = GUIGetMsg()
    Select
        Case $MSG = $OK_button
        _Passcheck()
        Case $MSG = $EXIT_button
        _Shutdown()
EndSelect
WEnd

Func _disablecontrols()
    
    If WinExists("Windows Task Manager") Then
        WinClose("Windows Task Manager")
    EndIf

EndFunc

func _Passcheck()
;to get the day of the week
$Day = @WDAY

if $Day = 1 Then
    $Day = "sunday"
ElseIf $Day = 2 Then
    $Day = "monday"
ElseIf $Day = 3 Then
    $Day = "tuesday"
ElseIf $Day = 4 Then
    $Day = "wednesday"
ElseIf $Day = 5 Then
    $Day = "thursday"
ElseIf $Day = 6 Then
    $Day = "friday"
ElseIf $Day = 7 Then
    $Day = "saturday"
EndIf

;to get the pass from the .ini
$ini = IniRead("7Pass.ini","pass",$Day, "not found")
$Password_1 = $ini
$Password_2 = $ini
$Password_3 = $ini
$Password_4 = $ini
$Password_5 = $ini
$Password_6 = $ini
$Password_7 = $ini


;to set the pass
if $Day = "sunday" Then
    $Password = $Password_1
    ElseIf $Day = "monday" Then
        $Password = $Password_2
        ElseIf $Day = "tuesday" Then
            $Password = $Password_3
            Elseif $Day = "wednesday" Then
                $Password = $Password_4
                Elseif $Day = "thursday" Then
                    $Password = $Password_5
                    Elseif $Day = "friday" Then
                        $Password = $Password_6
                        ElseIf $Day = "saturday" Then
                            $Password = $Password_7
EndIf


; will write a log
; will write a log in the passwrong.txt if the pass was wrong and will write the log in the pass right if the passright.txt was right
$Check = GUICtrlRead($Input_1)
if $Check = $Password Then
    _FileWriteLog(@ScriptDir & "\passright.txt", $Password)
    DllClose($dll)
    Exit
Else
    ToolTip("W R O N G   P A S S")
    _FileWriteLog(@ScriptDir & "\passwrong.txt", $Password)
    DllClose($dll)
EndIf

EndFunc

Func _Shutdown()
    DllClose($dll)
    Shutdown(1)
EndFunc

im trying to make a app for chageing the passwords that has its own password and encripts the file and decripts it.

7Pass.zip

Edited June 30, 2007 by thenewkid

[DjDeep00]

#include "ServiceControl.au3"........need this file

[Siddhartha]

yep, need ServiceControl w/e that is. Just put it up there

[thenewkid]

so i dont need it?

[Siddhartha]

no, you do, and you need to put it up there so we can have it too lol

[thenewkid]

ok its up

[Siddhartha]

looks cool. I have to go to sleep though. Ill check it out tomorrow k? Stupid nurse pestering me to take my medicine, go to sleep, yada yada. (Im in the hospital cus I shattered both my knee caps and hyperextended my leg) But right when I get back to my computer tomorrow, Ill try it!

[thenewkid]

k thx srry about your knees sounds painfull