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
Ich hoffe jemand findet den Fehler
LG janikmc
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
- Public Class Form1 Dim path As String Dim verschlüsselt As String Dim entschlüsselt As String
- 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
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load tmr_akt.Start() End Sub
- 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
- 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)
- Catch End Try Else
- 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)
- End If
- End SubEnd Class
Ich hoffe jemand findet den Fehler
LG janikmc