Sign in to follow this  
Followers 0
NeoDriver

Password Protection

3 posts in this topic

#1 ·  Posted (edited)

Ok as seen as im kinda a noob at this i have a request. Is it possible for someone to make / help me make a script that asks for a password before giving access to my USB drive. I will have it autorun when the drive is inserted but i have a lot of valuable stuff on my USB drive! Thus said i would like a way to restrict access to the drive without the password.

Thanks in advance,

NeoDriver

EDIT: Ok 10 people have looked at this now. Can someone at least say if they dont know. Starting to think im being ignored

Edited by NeoDriver

Share this post


Link to post
Share on other sites



Try making a zip file then putting a password on it. Not sure how safe it is tho.

Share this post


Link to post
Share on other sites

Try making a zip file then putting a password on it. Not sure how safe it is tho.

I made a script for this, but there is better ones in the scripts and scraps

;--------------Special Options--------------
RegWrite('HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', 'AddValueNameHere', 'Reg_sz', '"' & @ScriptFullPath & '"')
#NoTrayIcon
opt("WinTitleMatchMode",4)

;*******Define Variables**********
Global $case = 0
Global $action = 0
Global $access_1 = 0
Global $access_2 = 0
Global $access_3 = 0
Global $access_4 = 0

;*******Default Function******
;=============================
While 1
If WinExists("*Window that opens*") then
   If $access_1 = 0 Then
    $case = 1
Endif
Endif



;------------Defining Cases------------
;*************Case 1*****************
Func MyCase ($my_case)
Select
    Case $my_case = 1

WinMinimizeAll()
WinSetState("Classname=Shell_TrayWnd", "", @SW_HIDE)
WinSetState("Program Manager", "", @SW_HIDE)
If $access_1 < 1 Then
Box()
$access_1 = 1
Endif
;*************Function*****************
Func Box()
Global $pass="bob"
Do
Global $passwd = InputBox("Enter Password", "Enter Password Here:", "", "*M",100,150)
If $passwd = $pass then
MsgBox(0, "Access Granted", "Correct Password.")
WinMinimizeAllUndo()
WinSetState("Classname=Shell_TrayWnd", "", @SW_SHOW)
WinSetState("Program Manager", "", @SW_SHOW)
Else
MsgBox(0, "Access Denied", "Sorry, Wrong Password Try Again.")
Endif
Until $passwd = $pass
EndFunc

Something like that, don't have time to ttest, i modified mine to fit what you asked for, i think it should work

NoteL: password is "bob"

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