Beiträge von bobekos

Moin,

hab für's Zuhause ein kleines Tool programmiert um meine "unwichtigen" Passwörter zu speichern.
Ich weiß das AutoIT sich da nicht so gut dafür eignet aber zumindest wird das PW nicht im Script zu finden sein und in der INI Datei wird auch alles verschlüsselt.
Das Master "PW" wird mit SHA1 verschlüsselt. Die Passwörter selbst mit AES256Bit.Über mein Script Chaos bin ich informiert.
Schon mal danke für Feedback ob gut oder böse.

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

#include <GUIConstantsEx.au3>
#include <Crypt.au3>
#include <Array.au3>
#include <ListboxConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

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

Opt("GUIOnEventMode",1)
;VARIABLEN
Global $data = @ScriptDir&"\Daten.pwd"
Global $config = IniRead($data,"Config","1","-1")
Global $pwwrong = 0
;GUI'S
$sForm1 = GUICreate("Master Passwort erstellen:", 260, 90, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
$sInput1 = GUICtrlCreateInput("", 8, 8, 244, 21,$ES_PASSWORD)
GUICtrlSendMsg(-1, 0x1501, 0, "Master Passwort")
$sInput2 = GUICtrlCreateInput("", 8, 32, 244, 21,$ES_PASSWORD)
GUICtrlSendMsg(-1, 0x1501, 0, "Wiederholen")
$sButton1 = GUICtrlCreateButton("PW Erstellen", 8, 56, 244, 25)
GUICtrlSetOnEvent($sButton1,"_MasterKey")
GUISetState(@SW_HIDE,$sForm1)
;-----------------------------
$Form1 = GUICreate("Bobek's Passwort Tresor", 393, 220, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
$List1 = GUICtrlCreateList("", 8, 8, 185, 211,$LBS_SORT )
$Button1 = GUICtrlCreateButton("Zeige Benutzername und PW", 208, 45,180, 25)
GUICtrlSetOnEvent($Button1,"_restore")
$Input1 = GUICtrlCreateInput("", 208, 112, 179, 21)
GUICtrlSendMsg(-1, 0x1501, 0, "Titel")
$Input2 = GUICtrlCreateInput("", 208, 144, 179, 21)
GUICtrlSendMsg(-1, 0x1501, 0, "Benutzername")
$Input3 = GUICtrlCreateInput("", 208, 165, 179, 21)
GUICtrlSendMsg(-1, 0x1501, 0, "Passwort")
$Button2 = GUICtrlCreateButton("Verschlüsseln und Erzeugen", 208, 190, 179, 25)
GUICtrlSetOnEvent($Button2,"_save")
GUISetState(@SW_HIDE,$Form1)

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

;Erster Start
If $config = "-1" Then
_MasterKeyErzeugen()
Else
_PWEingabe()
EndIf

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

Func _PWEingabe()
Global $hMInput = InputBox("Bobek's Passwort Tresor","Bitte Passwort eingeben:","","*")
If @error Then
Exit
EndIf
$hashMInput = _Crypt_HashData($hMInput,$CALG_SHA1)
If $config = $hashMInput Then
_Main()
Else
MsgBox(0,"Fehler","Passwort stimmt nicht")
$pwwrong = $pwwrong + 1
If $pwwrong = 3 Then
MsgBox(0,"Fehler","Sie haben das Passwort 3-mal falsch eingegeben.Das Programm wird beendet.")
Exit
Else
_PWEingabe()
EndIf
EndIf
Endfunc

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

Func _Main()
GUISetState(@SW_SHOW,$Form1)

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

Global $read_data = IniReadSectionNames($data)
For $i = 1 to UBound($read_data) -1
If $read_data[$i] = "config" Then
ContinueLoop
EndIf
GUICtrlSetData($List1,$read_data[$i])
Next
EndFunc

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

;Hauptschleife
While 1
Sleep(10)
WEnd

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

;Funktionen

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

Func _MasterKeyErzeugen()
GUISetState(@SW_SHOW,$sForm1)
EndFunc

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

Func _save()
$titel = GUICtrlRead($Input1)
$username = GUICtrlRead($Input2)
$passwort = GUICtrlRead($Input3)
If $titel = "" Or $username = "" Or $passwort = "" Then
MsgBox(16,"Fehler","Angaben fehlen")
Return 0
EndIf
$bUserName = _Crypt_EncryptData($username, $hMInput,$CALG_AES_256)
$bPassWord = _Crypt_EncryptData($passwort, $hMInput,$CALG_AES_256)
IniWrite($data,$titel,"1",$bUserName)
IniWrite($data,$titel,"2",$bPassWord)
GUICtrlSetData($Input1,"")
GUICtrlSetData($Input2,"")
GUICtrlSetData($Input3,"")
GUICtrlSetData($List1,$titel,"")
EndFunc

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

Func _restore()
$listdata = GUICtrlRead($List1)
If $listdata = "" Then
Return 0
EndIf
$dUsername = _Crypt_DecryptData(IniRead($data,$listdata,"1",""), $hMInput, $CALG_AES_256)
$dPasswort = _Crypt_DecryptData(IniRead($data,$listdata,"2",""), $hMInput, $CALG_AES_256)
MsgBox(0,$listdata,"Benutzername: "&BinaryToString($dUsername)&@CRLF&"Passwort: "&BinaryToString($dPasswort))
EndFunc

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

Func _MasterKey()
If GUICtrlRead($sInput1) <> GUICtrlRead($sInput2) Then
MsgBox(16,"Fehler","Passwörter stimmen nicht überein")
GUICtrlSetData($sInput1,"")
GUICtrlSetData($sInput2,"")
Return 0
EndIf
$config = _Crypt_HashData(GUICtrlRead($sInput1),$CALG_SHA1)
IniWrite($data,"Config","1",$config)
GUISetState(@SW_HIDE,$sForm1)
MsgBox(0,"Bobek's PW Tresor","Passwort erfolgreich erstellt.Das Programm muss neugestartet werden")
Exit
EndFunc

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

Func SpecialEvents()
Select
Case @GUI_CtrlId = $GUI_EVENT_CLOSE
Exit
EndSelect
EndFunc

[/autoit]

man benötigt natürlich die Crypt.au3 udf.

Viel Spaß

Wie aber schon BugFix angedeutet hat, finde ich die Idee mit der Email besser als die mit der SMS.
So könnte man noch ein Screenshot mitschicken und du würdest dann beurteilen können ob es keine Falschmeldung gab.
Heutzutage hat ja fast jeder "mobiles" Internet so kann man dann auch unterwegs schnell nachgucken was Sache ist.

Du kannst BIOS nicht löschen sondern mur falsch flashen ... Seid dem update kommst du nicht mehr rein oder schon vorher ich würde wie gesagt entweder alle möglichen tastenkombis ausprobieren oder CMOS löschen dann sind wieder die werkseinstellugen drin und somit andere boot-reihenfolge

Hallo,

ich wollte nachfragen ob jemand vielleicht eine Möglichkeit kennt einen PDF147 Barcode mithilfe von Autoit zu erstellen.
Ich hab schon bisschen gegooglet aber nichts passendes gefunden (auch die ganze "freeware" bietet mir einfach zu viel und die Online Varianten "darf" ich nicht benutzen)
Gibt es da vielleicht eine DLL die solche Funktionen hat?

Vielen Dank für eure Mühe

über 3000 Zeilen nicht schlecht

Hallo,

wollte fragen ob es eine Möglichkeit gibt die Fensterleiste (Schließen,Minimieren,Maximieren) auf irgendeine Weise zu erweitern mit einer eigenen Funktion.
Wollte es schon irgendwie über die user32.dll dran aber ich komme da nicht weit.

Hat jemand eine Idee?

Vielen Dank

Hast du vil. schon mal CMOS gelöscht? Wenn nicht dann alles raus Akku , Strom. Entweder gibt es eine entsprechende Jumper Stellung auf dem Mainboard oder du machst einfach für 10 Sek. die (BIOS)Batterie raus und wieder rein. Seid wann ist das denn so? Ist etwas besonderes passiert?

Schade nur das ich wirklich so um die "30-40" Spiele spielen muss damit die KI einigermaßen dagegen hält. Besser wäre eine Zentrale Brain.ini irgendwo auf dem Server wo mehere Spieler zugriff drauf hätten. Somit hätten wir nach ner Zeit eine unbesiegbare KI. HAHAHAHAHAHAHAHAHAHAH *diabolisches Lachen*

Wieso ist da eine While schleife bitte?

Du muss das doch nur einmal abfragen oder nicht?

Dann einfach

[autoit]

Local $line = FileReadLine($file,1)

[/autoit]

Oder wie sieht die Datei aus??? Oder ist da nicht nur eine zeile laut deinem Script oben wird die ja nur einmal reingeschrieben.

Danke AspirinJunkie genau das was ich gesucht hab.

Moin,

ich hab mich gefragt ob es eine Möglichkeit gibt den Kopierbefehl von Windows irgendwie abzufangen?
Und wenn ja dann wie?
Also einmal strg+c und einmal das Kopieren aus dem Kontextmenü selbst.

Vil. hat jemand schon sowas ausprobiert und könnte mir paar Vorschläge geben.

Vielen Dank

wie wird der Kartenleser angeschlossen USB oder seriell?

Du kannst natürlich bei Exitloop angeben welche Schleife gekillt werden soll. [level]

Schonmal dran gedacht das die Treiber für die Hotkeys am Laptop nicht installiert sind?

Welchen @error Wert gibt die Funktion zurück:

1 = Der Computer ist offline
2 = Der Computer ist nicht erreichbar
3 = Falsche Adresse
4 = Andere Fehler

"Acer ICONIA W510-27602G03iss 32 GB" Was ist hier mit?
Läuft unter WIN8 ist das nicht auch AutoIT kompatibel? Oder handelt es sich hier um eine andere WIN Variante?
Kostet bei Amazon 499€

Also meiner leitet sich von der Zeichentrickserie "die Mumins" ab. In der Serie gibt's nen Bösewicht mit dem Namen "Stinky".
Da ich aber in Polen aufgewachsen bin wo man ihn "Bobek" nannte hab ich einfach "os" dran gehängt und so kam dann Bobekos raus.

kannst du es einfach nicht als

[autoit]

SCRIPT

[/autoit]

posten
"[autoit]" script "[autoit]" syntax (ohne Anführungszeichen)
ich meine keiner lädt sich unbekannte Sachen gern auf den Rechner

Zitat von hauke96

Hallo,

ich hatte das Problem auch und die Schule ( lustigerwiese ) auch.
Bei beiden Fällen war das Netzteil die Ursache: Bei mir steckte der Stecker am Mainboard nicht richtig, sodass es dort einen Wackelkontakt gab und in der Schule war es einfack kaputt.

Also: Mach den Rechner einfach mal auf und guck ob alle Stecker richtig stecken und nichts großartig wackelt oder lose ist.

mfg
Hauke

solange der Rechner nicht auf einer Waschmaschine steht bezweifele ich das es sich um einen Wackelkontakt handelt. Netzteil ist auch so eine Sache meistens geht der Rechner dann einfach nicht an.Ich tippe auf Überhitzung, Virus , Systemfehler oder defekten RAM.

sagt das ereignislog etwas?