Diskketten Passwortscript

    ich bin kein noob^^ hab das shcon längst mir msconfig furchgecheckt, es geht mir jetzt NUR noch um das script. aber wenn ich die Msgbox ersetze, wird doch wohl nicht besser funktionieren? es kommt immer die erste msgbox und wenn ich die diskkette einfüge, passiert nix

    1) Eine MsgBox blockiert das Skript, SplashTextOn nicht. Dafür ist auch dein Windows nicht blockiert. Schau dir doch z.B. Das an: [ offen ] hotkeyset...blockinput Musst nur die Passwortabfrage umstellen auf deine Diskette :)

    2) Auch msconfig zeigt nicht alle autostarts an :) AutoRuns zeigt da mehr.

    Spoiler anzeigen

    Hi!
    Habe das script jetzt mit splashtextshow gemacht, aber jetzt kommt immer folgende Fehlermeldung:
    [Blockierte Grafik: http://moonwell.mo.ohost.de/nonmoonwell/fehlermeldung.jpg]

    kann mir einer helfen, zu begreifen, was das heißt?

    EDIT:
    fehler behoben, Diskette kaputt.. aber trozdem habe ich noch 2 probleme
    wenn das script läuft und keine Diskette enthalten ist, kommt die Fehlermeldung
    [Blockierte Grafik: http://img236.imageshack.us/img236/9808/keindatentraeger2lb.gif]

    diese soll nicht kommen, wie umgehe ich das?

    2. wenn ich die Diskette mit dem Richtigen file einlege passiert nix.. wieso?

    [autoit]

    ; Xasers securityscript

    [/autoit][autoit][/autoit][autoit]

    ; Variablen
    Dim $correctpassword = "blubb"

    [/autoit][autoit][/autoit][autoit]

    ; Eingabeaufforderung erstellen
    SplashTextOn ( "Identifycheck", "Please insert the SFD to certify your identity", 400, 50 )

    [/autoit][autoit][/autoit][autoit]

    ; Security Floppy Disk erwarten
    While 1
    $data = FileOpen ( "A:\password.txt", 4 )
    $password = fileRead ( "$data", 512 )
    If @error then
    sleep ( 10 )
    elseIf not @error & $password = $correctpassword then
    SplashOff ()
    ; eingabe wieder freischalten
    BlockInput ( 0 )
    MsgBox ( 0, "Identititätstest", "correct SFD was found." )
    ; beenden
    Exit
    Endif
    WEnd

    [/autoit]

    Einmal editiert, zuletzt von Xaser (9. Juli 2008 um 19:01)

    [autoit]

    ; Xasers securityscript

    [/autoit][autoit][/autoit][autoit]

    ; Variablen
    Dim $correctpassword = "blubb"

    [/autoit][autoit][/autoit][autoit]

    ; Eingabeaufforderung erstellen
    SplashTextOn ( "Identifycheck", "Please insert the SFD to certify your identity", 400, 50 )

    [/autoit][autoit][/autoit][autoit]

    ; Security Floppy Disk erwarten
    While 1
    $data = FileOpen ( "A:\password.txt", 4 )
    $password = fileRead ( $data, 512 ) ; Die " sollte man bei $data schon weglassen. ;)
    If @error then
    sleep ( 10 )
    elseIf not @error & $password = $correctpassword then
    SplashOff ()
    ; eingabe wieder freischalten
    BlockInput ( 0 )
    MsgBox ( 0, "Identititätstest", "correct SFD was found." )
    ; beenden
    Exit
    Endif
    WEnd

    [/autoit]
    • Offizieller Beitrag

    Ich habe Deine Version mal angepasst:

    Spoiler anzeigen
    [autoit]


    ; Xasers securityscript

    [/autoit] [autoit][/autoit] [autoit]

    ; Variablen
    Dim $correctpassword = "blubb"

    [/autoit] [autoit][/autoit] [autoit]

    ; Eingabeaufforderung erstellen
    SplashTextOn ( "Identifycheck", "Please insert the SFD to certify your identity", 400, 50 )

    [/autoit] [autoit][/autoit] [autoit]

    ; Security Floppy Disk erwarten
    While 1
    If DriveStatus("A:\") = "READY" Then
    $password = fileRead("A:\password.txt")
    If @error then
    sleep ( 10 )
    elseIf $password = $correctpassword then
    SplashOff ()
    MsgBox ( 0, "Identititätstest", "correct SFD was found." )
    ; eingabe wieder freischalten
    BlockInput ( 0 )
    ; beenden
    Exit
    Endif
    EndIf
    Sleep(2000)
    WEnd

    [/autoit]

    hm schön und gut, die das fenster geht immer noch nicht weg... DENKT daran, das es eine DISKETTE ist.. für die scheint andere sachen zu gelten

    Zitat

    Funktion FileOpenWenn Modus "4" benutzt wird (Raw Read) ist der Dateiname als "\\.\A:" definiert. Um Sektoren einer Floppy zu lesen muss count ein Vielfaches der Sektorgröße(512) sein.

    bei mir funktioniert es nur irgendwie nicht^^ ich weiß nicht wieso, aber mein script ist jetzt gleich dem Oscars

    keine, aber sobald die diskette eingelegt wird, beruhigt sich das floppy wider aus seinem rottern und es passiert nix weiter

    muss ich die "" die ich oben beim pw angegeben habe, auch in das pw file übertragen?

    Hallo.

    Und wenn Du noch mehr Sicherheit haben möchtest, dann arbeite mit Diskette und Stick.

    Habe aus verschiedenen Forumbeiträge folgendes mal "zusammen geklebt":

    Spoiler anzeigen
    [autoit]


    ; Angaben anpassen
    Global $serial = 0123456789 ; muss angepaßt werden durch die SN des USB-Sticks
    Dim $correctpassword = "blubb"

    [/autoit] [autoit][/autoit] [autoit]

    ; prüft ob Dongle drinne ist
    If Not _USBDongle() Then
    MsgBox(0, "Kein USB Angeschlossen", "Hier kannst Du z. B. ein SHUTDOWN(0) einbauen.")
    ;Shutdown(0)
    Exit ; Wenn Du in der Zeile acht das Shutdown nutzt, dann diese Zeile weg und die MsgBog
    EndIf

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ; Funktin "USB"
    Func _USBDongle()
    ; Return "True" wenn gefunden
    For $i = 68 To 90 ; Laufwerksbuchstaben D - Z Wenn ab ab, dann 64 To 90
    If $serial = DriveGetSerial(Chr($i) & ':') Then Return Chr($i) & ':'
    Next
    Return 0
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    If DriveStatus("A:\") = "READY" Then
    $password = fileRead("A:\password.txt")
    If @error then
    sleep ( 10 )
    elseIf $password = $correctpassword then
    SplashOff ()
    MsgBox ( 0, "Identititätstest", "correct SFD was found." )
    ; eingabe wieder freischalten
    BlockInput ( 0 )
    ; beenden
    Exit
    Endif
    EndIf
    Sleep(2000)
    WEnd

    [/autoit]

    Fehlt USB-Stick mit der richtigen SN, dann geht nichts.
    Ist der Stick okay und die Diskette fehlt, dann geht auch nichts.

    Sind Diskette und Stick im LW / bzw. angeschlossen, dann erst geht es weiter.

    Du kannst es auch machen, das wenn z. B. der Stick fehlt, der PC wieder aus geht, das wäre dann ein "Shutdown(0)".

    Wie gesagt, alle Informationen hier aus dem Forum. Es lebe die gesund genutzte SuFu und die Hilfe der User. ;)

    Und mit etwas Zeit, kann man das Script sicherlich noch um 30% bis 50% kürzen. Oder noch mehr? Aber es soll ja eine Anregung sein.

    Und ich gebe o. g. RECHT, es geht langsam in den Bereich "Sicherheitsrisiko" und nicht mehr "Sicherheit".

    LG, Crazy-A.

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    OuBVU5ebLhHu5QvlnAyQB4A7SzBrvWulwL7RLl2BdH5tI6sIYspeMKeXMSXl

    öhm... ja.. danke erstmal... ich denke die sache mit dem USB stick soll bewirken, das kein Programm von einem Stick aus, das tool hacken kann, aber mein Virenprogramm lässt sowieso nix aus irgendwelchen Massenspeichergeräten raus, bevor ich das nicht freigebe :P

    • Offizieller Beitrag
    Zitat von Xaser

    muss ich die "" die ich oben beim pw angegeben habe, auch in das pw file übertragen?

    Nein, aber alles was zwischen den Anführungszeichen steht, muss so auch in der Datei A:\Password.txt stehen (ohne zusätzliche Leerzeichen etc.).

    Hast Du an meinem Script noch was geändert? Dann poste mal Dein aktuelles Script.
    Weil, bei mir funktioniert mein Script.

    so es funzt jetzt endlich.. leider warst du mit deiner antwort nen bisschen zu spät bis dahin hatte ich es nähmlich auch schon raus ;)

    aber okay, was mich noch nen bisschen ärgert ist, das man das Blockinput immernoch mit ALT+Strg+ENTF umgehen kann... kann man das auch irgendwie ausschalten?

    Aus: [ offen ] hotkeyset...blockinput
    Die DLL gibt es hier: http://www.codeproject.com/KB/winsdk/AntonioWinLock.aspx (kannst du ja aich umbenennen n z.B. compres.dll

    Spoiler anzeigen
    [autoit]

    ;DLL öffnen
    $GLB_winlockdll = DllOpen("winlockdll.dll")

    [/autoit] [autoit][/autoit] [autoit]

    ;alles blockieren
    DllCall($GLB_winlockdll,"int","Desktop_Show_Hide","int",0)
    DllCall($GLB_winlockdll,"int","Taskbar_Show_Hide","int",0)
    DllCall($GLB_winlockdll,"int","TaskSwitching_Enable_Disable","int",0)
    DllCall($GLB_winlockdll,"int","TaskManager_Enable_Disable","int",0)
    DllCall($GLB_winlockdll, 'Int', 'CtrlAltDel_Enable_Disable', 'Int', 0)

    [/autoit] [autoit][/autoit] [autoit]

    ;alles freigeben:
    DllCall($GLB_winlockdll,"int","Desktop_Show_Hide","int",1)
    DllCall($GLB_winlockdll,"int","Taskbar_Show_Hide","int",1)
    DllCall($GLB_winlockdll,"int","TaskSwitching_Enable_Disable","int",1)
    DllCall($GLB_winlockdll,"int","TaskManager_Enable_Disable","int",1)
    DllCall($GLB_winlockdll, 'Int', 'CtrlAltDel_Enable_Disable', 'Int', 1) ; WICHTIG !!!!

    [/autoit]