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
Diskketten Passwortscript
-
- [ offen ]
-
Xaser -
8. Juli 2008 um 16:29 -
Geschlossen -
Erledigt
-
-
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
[/autoit][autoit][/autoit][autoit]
Dim $correctpassword = "blubb"; Eingabeaufforderung erstellen
[/autoit][autoit][/autoit][autoit]
SplashTextOn ( "Identifycheck", "Please insert the SFD to certify your identity", 400, 50 ); Security Floppy Disk erwarten
[/autoit]
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]
; Xasers securityscript
[/autoit][autoit][/autoit][autoit]; Variablen
[/autoit][autoit][/autoit][autoit]
Dim $correctpassword = "blubb"; Eingabeaufforderung erstellen
[/autoit][autoit][/autoit][autoit]
SplashTextOn ( "Identifycheck", "Please insert the SFD to certify your identity", 400, 50 ); Security Floppy Disk erwarten
[/autoit]
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 -
- Offizieller Beitrag
Ich habe Deine Version mal angepasst:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
; Xasers securityscript; Variablen
[/autoit] [autoit][/autoit] [autoit]
Dim $correctpassword = "blubb"; Eingabeaufforderung erstellen
[/autoit] [autoit][/autoit] [autoit]
SplashTextOn ( "Identifycheck", "Please insert the SFD to certify your identity", 400, 50 ); Security Floppy Disk erwarten
[/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 -
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
ZitatFunktion 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.
-
Oscars Lösung funzt perfekt, sehe auch keine Problem, warum es nicht funzen sollte...
-
bei mir funktioniert es nur irgendwie nicht^^ ich weiß nicht wieso, aber mein script ist jetzt gleich dem Oscars
-
- Offizieller Beitrag
Was funktioniert nicht? Welche Fehlermeldung?
-
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]
[/autoit] [autoit][/autoit] [autoit]
; Angaben anpassen
Global $serial = 0123456789 ; muss angepaßt werden durch die SN des USB-Sticks
Dim $correctpassword = "blubb"; prüft ob Dongle drinne ist
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
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; Funktin "USB"
[/autoit] [autoit][/autoit] [autoit]
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
EndFuncWhile 1
[/autoit]
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)
WEndFehlt 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.
-
ö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
-
- Offizieller Beitrag
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.dllSpoiler anzeigen
[autoit];DLL öffnen
[/autoit] [autoit][/autoit] [autoit]
$GLB_winlockdll = DllOpen("winlockdll.dll");alles blockieren
[/autoit] [autoit][/autoit] [autoit]
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);alles freigeben:
[/autoit]
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 !!!! -
okay danke.. schade das man sich da anmelden muss aber okay.. geilo endlich klappts!
-