Hey
Ich finde und funde den sch** Fehler nicht! Oder habe ich Grundlegend etwas falsch gemacht?! Das Dumme ist nur, dass der erste Teil funktioniert! Ich kann verschlüsseln aber nicht entschlüsseln
Visual basic Code ist zu lang deswegen Pastebin Link Sry:
pastebin.com/Sjb1tb4u

Quellcode

1. Public Class Form1 Dim path As String Dim verschlüsselt As String Dim entschlüsselt As String
2. Private Sub cmd_Path_Click(sender As Object, e As EventArgs) Handles cmd_path.Click If chc_ent.Checked = False Then With OpenFile() .Filter = _ "LABER-Dateien (*.laber)|*.laber" .FilterIndex = 1 .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop .Title = "Datei wählen..." .ShowDialog() End With path = OpenFile.FileName txt_start.Text = path txt_ziel.Text = path & "verschlüsselt" Else With OpenFile() .Filter = _ "LABER-Dateien (*.laber)|*.laber" .FilterIndex = 1 .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop .Title = "Datei wählen..." .ShowDialog() End With path = OpenFile.FileName txt_start.Text = path txt_ziel.Text = path & "entschlüsselt" End If
3. End Sub
4. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load tmr_akt.Start() End Sub
5. Private Sub tmr_akt_Tick(sender As Object, e As EventArgs) Handles tmr_akt.Tick If chc_ent.Checked = False Then txt_start.Text = path txt_ziel.Text = path & "verschlüsselt" Else txt_start.Text = path txt_ziel.Text = path & "entschlüsselt" End If End Sub
6. Private Sub cmd_los_Click(sender As Object, e As EventArgs) Handles cmd_los.Click Dim filereader As String If chc_ent.Checked = False Then Try filereader = My.Computer.FileSystem.ReadAllText(path) entschlüsselt = (filereader) entschlüsselt = Replace(entschlüsselt, "a", "/()/%%/&&)/&$/&-+/$*$%&$%&$%&&/*-+$$&") entschlüsselt = Replace(entschlüsselt, "b", "&&&$%&/(&($-/*+$*-/+$%$%&%$&*+/-*$*&$%&") entschlüsselt = Replace(entschlüsselt, "c", "=%=/&$%&/()&$/%$&-*+$*+$%&$%&//+$*-/&/+") entschlüsselt = Replace(entschlüsselt, "d", "=)§/$&)=&/()=$%&*$*-%&*+$%-*&-*+/%") entschlüsselt = Replace(entschlüsselt, "e", "&$&/$/%)$%$(/&$&/&/§$&/$$/($/($/(/((((/($//") entschlüsselt = Replace(entschlüsselt, "f", "&&&&&&&&%&%&%&%&%&%!%/()&$%&%&%()=()=") entschlüsselt = Replace(entschlüsselt, "g", "/(((((((((/?%&$%*&-%*+&(=/%/$(/&$/&/&§") entschlüsselt = Replace(entschlüsselt, "h", "&&%%%$%$%%$%&%$%$&%$&§$&$%%&$%&*+&-%$&%$&") entschlüsselt = Replace(entschlüsselt, "i", "()/&/&/$$&/&//&/$%/(/&/&$%$%&$%&&*+-%)$/") entschlüsselt = Replace(entschlüsselt, "j", "&&&/!&//§/§/&/%!&§(§)%$=%(/%&$%&§%&?&") entschlüsselt = Replace(entschlüsselt, "k", "&&/(/$/==§&//&/&/$%$%/&/%%$&/&/$%§%)§$§$%%%§$%§") entschlüsselt = Replace(entschlüsselt, "l", "?=)(/&%$§!$%&$%&$%&$%*&-*+$%&%()((%&&%&-*+-*&&(/(") entschlüsselt = Replace(entschlüsselt, "m", "//&&%§$%$§$§§!$%&/§$)=%&=%=%=(%/(%%") entschlüsselt = Replace(entschlüsselt, "n", "(((((/////&&&&&$%$/(((($$/$%&/$/&===§§/(§") entschlüsselt = Replace(entschlüsselt, "o", "&/&&/&/%§/==§§//§&/%/()$%&$%&&$%&*-+=§&%§") entschlüsselt = Replace(entschlüsselt, "p", "§&=/§/(/(&(=/(&/(&/(/(=§/$%&$%§&%%§%&") entschlüsselt = Replace(entschlüsselt, "q", "///%)=§/()=/$()(/(*---*+*-&$%&+*-+%/(*--*$%") entschlüsselt = Replace(entschlüsselt, "r", "/*-+/%/-(-/-&(-)/*/*-%/+*+%/$&%$%&$/(-+*") entschlüsselt = Replace(entschlüsselt, "s", "/+/-+-/*(/*$*/(/*-/$&(/*%//*%(/-(/$*-+(//-$*") entschlüsselt = Replace(entschlüsselt, "t", "/+/*-/-*+/+$/+/*+/*+//-*-$&/%/(/*+-&+/+*-") entschlüsselt = Replace(entschlüsselt, "u", "-+-*-+//-*////*-/-/-++*/-/+-/-/+*/*-/*-/-") entschlüsselt = Replace(entschlüsselt, "v", "%((/(%/(%/((%($/&/$%&/&/&/§$&§%/(/&-*-+*+-$&/") entschlüsselt = Replace(entschlüsselt, "w", "&$%&§$&&§$&§-&*-+§%&*§$*-%&%&+-*§-&*§-&*-§&*+-§") entschlüsselt = Replace(entschlüsselt, "x", "*-&*-+$*-/*+$*&-/*-*$-(*--$/*(*-/*-(-*%*(*-+*$&+$+/-*") entschlüsselt = Replace(entschlüsselt, "y", "*-+*-+(*-+/($*-/(%(%(*-+*-+*-+*-+$/$&%/$%$") entschlüsselt = Replace(entschlüsselt, "z", "§&/&($/($/(%)%(§§&/§/§/&%&&%&&§%&&------%&%&*-+") My.Computer.FileSystem.WriteAllText(txt_ziel.Text, entschlüsselt, False)
7. Catch End Try Else
8. filereader = My.Computer.FileSystem.ReadAllText(path) verschlüsselt = Replace(verschlüsselt, "/()/%%/&&)/&$/&-+/$*$%&$%&$%&&/*-+$$&", "a") verschlüsselt = Replace(verschlüsselt, "&&&$%&/(&($-/*+$*-/+$%$%&%$&*+/-*$*&$%&", "b") verschlüsselt = Replace(verschlüsselt, "=%=/&$%&/()&$/%$&-*+$*+$%&$%&//+$*-/&/+", "c") verschlüsselt = Replace(verschlüsselt, "=)§/$&)=&/()=$%&*$*-%&*+$%-*&-*+/%", "d") verschlüsselt = Replace(verschlüsselt, "&$&/$/%)$%$(/&$&/&/§$&/$$/($/($/(/((((/($//", "e") verschlüsselt = Replace(verschlüsselt, "&&&&&&&&%&%&%&%&%&%!%/()&$%&%&%()=()=", "f") verschlüsselt = Replace(verschlüsselt, "/(((((((((/?%&$%*&-%*+&(=/%/$(/&$/&/&§", "g") verschlüsselt = Replace(verschlüsselt, "&&%%%$%$%%$%&%$%$&%$&§$&$%%&$%&*+&-%$&%$&", "h") verschlüsselt = Replace(verschlüsselt, "()/&/&/$$&/&//&/$%/(/&/&$%$%&$%&&*+-%)$/", "i") verschlüsselt = Replace(verschlüsselt, "&&&/!&//§/§/&/%!&§(§)%$=%(/%&$%&§%&?&", "j") verschlüsselt = Replace(verschlüsselt, "&&/(/$/==§&//&/&/$%$%/&/%%$&/&/$%§%)§$§$%%%§$%§", "k") verschlüsselt = Replace(verschlüsselt, "?=)(/&%$§!$%&$%&$%&$%*&-*+$%&%()((%&&%&-*+-*&&(/(", "l") verschlüsselt = Replace(verschlüsselt, "//&&%§$%$§$§§!$%&/§$)=%&=%=%=(%/(%%", "m") verschlüsselt = Replace(verschlüsselt, "(((((/////&&&&&$%$/(((($$/$%&/$/&===§§/(§", "n") verschlüsselt = Replace(verschlüsselt, "&/&&/&/%§/==§§//§&/%/()$%&$%&&$%&*-+=§&%§", "o") verschlüsselt = Replace(verschlüsselt, "§&=/§/(/(&(=/(&/(&/(/(=§/$%&$%§&%%§%&", "p") verschlüsselt = Replace(verschlüsselt, "///%)=§/()=/$()(/(*---*+*-&$%&+*-+%/(*--*$%", "q") verschlüsselt = Replace(verschlüsselt, "/*-+/%/-(-/-&(-)/*/*-%/+*+%/$&%$%&$/(-+*", "r") verschlüsselt = Replace(verschlüsselt, "/+/-+-/*(/*$*/(/*-/$&(/*%//*%(/-(/$*-+(//-$*", "s") verschlüsselt = Replace(verschlüsselt, "/+/*-/-*+/+$/+/*+/*+//-*-$&/%/(/*+-&+/+*-", "t") verschlüsselt = Replace(verschlüsselt, "-+-*-+//-*////*-/-/-++*/-/+-/-/+*/*-/*-/-", "u") verschlüsselt = Replace(verschlüsselt, "%((/(%/(%/((%($/&/$%&/&/&/§$&§%/(/&-*-+*+-$&/", "v") verschlüsselt = Replace(verschlüsselt, "&$%&§$&&§$&§-&*-+§%&*§$*-%&%&+-*§-&*§-&*-§&*+-§", "w") verschlüsselt = Replace(verschlüsselt, "*-&*-+$*-/*+$*&-/*-*$-(*--$/*(*-/*-(-*%*(*-+*$&+$+/-*", "x") verschlüsselt = Replace(verschlüsselt, "*-+*-+(*-+/($*-/(%(%(*-+*-+*-+*-+$/$&%/$%$", "y") verschlüsselt = Replace(verschlüsselt, "§&/&($/($/(%)%(§§&/§/§/&%&&%&&§%&&------%&%&*-+", "z") My.Computer.FileSystem.WriteAllText(txt_ziel.Text, verschlüsselt, False)
9. End If
10. End SubEnd Class

Ich hoffe jemand findet den Fehler
LG janikmc

Hallo und willkommen!

gleichma folgendes zur Einführung in die Eigentümlichkeiten dieses Forums:
Bitte VB-Tag benutzen - aber richtig
Anleitung (Bild-)DateiAnhänge

Du kannst deinen Post auch editieren, und dadurch besser lesbar machen.

Hi
verwende statt so einer ineffizienten, unsicheren und textbasierten Verschlüsslung lieber ein Verfahren, wie AES o.Ä. Da gibt's einige Beispiele hier im Forum und bei Google. Statt sowas auf Text zu basieren, sind Bytes wesentlich praktischer. Allerdings unterliegen AES usw. auch kleinen Restriktionen, die man beachten muss (bzgl. Blocklänge, etc.).

Gruß
~blaze~

ich vermute Replace() *bart kratz*