Lock CD/DVD

[johns420]

I would like to be able to make a CD/DVD be unreadable until a correct username and password is created. I have a login script, but im not sure exactly what I would have to do in order to lock the CD/DVD until then.

[James]

CDTray()

Oh, you want to make it un-readable. You will need to look at disconnecting the link etc.

Edited July 16, 2007 by JBr00ks

[weaponx]

Are you saying you want access to the drive blocked before a user is authenticated?

[johns420]

Are you saying you want access to the drive blocked before a user is authenticated?

Exactly. I dont want anyone who isnt authorized to access the information on the CD/DVD

[DW1]

you are going to want to look into unmounting the device.... well.... thats all I can think of anyway... Im sure that the next post will be somebody proving me wrong though LOL

And the post after that will be somebody telling me to use less "..." LOL

[johns420]

you are going to want to look into unmounting the device.... well.... thats all I can think of anyway... Im sure that the next post will be somebody proving me wrong though LOL

And the post after that will be somebody telling me to use less "..." LOL

What would happen if i unmounted the device and then ejected the disk? Would it leave the drive unmounted?

[DW1]

yes it would physically come out of the drive if that is what you are asking. are you trying to block access to the data (soft) or block access to the disc (hard)?

[johns420]

yes it would physically come out of the drive if that is what you are asking. are you trying to block access to the data (soft) or block access to the disc (hard)?

just block access to the data so a soft

[DW1]

What would happen if i unmounted the device and then ejected the disk? Would it leave the drive unmounted?

I think that the disc would come out... did I misunderstand this question?

[johns420]

I think that the disc would come out... did I misunderstand this question?

Yeah, i think you did lol. I know the disc would eject, my question is what would happen to the machine it was ejected from. Would the drive stay unmounted and unusable for normal user or would the drive become mounted again once my dvd is ejected

[DW1]

this may be what you are looking for here

Edited July 16, 2007 by danwilli

[johns420]

this may be what you are looking for here

That doesnt sound like its what I want. Is there anyway to do a soft block? Just block unauthorized users from pulling any data from the drive?

[James]

OK, you could make the disc drive empty. Then add a recurring loop with a couple of functions, that will keep the disc drive shut, then add a hotkey for an inputbox and ask for a password. If its correct, "unlock the drive".

[johns420]

OK, you could make the disc drive empty. Then add a recurring loop with a couple of functions, that will keep the disc drive shut, then add a hotkey for an inputbox and ask for a password. If its correct, "unlock the drive".

That sounds more like what I would want. How would I go about doing that?

[James]

Something like:

expandcollapse popup

#include <Misc.au3>
#include <String.au3>

HotKeySet("{F8}", "CDPass")
HotKeySet("{F9}", "CDFunc")

Global $File = @ScriptDir & '\password.ini'
Global $Encryption = "S4DC3"
Global $Drive = DriveGetDrive("CDROM")
Local $Locked = False

If Not _Singleton("CDL0CK", 1) Then
    MsgBox(262144, "Error", "CD Locker is already running!")
    Exit
EndIf

While 1
    Sleep(100)
    If $Locked = False Then
        CDTray($Drive, "open")
    ElseIf $Locked = True Then
        CdTray($Drive, "closed")
    EndIf
Wend

Func CDFunc()
    $OpenCD = InputBox("Password", "Please enter password, to unlock CD Drive:", "", "*")
    $Decrypted = _StringEncrypt(0, $OpenCD, $Encryption)
    $PassCheck = IniReadSection($File, "Password")
    If $PassCheck = $Decrypted Then
        MsgBox(4096, "CDLocker", "CD Draw unclocked!")
        $Locked = False
    ElseIf @error Then
        MsgBox(16, "CDLocker", "Invalid password!")
        Do
            $Locked = True
        Until $OpenCD = $Decrypted
    EndIf
EndFunc

Func CDPass()
    $Password = InputBox("Password", "Please specify a password:", "", "*")
    $Encrypted = _StringEncrypt(1, $Password, $Encryption)
    IniWrite($File, "Password", "Password", $Encrypted)
    MsgBox(4096, "Completed", "New password, saved and encrypted!")
EndFunc

I only made it quickly. I know it doesn't work. I made it a while ago, then I went ill and forgot about it. Try fix it up.

[johns420]

Something like:

expandcollapse popup

#include <Misc.au3>
#include <String.au3>

HotKeySet("{F8}", "CDPass")
HotKeySet("{F9}", "CDFunc")

Global $File = @ScriptDir & '\password.ini'
Global $Encryption = "S4DC3"
Global $Drive = DriveGetDrive("CDROM")
Local $Locked = False

If Not _Singleton("CDL0CK", 1) Then
    MsgBox(262144, "Error", "CD Locker is already running!")
    Exit
EndIf

While 1
    Sleep(100)
    If $Locked = False Then
        CDTray($Drive, "open")
    ElseIf $Locked = True Then
        CdTray($Drive, "closed")
    EndIf
Wend

Func CDFunc()
    $OpenCD = InputBox("Password", "Please enter password, to unlock CD Drive:", "", "*")
    $Decrypted = _StringEncrypt(0, $OpenCD, $Encryption)
    $PassCheck = IniReadSection($File, "Password")
    If $PassCheck = $Decrypted Then
        MsgBox(4096, "CDLocker", "CD Draw unclocked!")
        $Locked = False
    ElseIf @error Then
        MsgBox(16, "CDLocker", "Invalid password!")
        Do
            $Locked = True
        Until $OpenCD = $Decrypted
    EndIf
EndFunc

Func CDPass()
    $Password = InputBox("Password", "Please specify a password:", "", "*")
    $Encrypted = _StringEncrypt(1, $Password, $Encryption)
    IniWrite($File, "Password", "Password", $Encrypted)
    MsgBox(4096, "Completed", "New password, saved and encrypted!")
EndFunc

I only made it quickly. I know it doesn't work. I made it a while ago, then I went ill and forgot about it. Try fix it up.

Thanks for the start. I will let you know how it goes.