Brisante Nachrichten über das Web austauschen. (pixelCrypt)

[thesly]

Ich habe heute ein Tool für Windows entwickelt.
Es ermöglicht 100% geheime Nachrichten über das Internet zu verschicken, die kein Geheimdienst der Welt entschlüsseln kann (sofern das Tool richtig genutzt wird).

Daten(Text) werden in ein Bild (*.bmp) gespeichert.
Das orginale Bild dient als "Passwort".

Zum decodieren werden beide Bilder veglichen, pixel für pixel , aus den Unterschieden errechnet sich der Text zurück.

Ohne Orginalbild ist ein decodieren unmöglich, sofern jedes Bild nur ein Mal zum Code senden verwendet wird.
Daher: Sollte ein Bild das Code enthält in die Hände eines Geheimdienstes fallen, sind die Daten nicht auslesbar / decodierbar (ohne das Orginalbild zu besitzen).

Sofern Orginalbilder nur persönlich ausgetauscht ( oder über Speicherkarte per post versendet) werden, ist sicherer Informationsaustausch garantiert.

Die Daten sind also wirklich sicher , und können über das Internet verschickt werden , ohne Angst!
Nur dem Besitzer des Orginalbildes ist es möglich, die Daten entschlüsseln.

Irgent welche Fragen? (Bei Off-topic / source-code Fragen / Setup Programm für PixelCrypt + Anleitung ... bitte PN)

LG thesly

[Leader]

Um ganz sicher zu sein, braucht man einen Zweitrechner ohne Internetanschluß.

[thesly]

Das meinte ich mit "(sofern das Tool richtig genutzt wird)".

[Phreak]

@thesly: Ich will Deine Arbeit ja nicht schlecht machen, aber wer sagt uns, dass Du (auch als Frischling in diesem Forum) nicht von der anderen Seite bist und uns hier vielleicht den Bundestrojaner anbietest ???

Und wie sieht es denn mit dem Quellcode aus ? Kann man den einsehen bzw. prüfen ?

Btw.: Mal eben an einem Tag ein Programm mit unknackbaren Algorythmus schreiben ? Absolut unmöglich. (Sagt Dir Bruce Schneier etwas ?)

Gruß,
Phreak

[thesly]

Souce Code , biete ich an, kann jeder einsehen, sende dir auch gern das Project in VB 2008.
Kannst es selber einsehen und kompilieren.

Die Idee ist schon ein paar Jahre alt.

Zum "knacken" , du weist schon das jeder Pixel 16 millionen verschiedenen Farben speichern kann? Die pixelfarbe ist nicht vorhersehbar.
Um so mehr "rauschen" im Bild um so sicherer.
Codierst du den Text (unverschlüsselt) auf nem einfarbigen bild, lese ich die Daten mit nem Bildeditor wieder aus .
Währe wie nen passwort "111111111" z.b. , einfach zu knacken....
Das Bild ist das Passwort, jeder pixel codiert ein Zeichen.
Der orginale Pixel ist das Passwort.

Niemand kann ohne Orginalbild aus dem Pixeln wieder Text erechnen (sofern das orginalbild nicht einfarbig ist).
(du kannst den text ja z.b. schon vorher codieren , und dann im bild speichern, dann ists 1000% unmöglich)
tio
Ausserdem sieht das benutzte Bild weiterhin "normal" aus. Ein Foto sieht aus wie das Foto vorher.
Du musst erst wissen, das die Information genau in diesem Bild gespeichert wurde.

Schonmal (bei 10000 Zeichen/ Pixeln sinds) 10000 verschiedene Passwörter benutzt?

unknackbarer Algorythmus , ok , knacken kannst alles, aber was nützt die info dem BND / CIA 1000 Jahren später (nach dem entschlüsseln(glaub das knacken die nie)) noch ?

Einfach erklärt:
Jeder Pixel verbirgt ein Zeichencode, aber ohne Hinweis welcher das sein kann.
Jeder Pixel kann immer jedes Zeichen enthalten.
Also kannst du alles hineininterpretieren.... alles , sogar das was ich gerade schreibe.
Sogar in ein Bild ohne Daten!


@PhreaK (will dich nich angreifen)
Niemand kann Wissen was dort wirklich steht.
Und: Ich verstehe was von Mathematik.
Die (NWO-brainwashed-fraction) Lügen so viel, das selbst du nicht glaubst das es so einfach ist.
Aber es ist so einfach !

[thesly]

Quellcode :
Public Class PixelCrypt
Dim _path As String
Dim _Breit, _hoch, _pixel, _A, _R, _G, _B, _orgA, _orgB, _orgG, _orgR, _decryp, _decryp2, _zaelfuermich As Int32
Dim _grundbild, _vorbild, _encodedBMP, _endbild, _dec_picorg, _dec_piccod As Bitmap
Dim _color_old, _color_new As Color
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dialog1.ShowDialog()
If Dialog1.DialogResult = Windows.Forms.DialogResult.OK Then
Me.Close()
Else
End If
End Sub
Private Sub PixelCrypt_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DecodeTool.Enabled = False
If My.Settings.Checked = False Then
Dialog2.ShowDialog()
If Dialog2.DialogResult = Windows.Forms.DialogResult.OK Then
DecodingToolStripMenuItem.Visible = False
Button1.Visible = False
Button2.Visible = True
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False
Me.Text = "PixelCrypter" + " * Modus:" + " Encoding"
End If
If Dialog2.DialogResult = Windows.Forms.DialogResult.Cancel Then
LoadToolStripMenuItem.Visible = False
TableLayoutPanel3.Visible = False
TableLayoutPanel3.Width = 1
Label1.Visible = False
Me.Text = "PixelCrypter" + " * Modus:" + " Decoding"
End If
Else
If My.Settings.Start_encrypt = True Then
DecodingToolStripMenuItem.Visible = False
Button1.Visible = False
Button2.Visible = True
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False
Me.Text = "PixelCrypter" + " * Modus:" + " Encoding"
Else
LoadToolStripMenuItem.Visible = False
TableLayoutPanel3.Visible = False
TableLayoutPanel3.Width = 1
Label1.Visible = False
Me.Text = "PixelCrypter" + " * Modus:" + " Decoding"
End If
End If
Me.Location = New Point((My.Computer.Screen.WorkingArea.Width / 2) - (Me.Size.Width / 2), (My.Computer.Screen.WorkingArea.Height / 2) - (Me.Size.Height / 2))
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
open()
End Sub
Private Sub open()
OpenFileDialog1.Title = "Open Image to prepare"
OpenFileDialog1.InitialDirectory = My.Settings.Intitialpath
OpenFileDialog1.Filter = "BMP files (*.bmp)|*.bmp"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.RestoreDirectory = True
OpenFileDialog1.FileName = ""
OpenFileDialog1.ShowDialog()
Try
If OpenFileDialog1.FileName <> "" Then
TextBox1.Enabled = False
Button3.Enabled = True
_path = OpenFileDialog1.FileName
Dim bild As New Bitmap(_path)
_grundbild = bild
My.Settings.Intitialpath = OpenFileDialog1.RestoreDirectory
My.Settings.Save()
PictureBox1.Image = _grundbild
_pixel = _grundbild.Width * _grundbild.Height
_Breit = _grundbild.Width
_hoch = _grundbild.Height
Button3.Enabled = True
Button3.Visible = True
Label1.Text = "Next Step : Prepare BMP"
End If
Catch ex As Exception
End Try
End Sub
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
_encodedBMP = _grundbild
ProgressBar1.Maximum = _Breit
Dim _color_minus As Color = Color.FromArgb(0, 11, 11, 11)
For a = 0 To _Breit - 1
For I = 0 To _hoch - 1
_color_old = _grundbild.GetPixel(a, I)
_A = _color_old.A
_R = _color_old.R
_G = _color_old.G
_B = _color_old.B
If _A < 12 Then _A = 12
If _R < 12 Then _R = 12
If _G < 12 Then _G = 12
If _B < 12 Then _B = 12
_encodedBMP.SetPixel(a, I, Color.FromArgb(_A - 11, _R - 11, _G - 11, _B - 11))
Next I
ProgressBar1.Value = a
Next a
Button3.Enabled = False
ProgressBar1.Value = 0
PictureBox1.Image = _encodedBMP
Label1.Text = Convert.ToString(_Breit * _hoch) + " Zeichen" + " Insert text"
TextBox1.MaxLength = (_Breit * _hoch) - 1
TextBox1.Enabled = True
Button2.Enabled = False
Button3.Enabled = False
Button2.Visible = False
Button3.Visible = False
Button4.Visible = True
Button4.Enabled = True
Button1.Visible = True
Catch ex As Exception
End Try
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If Button4.Enabled Then
Button1.Visible = True
If Text <> "" Then
Button1.Enabled = True
Label1.Text = "Next Encode text"
End If
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim _zaehler As Int32
Dim _letter() As Char
Dim _letter_code_X, _letter_code_K0, _letter_code_K1, _letter_code_K2 As Int32
Dim _letter_code_toString As String
_zaehler = 0
_letter_code_K0 = 0
_letter_code_K1 = 0
_letter_code_K2 = 0
_A = 0
_R = 0
_G = 0
_B = 0
Dim _endbild_x As New Bitmap(_encodedBMP)
For a = 0 To _Breit - 1
For I = 0 To _hoch - 1
_color_old = _encodedBMP.GetPixel(a, I)
_A = _color_old.A
_R = _color_old.R
_G = _color_old.G
_B = _color_old.B
If _zaehler < TextBox1.Text.Length Then
_letter_get = TextBox1.Text.Chars(_zaehler) 'buchstabe zu char
_zaehler = _zaehler + 1
_letter_code_X = Asc(_letter_get) ' char zu ASCII code
_letter_code_toString = _letter_code_X.ToString 'ASCII code zu string
_letter = _letter_code_toString.ToCharArray() ' String ASCII (zahlen-string) code zu Chars
_letter_code_K0 = Val(_letter(0)) 'Einzelne Chars setzen
_letter_code_K1 = Val(_letter(1)) 'Einzelne Chars setzen
If _letter_code_X < 100 Then
_letter_code_K2 = 11
Else
_letter_code_K2 = Val(_letter(2))
End If
_xyz = Color.FromArgb(_A, _R + _letter_code_K0, _G + _letter_code_K1, _B + _letter_code_K2)
_endbild_x.SetPixel(a, I, _xyz)
_A = 0
_R = 0
_G = 0
_B = 0
End If
If TextBox1.Text.Length < a * I Then
ProgressBar1.Value = 0
_endbild = _endbild_x
Button1.Enabled = False
Button1.Visible = False
Button5.Visible = True
Button5.Enabled = True
Label1.Text = "Now save Files"
Exit Sub
End If
Next I
ProgressBar1.Value = a
Next a
ProgressBar1.Value = 0
_endbild = _endbild_x
Button1.Enabled = False
Button1.Visible = False
Button5.Visible = True
Button5.Enabled = True
Label1.Text = "Now save Files"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
save_both()
End Sub
Private Sub save_both()
Dim direc As String
SaveFileDialog1.FileName = "Pass"
SaveFileDialog1.Title = "Save Prepared Orginal (Pass-picture)"
SaveFileDialog1.InitialDirectory = My.Settings.Intitialpath
SaveFileDialog1.Filter = "BMP files (*.bmp)|*.bmp"
SaveFileDialog1.FilterIndex = 1
SaveFileDialog1.RestoreDirectory = True
SaveFileDialog1.ShowDialog()
direc = SaveFileDialog1.FileName
Try
_encodedBMP.Save(direc)
Catch ex As Exception
End Try
End Sub
Private Sub SetCodeImageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetCodeImageToolStripMenuItem.Click
Dim pfadskk As String
OpenFileDialog1.FileName = ""
OpenFileDialog1.Title = "Open Image that contains Code"
OpenFileDialog1.InitialDirectory = My.Settings.Intitialpath
OpenFileDialog1.Filter = "BMP files (*.bmp)|*.bmp"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.RestoreDirectory = True
OpenFileDialog1.ShowDialog()
pfadskk = OpenFileDialog1.FileName
If OpenFileDialog1.FileName <> "" Then
Dim bild11 As New Bitmap(pfadskk)
_dec_picorg = bild11
_decryp = 1
End If
If _decryp2 = 1 And _decryp = 1 Then
DecodeTool.Enabled = True
End If
End Sub
Private Sub SetPWImageToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetPWImageToolStripMenuItem.Click
Dim _helpme As Int32
Dim pfadsff As String
OpenFileDialog1.FileName = ""
OpenFileDialog1.Title = "Open Orginal Image (PASS - IMAGE)"
OpenFileDialog1.InitialDirectory = My.Settings.Intitialpath
OpenFileDialog1.Filter = "BMP files (*.bmp)|*.bmp"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.RestoreDirectory = True
OpenFileDialog1.ShowDialog()
pfadsff = OpenFileDialog1.FileName
If OpenFileDialog1.FileName <> "" Then
Dim bild22 As New Bitmap(pfadsff)
_dec_piccod = bild22
_decryp2 = 1
If _decryp2 = 1 And _decryp = 1 Then
DecodeTool.Enabled = True
End If
_helpme = (_dec_piccod.Width * _dec_piccod.Height)
Label1.Text = _helpme.ToString + " Zeichen"
End If
End Sub
Private Sub DecodeTool_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DecodeTool.Click
Try
Me.Text = "PixelCrypter" + " * Modus:" + " Decoding" + " Working"
TextBox1.Text = ""
TextBox1.Enabled = True
Dim _color_org, _color_code As Color
Dim _ex_R, _ex_G, _ex_B, _ex_char As Int32
Dim _letnew As Char
_R = 0
_G = 0
_B = 0
_orgB = 0
_orgG = 0
_orgR = 0
ProgressBar1.Maximum = _dec_piccod.Width + 1
TextBox1.Enabled = True
For a = 0 To _dec_piccod.Width - 1
For I = 0 To _dec_picorg.Height - 1
_color_code = _dec_picorg.GetPixel(a, I)
_color_org = _dec_piccod.GetPixel(a, I)
_orgR = _color_org.R
_orgG = _color_org.G
_orgB = _color_org.B
_R = _color_code.R
_G = _color_code.G
_B = _color_code.B
_ex_R = _R - _orgR
_ex_G = _G - _orgG
_ex_B = _B - _orgB
If _ex_B < 10 Then
_ex_char = (_ex_R * 100) + (_ex_G * 10) + _ex_B
_letnew = Chr(_ex_char)
TextBox1.Text = TextBox1.Text + _letnew
Else
_ex_char = (_ex_R * 10) + _ex_G
_letnew = Chr(_ex_char)
TextBox1.Text = TextBox1.Text + _letnew
End If
If _ex_char = 0 Then
Me.Text = "PixelCrypter" + " * Modus:" + " Decoding" + " Ready..."
ProgressBar1.Value = 0
Exit Sub
End If
Next I
ProgressBar1.Value = a
Label2.Text = TextBox1.Text.Length
Label2.Refresh()
TextBox1.Refresh()
_zaelfuermich = _zaelfuermich + 1
If _zaelfuermich = 5 Then
Me.Text = "PixelCrypter" + " * Modus:" + " Decoding" + " Working"
_zaelfuermich = 0
End If
Me.Text = Me.Text + "."
Me.Refresh()

Next a

Me.Text = "PixelCrypter" + " * Modus:" + " Decoding" + " Ready..."
ProgressBar1.Value = 0
Catch ex As Exception
Dialog3.ShowDialog()
DecodingToolStripMenuItem.Visible = True
LoadToolStripMenuItem.Visible = False
TableLayoutPanel3.Visible = False
TableLayoutPanel3.Width = 1
Label1.Visible = False
_path = Nothing
_Breit = Nothing
_hoch = Nothing
_pixel = Nothing
_A = Nothing
_R = Nothing
_G = Nothing
_B = Nothing
_orgA = Nothing
_orgB = Nothing
_orgG = Nothing
_orgR = Nothing
_decryp = Nothing
_decryp2 = Nothing
_grundbild = Nothing
_vorbild = Nothing
_encodedBMP = Nothing
_endbild = Nothing
_dec_picorg = Nothing
_dec_piccod = Nothing
_color_old = Nothing
_color_new = Nothing
DecodeTool.Enabled = False
Label2.Text = ""
ProgressBar1.Value = 0
Me.Text = "PixelCrypter" + " * Modus:" + " Decoding"
End Try
End Sub
Private Sub EncodingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EncodingToolStripMenuItem.Click
TextBox1.Text = ""
DecodingToolStripMenuItem.Visible = False
LoadToolStripMenuItem.Visible = True
TableLayoutPanel3.Visible = True
TableLayoutPanel3.Width = 210
Label1.Visible = True
_path = Nothing
_Breit = Nothing
_hoch = Nothing
_pixel = Nothing
_A = Nothing
_R = Nothing
_G = Nothing
_B = Nothing
_orgA = Nothing
_orgB = Nothing
_orgG = Nothing
_orgR = Nothing
_decryp = Nothing
_decryp2 = Nothing
_grundbild = Nothing
_vorbild = Nothing
_encodedBMP = Nothing
_endbild = Nothing
_dec_picorg = Nothing
_dec_piccod = Nothing
_color_old = Nothing
_color_new = Nothing
Button5.Enabled = False
Button2.Enabled = True
Button1.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button1.Visible = False
Button2.Visible = True
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False
PictureBox1.Image = Nothing
TextBox1.Enabled = False
TextBox1.Text = ""
Label1.Text = "Load BMP 1st"
Label2.Text = ""
Me.Text = "PixelCrypter" + " * Modus:" + " Encoding"
End Sub

[thesly]

Quellcode part 2:
Private Sub DecodingToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DecodingToolStripMenuItem1.Click
TextBox1.Text = ""
DecodingToolStripMenuItem.Visible = True
LoadToolStripMenuItem.Visible = False
TableLayoutPanel3.Visible = False
TableLayoutPanel3.Width = 1
Label1.Visible = False
_path = Nothing
_Breit = Nothing
_hoch = Nothing
_pixel = Nothing
_A = Nothing
_R = Nothing
_G = Nothing
_B = Nothing
_orgA = Nothing
_orgB = Nothing
_orgG = Nothing
_orgR = Nothing
_decryp = Nothing
_decryp2 = Nothing
_grundbild = Nothing
_vorbild = Nothing
_encodedBMP = Nothing
_endbild = Nothing
_dec_picorg = Nothing
_dec_piccod = Nothing
_color_old = Nothing
_color_new = Nothing
DecodeTool.Enabled = False
Label2.Text = ""
Me.Text = "PixelCrypter" + " * Modus:" + " Decoding"
End Sub
Private Sub NewresetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewresetToolStripMenuItem.Click
_path = Nothing
_Breit = Nothing
_hoch = Nothing
_pixel = Nothing
_A = Nothing
_R = Nothing
_G = Nothing
_B = Nothing
_orgA = Nothing
_orgB = Nothing
_orgG = Nothing
_orgR = Nothing
_decryp = Nothing
_decryp2 = Nothing
_grundbild = Nothing
_vorbild = Nothing
_encodedBMP = Nothing
_endbild = Nothing
_dec_picorg = Nothing
_dec_piccod = Nothing
_color_old = Nothing
_color_new = Nothing
Button5.Enabled = False
Button2.Enabled = True
Button1.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button1.Visible = False
Button2.Visible = True
Button3.Visible = False
Button4.Visible = False
Button5.Visible = False
PictureBox1.Image = Nothing
TextBox1.Enabled = False
TextBox1.Text = ""
Label1.Text = "Load BMP 1st"
Label2.Text = ""
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
SaveFileDialog1.FileName = "Code"
SaveFileDialog1.Title = "Save enCrypt Bitmap (Code-picture)"
SaveFileDialog1.InitialDirectory = My.Settings.Intitialpath
SaveFileDialog1.Filter = "BMP files (*.bmp)|*.bmp"
SaveFileDialog1.RestoreDirectory = True
SaveFileDialog1.ShowDialog()
direc2 = SaveFileDialog1.FileName
Try
_endbild.Save(direc2)
Catch ex As Exception
End Try
End Sub
Private Sub CloseToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
Dialog1.ShowDialog()
If Dialog1.DialogResult = Windows.Forms.DialogResult.OK Then
Me.Close()
End If
End Sub
Private Sub CloseToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem1.Click
Dialog1.ShowDialog()
If Dialog1.DialogResult = Windows.Forms.DialogResult.OK Then
Me.Close()
End If
End Sub
Private Sub ResetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResetToolStripMenuItem.Click
TextBox1.Text = ""
DecodingToolStripMenuItem.Visible = True
LoadToolStripMenuItem.Visible = False
TableLayoutPanel3.Visible = False
TableLayoutPanel3.Width = 1
Label1.Visible = False
_path = Nothing
_Breit = Nothing
_hoch = Nothing
_pixel = Nothing
_A = Nothing
_R = Nothing
_G = Nothing
_B = Nothing
_orgA = Nothing
_orgB = Nothing
_orgG = Nothing
_orgR = Nothing
_decryp = Nothing
_decryp2 = Nothing
_grundbild = Nothing
_vorbild = Nothing
_encodedBMP = Nothing
_endbild = Nothing
_dec_picorg = Nothing
_dec_piccod = Nothing
_color_old = Nothing
_color_new = Nothing
DecodeTool.Enabled = False
Label2.Text = ""
Me.Text = "PixelCrypter" + " * Modus:" + " Decoding"
End Sub
End Class

[oloool]

thesly,


wie bringt man das Tool denn auf Mac oder Linux zum Laufen?

Beste Grüße.

[thesly]

@oloool
(Auf Linux eventuell Windows emulieren ?!)

Eventuell kann jemand das ganze für Linux & Mac nach programmieren (z.b. in Java?).
Es sollte für nen fortgeschrittenen Hobbyprogrammierer durchaus nachvollziehbar & machbar sein.
Genauere Informationen gebe ich gerne weiter.



Hier mal nen Beispiel von sicherer Verschlüsselung per Bild.

In diesem Bild sind Daten versteckt:



Das ist das Orginalbild:



In dieses Bild alleine passen 40000 Zeichen.
Das Pixelrauschen ist der Algorhytmus (der keiner ist).
Es basiert auf dem Chaos (oder durcheinander) der Pixel , was unberechenbar ist.

Downloadlink fürs Programm:

http://www.dateiupload.com/files/OMMFnK6HOU.zip

[Kay]

erhm,ich als Laie :

Du hast jetzt einmal den oeffentlichen schluessel gebraucht,um die information im schluessel (nennen wirs mal "master key",fuer andere laien) zu verstecken.

Wie krieg ich den oeffentlichen schluessel,wie sicherst du die schluesseluebergabe ?

Das problem ist bei verschluesselungen naemlich nicht die "herausragende" verschluesselung,sondern,ei der daus,die schluesseluebergabe.



Da bastel ich mir lieber meinen eigenen RSA-Schluessel samt offenem schluessel,und bilde eine oeffentliche zertifizierung,um daten sicher zu uebermitteln