bilder und screens
Beiträge von Neonium
-
-
redest du von meinem programm ich war lang nich mehr hier hab dir mal ne pn geschickt
-
In vb gibs eine eingeschaft die immer auf esc reagiert gibs sowas auch in autoit ??
habs mal wieder selber gefundn
-
Ist es möglich eine Funktion vorzeitig zu beenden ohne das GUI Fenster zu beenden.
Update: hat sich erledigt habs selber rausgefunden das unter autoit auch return 0 gibt
-
Ich hab nochmal dran gearbeitet und bisschen was verändert schaut einfach mal rein
-
Hab nochmal neu hochlgeladen mit source code, dll und exe mit dem ordner fix. Das Datei verschlüsseln kann sehr lange dauern. kommt auf file inhalt und bitlänge an.
-
Ich weiß das man nur Publicfile fürs verschlüsseln und private fürs entschlüsseln.
Wie der speicherort is zu star unter xp kann ich alle ordner haben die ich will.
Hier der Quellcode
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GUIConstants.au3>
PluginOpen("rsa.dll")
#compiler_plugin_funcs = RSA_GenerateKeys, RSA_Encrypt, RSA_DecryptOpt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]
#Region ### START Koda GUI section ###
$Form1_1 = GUICreate("RSA Verschüsselung", 347, 275, 193, 115)
GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1_1Close")
$tab=GUICtrlCreateTab (10,10, 325,260)
$tab0=GUICtrlCreateTabitem ("File")
$vschluessel = GUICtrlCreateButton("Verschüsseln", 40, 230, 115, 25, 0)
GUICtrlSetOnEvent(-1, "vschluesselClick")
$nschluessel = GUICtrlCreateButton("Entschüsseln", 180, 230, 115, 25, 0)
GUICtrlSetOnEvent(-1, "nschluesselClick")
$Public = GUICtrlCreateLabel("PublicKey File", 20, 124, 70, 17)
$Priv = GUICtrlCreateLabel("PrivateKey File", 20, 152, 74, 17)
$PrivFile = GUICtrlCreateInput("", 104, 152, 117, 21)
$Pubfile = GUICtrlCreateInput("", 104, 120, 117, 21)
$BrowsePub = GUICtrlCreateButton("Browse", 236, 120, 89, 25, 0)
GUICtrlSetOnEvent(-1, "BrowsePubClick")
$BrowsePrv = GUICtrlCreateButton("Browse", 236, 152, 89, 25, 0)
GUICtrlSetOnEvent(-1, "BrowsePrvClick")
$BrowseDat = GUICtrlCreateButton("Browse", 236, 52, 89, 25, 0)
GUICtrlSetOnEvent(-1, "BrowseDatClick")
$Label1 = GUICtrlCreateLabel("Datei die Verschüsselt werden soll:", 28, 37, 168, 17)
$Datei = GUICtrlCreateInput("", 28, 56, 197, 21)
$privfilegen = GUICtrlCreateButton("Key Files Generieren", 100, 190, 125, 25, 0)
GUICtrlSetOnEvent(-1, "privfilegenClick")$tab1=GUICtrlCreateTabitem ( "Password")
[/autoit] [autoit][/autoit] [autoit]$vschluesselp = GUICtrlCreateButton("Verschüsseln", 40, 230, 115, 25, 0)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetOnEvent(-1, "vschluesselpClick")
$nschluesselp = GUICtrlCreateButton("Entschüsseln", 180, 230, 115, 25, 0)
GUICtrlSetOnEvent(-1, "nschluesselpClick")
$Publicp = GUICtrlCreateLabel("PublicKey File", 20, 124, 70, 17)
$Privp = GUICtrlCreateLabel("PrivateKey File", 20, 152, 74, 17)
$PrivFilep = GUICtrlCreateInput("", 104, 152, 117, 21)
$Pubfilep = GUICtrlCreateInput("", 104, 120, 117, 21)
$BrowsePubp = GUICtrlCreateButton("Browse", 236, 120, 89, 25, 0)
GUICtrlSetOnEvent(-1, "BrowsePubpClick")
$BrowsePrvp = GUICtrlCreateButton("Browse", 236, 152, 89, 25, 0)
GUICtrlSetOnEvent(-1, "BrowsePrvpClick")
$privfilegenp = GUICtrlCreateButton("Key Files Generieren", 100, 190, 125, 25, 0)
GUICtrlSetOnEvent(-1, "privfilegenClick")
$Label1p = GUICtrlCreateLabel("Password Unverschlüsselt", 60, 37, 200, 17)
$Dateip = GUICtrlCreateInput("", 60, 56, 197, 21)
$Label2p = GUICtrlCreateLabel("Password Verschüsselt:", 60, 78, 200, 17)
$pwp = GUICtrlCreateInput("", 60, 93, 197, 21)
$clipputp = GUICtrlCreateButton("Kopieren", 265, 93, 60, 21)
GUICtrlSetOnEvent(-1, "clipputpClick")GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#EndRegion ### END Koda GUI section ###$var = IniRead(@WorkingDir&"\file.ini", "privkey", "key", "")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($PrivFile,$var)
$var = IniRead(@WorkingDir&"\file.ini", "pubkey", "key", "")
GUICtrlSetData($Pubfile,$var)
$var = IniRead(@WorkingDir&"\file.ini", "privkeyp", "key", "")
GUICtrlSetData($PrivFilep,$var)
$var = IniRead(@WorkingDir&"\file.ini", "pubkeyp", "key", "")
GUICtrlSetData($Pubfilep,$var)While 1
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()If $msg = $GUI_EVENT_CLOSE Then ExitLoop
[/autoit] [autoit][/autoit] [autoit]
if $msg = $tab then
; display the clicked tab
if GUICtrlread ($tab) = 0 then WinSetTitle("My GUI Tab","","My GUI Tab0")
if GUICtrlread ($tab) = 1 then WinSetTitle("My GUI Tab","","My GUI Tab1")
EndIf
WendFunc AForm1_1Close()
[/autoit] [autoit][/autoit] [autoit]
$readpriv = GUICtrlRead($PrivFile)
$readpub = GUICtrlRead($Pubfile)
$readprivp = GUICtrlRead($PrivFilep)
$readpubp = GUICtrlRead($Pubfilep)
IniDelete(@ScriptDir&"\file.ini", "privkeyp")
IniDelete(@ScriptDir&"\file.ini", "pubkeyp")
IniDelete(@ScriptDir&"\file.ini", "privkey")
IniDelete(@ScriptDir&"\file.ini", "pubkey")
if $readpriv <> "" Then
IniWrite(@ScriptDir&"\file.ini", "privkey", "key", $readpriv)
EndIf
if $readpub <> "" Then
IniWrite(@ScriptDir&"\file.ini", "pubkey", "key", $readpub)
endif
if $readprivp <> "" Then
IniWrite(@ScriptDir&"\file.ini", "privkeyp", "key", $readprivp)
EndIf
if $readpubp <> "" Then
IniWrite(@ScriptDir&"\file.ini", "pubkeyp", "key", $readpubp)
endif
$var = MsgBox(4,"Aufhören???","Wollen Sie das Programm wirklich beenden?")
if $var = 6 then exit
EndFuncFunc BrowseDatClick()
[/autoit] [autoit][/autoit] [autoit]
$readdatei = GUICtrlRead($Datei)
$var = FileOpenDialog("Datei",$readdatei,"Textdateien (*.txt)",1)
GUICtrlSetData($Datei,$var)
EndFunc
Func BrowsePrvClick()
$readpriv = GUICtrlRead($PrivFile)
$var = FileOpenDialog("Datei",$readpriv,"Private (*.privkey)",1)
GUICtrlSetData($PrivFile,$var)
EndFuncFunc BrowsePubClick()
[/autoit] [autoit][/autoit] [autoit]
$readpub = GUICtrlRead($Pubfile)
$var = FileOpenDialog("Datei",$readpub,"Public (*.pubkey)",1)
GUICtrlSetData($Pubfile,$var)
EndFuncFunc nschluesselClick()
[/autoit] [autoit][/autoit] [autoit]
$readpriv = GUICtrlRead($PrivFile)
$read = GUICtrlRead($Datei)
if $readpriv = "" or $read = "" Then
MsgBox(0,"ERROR","Bitte Wählen sie erst die Key Files aus")
Else
FileMove($read, "c:\tmp\test.txt")
FileChangeDir("C:\tmp")
$file = fileopen("test.txt",0)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
$line = FileRead($file)
FileClose($file)
$line = RSA_Decrypt($line,$readpriv)
$file = FileOpen("test.txt",2)
FileWrite($file,$line)
FileClose($file)
FileMove("C:\tmp\test.txt",$read)
MsgBox(0,"","erfolgreich")
EndIf
EndFuncFunc vschluesselClick()
[/autoit] [autoit][/autoit] [autoit]
$readpub = GUICtrlRead($Pubfile)
$read = GUICtrlRead($Datei)
if $readpub = "" or $read = "" Then
MsgBox(0,"ERROR","Bitte Wählen sie erst die Key Files aus")
Else
FileMove($read, "C:\tmp\test.txt")
FileChangeDir("C:\tmp")
$file = fileopen("test.txt",0)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
$line = FileRead($file)
FileClose($file)
$line = RSA_Encrypt($line,$readpub)
$file = FileOpen("test.txt",2)
FileWrite($file,$line)
FileClose($file)
FileMove("C:\tmp\test.txt",$read)
MsgBox(0,"Erfolgreich","Erfolgreich verschüsselt")
EndIf
EndFuncFunc privfilegenClick()
[/autoit] [autoit][/autoit] [autoit]
$folder = FileSelectFolder("Speicherort für Keyfiles", @DesktopCommonDir,1)
$folder = $folder & "\"
$bitlen = InputBox("Bitlänge", "Key Bitlänge", "50")
$name = InputBox("Speichername", "Speichername der Keyfiles")
if $folder <> "" and $name <> "" and $bitlen <> "" Then
RSA_GenerateKeys ($bitlen, $folder, $name)
MsgBox(0,"Erfolgreich","Keys wurden erfolgreich erstellt")
Else
MsgBox(0,"Error","Bitte alle Angaben machen")
EndIf
EndFuncFunc BrowsePrvpClick()
[/autoit] [autoit][/autoit] [autoit]
$readpriv = GUICtrlRead($PrivFilep)
$var = FileOpenDialog("Datei",$readpriv,"Private (*.privkey)",1)
GUICtrlSetData($PrivFilep,$var)
EndFuncFunc BrowsePubpClick()
[/autoit] [autoit][/autoit] [autoit]
$readpub = GUICtrlRead($Pubfilep)
$var = FileOpenDialog("Datei",$readpub,"Public (*.pubkey)",1)
GUICtrlSetData($Pubfilep,$var)
EndFuncFunc nschluesselpClick()
[/autoit] [autoit][/autoit] [autoit]
$readpriv = GUICtrlRead($PrivFilep)
$read = GUICtrlRead($pwp)
if $readpriv = "" or $read = "" Then
MsgBox(0,"ERROR","Bitte Wählen sie erst die Key Files aus")
Else
$pw = RSA_Decrypt($read,$readpriv)
GUICtrlSetData($Dateip,$pw)
EndIf
EndFuncFunc vschluesselpClick()
[/autoit] [autoit][/autoit] [autoit]
$readpub = GUICtrlRead($Pubfilep)
$read = GUICtrlRead($Dateip)
if $readpub = "" or $read = "" Then
MsgBox(0,"ERROR","Bitte Wählen sie erst die Key Files aus")
Else
$pw = RSA_Encrypt($read,$readpub)
GUICtrlSetData($pwp,$pw)
EndIf
EndFuncFunc clipputpClick()
[/autoit]
ClipPut(GUICtrlRead($pwp))
EndFuncwürd gern noch einbauen das eine Fehlermeldung kommt wenn man die falschen Files zum entschlüsseln nimmt wird aber schwer wenn man nich weiß was die dll dann zurück gibt.
-
Ich hab mal mit peethebee RSA Verschüsselung ein Programm geschrieben.
Funktionen:
- Ver- und Entschlüsselung von Textdatein und Passwörtern
- Generieren von Public und Privatkeys (getestet bis 256bit)
- Beim Verschüsseln kann man die Keyfiles auswählnvieleicht interesierts ja ein von euch