Beiträge von Neonium

Datei und Pw verschlüsselung mit RSA

Neonium

15. Mai 2007 um 18:27
bilder und screens
Datei und Pw verschlüsselung mit RSA

Neonium

12. Mai 2007 um 23:40
redest du von meinem programm ich war lang nich mehr hier hab dir mal ne pn geschickt
Button eigenschaft

Neonium

3. April 2007 um 10:03
In vb gibs eine eingeschaft die immer auf esc reagiert gibs sowas auch in autoit ??
habs mal wieder selber gefundn
Funktions abbruch

Neonium

29. März 2007 um 15:48
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
Datei und Pw verschlüsselung mit RSA

Neonium

29. März 2007 um 14:16
Ich hab nochmal dran gearbeitet und bisschen was verändert schaut einfach mal rein
Dateien

rsacrypt.zip 418,14 kB – 381 Downloads
Datei und Pw verschlüsselung mit RSA

Neonium

28. März 2007 um 15:51
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.
Datei und Pw verschlüsselung mit RSA

Neonium

28. März 2007 um 15:28
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]

#include <GUIConstants.au3>
PluginOpen("rsa.dll")
#compiler_plugin_funcs = RSA_GenerateKeys, RSA_Encrypt, RSA_Decrypt
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Opt("GUIOnEventMode", 1)
#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")
[/autoit] [autoit][/autoit] [autoit]
$tab1=GUICtrlCreateTabitem ( "Password")
[/autoit] [autoit][/autoit] [autoit]
$vschluesselp = GUICtrlCreateButton("Verschüsseln", 40, 230, 115, 25, 0)
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")
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$var = IniRead(@WorkingDir&"\file.ini", "privkey", "key", "")
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)
[/autoit] [autoit][/autoit] [autoit]
While 1
$msg = GUIGetMsg()
[/autoit] [autoit][/autoit] [autoit]
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
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
Wend
[/autoit] [autoit][/autoit] [autoit]
Func AForm1_1Close()
$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
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func BrowseDatClick()
$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)
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func BrowsePubClick()
$readpub = GUICtrlRead($Pubfile)
$var = FileOpenDialog("Datei",$readpub,"Public (*.pubkey)",1)
GUICtrlSetData($Pubfile,$var)
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func nschluesselClick()

$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
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func vschluesselClick()
$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
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func privfilegenClick()
$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
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func BrowsePrvpClick()
$readpriv = GUICtrlRead($PrivFilep)
$var = FileOpenDialog("Datei",$readpriv,"Private (*.privkey)",1)
GUICtrlSetData($PrivFilep,$var)
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func BrowsePubpClick()
$readpub = GUICtrlRead($Pubfilep)
$var = FileOpenDialog("Datei",$readpub,"Public (*.pubkey)",1)
GUICtrlSetData($Pubfilep,$var)
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func nschluesselpClick()
$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
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func vschluesselpClick()
$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
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func clipputpClick()
ClipPut(GUICtrlRead($pwp))
EndFunc
[/autoit]

wü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.
Datei und Pw verschlüsselung mit RSA

Neonium

28. März 2007 um 14:45
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ähln
vieleicht interesierts ja ein von euch
Dateien

rsacrypt.zip 417,55 kB – 394 Downloads

In deinem Webbrowser ist JavaScript deaktiviert. Um alle Funktionen dieser Website nutzen zu können, muss JavaScript aktiviert sein.