Sign in to follow this  
Followers 0
thenewkid

7pass

8 posts in this topic

#1 ·  Posted (edited)

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

#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 by thenewkid

some of my scripts check them out and give feedback so i can learn from them :)autoclicker a autoclickernote taker a script to take notes with

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

so i dont need it?


some of my scripts check them out and give feedback so i can learn from them :)autoclicker a autoclickernote taker a script to take notes with

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

ok its up


some of my scripts check them out and give feedback so i can learn from them :)autoclicker a autoclickernote taker a script to take notes with

Share this post


Link to post
Share on other sites

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!

Share this post


Link to post
Share on other sites

k thx srry about your knees sounds painfull


some of my scripts check them out and give feedback so i can learn from them :)autoclicker a autoclickernote taker a script to take notes with

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  
Followers 0