Eigener ASCII Code

Bobo3003 · 17. August 2017, 10:10

Guten Morgen,

Ich bin noch ziemlich neu in der Programmier Szene und brauche eure Hilfe mit einem kleinen Projekt das ich starten möchte.
Ich möchte gerne ein Wort in ein Textfeld eingeben und dieses soll auf Druck eines Knopfes in ein zweites Textfeld ausgegeben werden, jedoch als Zahlenfolge
Das habe ich soweit:

VB.NET-Quellcode

Public Class Form1
Dim a As Integer = 19
Dim b As Integer = 18
Dim c As Integer = 17
Dim d As Integer = 16
Dim e As Integer = 21
Dim f As Integer = 22
Dim g As Integer = 23
Dim h As Integer = 24
Dim i As Integer = 39
Dim j As Integer = 38
Dim k As Integer = 37
Dim l As Integer = 36
Dim m As Integer = 41
Dim n As Integer = 42
Dim o As Integer = 43
Dim p As Integer = 44
Dim q As Integer = 59
Dim r As Integer = 58
Dim s As Integer = 57
Dim t As Integer = 56
Dim u As Integer = 61
Dim v As Integer = 62
Dim w As Integer = 63
Dim x As Integer = 64
Dim y As Integer = 99
Dim z As Integer = 98
Dim Final As String = ""
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Final = ""
If abc.Text > 0 Then
For
Next
ASC1.Text = Final
Else
MsgBox("Please enter your message!")
End If
End Sub
End Class

abc ist die erste box, ASC1 die zweite, Button1 der einzige Button.
Leider weiß ich nicht wie ich das konvertieren hinbekomme! Vielleicht hat ja einer von euch einen Tip für mich. Als nächster Schritt müsste man sich überlegen wie man den ganzen Prozess rückwärts macht, damit man das ganze auf wieder entschlüsseln kann.
Herzlichen Dank
Mit freundlichen Grüßen
Bobo

BiedermannS · 17. August 2017, 10:31

Erst mal: ASCII ist ein Standard. Du kannst also keinen neuen ASCII Code für Buchstaben erstellen.

Was du willst ist eine Zuordnung von Char zu Integer.
Mach dir ein Dictionary(of Char, Integer) mit allen werten, iteriere über deinen Text und hol dir die Daten aus dem Dictionary. Das Ganze mit StringBuilder zu einem String zusammensetzen und fertig.

VaporiZed · 17. August 2017, 10:33

1. »Eigener ASCII Code« ist ein Oxymoron, da das ASC in ASCII für »American Standard Code« steht.
2. Du willst also einen Text quasi übersetzen. Was soll denn für »test« rauskommen? »56215756«? Was ist mit "Test"? Oder "712Tß#"?
3. Was soll das überhaupt werden?

Bobo3003 schrieb:

das ganze auf wieder entschlüsseln

Verschlüsselung hoffentlich nicht. Man braucht nur wenige Versuche, um den Code zu knacken und beim besten Willen: Es gibt Dinge, die man programmieren sollte; Dinge, die man nicht selber programmieren sollte; und Dinge, von denen man die Finger lassen muss, solange man kein Super-Expoerte ist. Und Kryptologie gehört zu letzterem.

EaranMaleasi · 17. August 2017, 10:45

Wenn es wirklich um ASCII gehen soll, so gibt es System.Encoding.ASCII. Dort findet man alles nötige um zwischen Zahlen und Zeichen zu konvertieren.

Bobo3003 · 17. August 2017, 11:25

Danke für die schnellen Antworten.
Ja das ganze sollte nur ein Experiment sein, keine Sorge, wollte das ganze nicht Sicherheitsrelevant machen.
Werde mal gucken wenn ich später nach Hause komme und mal gucken wie weit ich das ganze funktioniert.
Und ich dachte mir erstmal ich fange nur mit kleinen Buchstaben an um es möglichst simpel zu halten.
Vielen Dank soweit

RodFromGermany · 17. August 2017, 12:49

@Bobo3003 Soll das so was wie ne ne Caesar-Verschlüsselung werden?
Nimm ein Dictionary(Of Char, Integer).

Dksksm · 17. August 2017, 14:45

VaporiZed schrieb:

1. »Eigener ASCII Code« ist ein Oxymoron, da das ASC in ASCII für »American Standard Code« steht.

American Standard Code for Information Interchange

exc-jdbi · 17. August 2017, 16:23

Hallo @Bobo3003

Die Variante die @EaranMaleasi vorgeschlagen hat würde wahrscheinlich am Besten zu dem passen was du machen willst. Solange es nur beim Konvertieren bleibt.

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.Text
Public Module Module1
Public Sub Main()
'Wort >> Zahlen
Dim txtBox1 As String = "Irgendwas"
Dim txtBox2 As String = MakeStringNum(Encoding.Default.GetBytes(txtBox1), 1)
'Zahlen >> Wort
txtBox1 = GetString(txtBox2)
Stop
End Sub
Private Function MakeStringNum(ByVal i() As Byte, ByVal _selec As Byte) As String
Select Case _selec
Case 0 : Return String.Join(" ", i.Select(Function(x) x.ToString.Trim).ToArray)
Case 1 : Return String.Join("-", i.Select(Function(x) x.ToString.Trim).ToArray)
Case Else : Return String.Join("", i.Select(Function(x) x.ToString.Trim).ToArray)
End Select
End Function
Private Function GetString(ByVal s As String) As String
Dim ss() = s.Split(New Char() {"-"c}, StringSplitOptions.RemoveEmptyEntries)
Dim b() As Byte = New Byte(ss.Length - 1) {}
For i As Int32 = 0 To ss.Length - 1 : b(i) = CByte(ss(i)) : Next
Return Encoding.Default.GetString(b)
End Function
End Module

Freundliche Grüsse

exc-jdbi

seh · 17. August 2017, 18:27

VaporiZed schrieb:

solange man kein Super-Expoerte ist. Und Kryptologie gehört zu letzterem.

Man kann kein Super-Experte in etwas werden, wenn man als Laie gesagt bekommt lass' die Finger davon.
Weise jemanden darauf hin, dass man sich vorher mit Kryptologie ausgiebig beschäftigen soll bevor man anfängt produktiv irgendwelche benutzerdefinierte Verschlüsselungen zu erfinden.

EaranMaleasi · 17. August 2017, 19:09

Eine Verschlüsselung zu entwerfen ist immer dann ein Problem, solang man kein Experte in Kryptographie/Kryptologie ist. Spätestens dann wenn man ein Experte ist, weiß man jedoch warum das Entwerfen einer Verschlüsselung in 99% der Fälle eine ziemlich blöde Idee ist.

Trade · 17. August 2017, 19:59

VaporiZed schrieb:

»Eigener ASCII Code« ist ein Oxymoron

OT: Das ist doch kein Oxymoron.

Ich weiß zwar nicht, wie man sowas nennt, aber ein Oxymoron ist was anderes.

Grüße

RodFromGermany · 18. August 2017, 06:26

seh schrieb:

Man kann kein Super-Experte in etwas werden, wenn man als Laie gesagt bekommt lass' die Finger davon.

Lass die Finger davon heißt aber auch: Fang mit was einfacherem an, zb. von hier was: [Sammelthread] Programmieren, aber was? (Programmideen)

Vainamo · 18. August 2017, 10:09

Trade schrieb:

Ich weiß zwar nicht, wie man sowas nennt, aber ein Oxymoron ist was anderes.

@VaporiZed Ein Oxymoron ist ein gewollter Widerspruch meist in der Lyrik oder Prosa verwendet. Das hier vorliegende Beispiel ist ungewollter Natur und daher ein Contradictio in adiecto oder auf gut Deutsch ein klassischer Widerspruch in sich.

Edit:
@Dksksm Wat? Genau das habe ich doch geschrieben. Zitat von einem Zettel zu rhetorischen Mitteln aus meiner Schulzeit:
"Eine Contradictio in adiecto ist ein logischer Fehler in einer Formulierung. Wird die Widersprüchlichkeit absichtsvoll formuliert, spricht man von einem Oxymoron."

[/OT]
Grüße
Vainamo

Dksksm · 18. August 2017, 11:09

Vainamo schrieb:

Trade schrieb:

Ich weiß zwar nicht, wie man sowas nennt, aber ein Oxymoron ist was anderes.

@VaporiZed Ein Oxymoron ist ein gewollter Widerspruch meist in der Lyrik oder Prosa verwendet. Das hier vorliegende Beispiel ist ungewollter Natur und daher ein Contradictio in adiecto oder auf gut Deutsch ein klassischer Widerspruch in sich.

[OT]Du hast dich aber sebst widerlegt, denn ein Oxymoron ist es nur, wenn es als bewusstes Stilmittel eingesetzt wird. Das gilt auch für die Sonderform Contradictio in adiecto, wie das offene Geheimnis. [/OT]

jvbsl · 18. August 2017, 15:58

DIe richtige Herangehensweiße wäre von der Encoding-Klasse zu erben:
msdn.microsoft.com/de-de/libra…t.encoding(v=vs.110).aspx

Und dort zu implementieren. Wie es dann implementiert werden kann steht ja bereits oben, aber da du denke ich erst mal sowieso im Byte bereich bleibst wäre ein Array rein Geschwindigkeitsmäßig sinnvoller, für alles darüber kann man ja dann nen Dictionary nehmen, wenn man viele Zeichen auslassen möchte...

RodFromGermany · 18. August 2017, 16:01

jvbsl schrieb:

DIe richtige Herangehensweise wäre

die Annahmologismen ruhen zu lassen und erst mal auf eine Antwort von @Bobo3003 zu warten.

Eigener ASCII Code

Eigener ASCII Code

VB.NET-Quellcode

Bobo3003 schrieb:

VaporiZed schrieb:

VB.NET-Quellcode

VaporiZed schrieb:

VaporiZed schrieb:

seh schrieb:

Trade schrieb:

Vainamo schrieb:

Trade schrieb:

jvbsl schrieb:

Benutzer online 1

Ähnliche Themen

11 Benutzer haben hier geschrieben