Ich wollte mich mal an einer kleinen Verschlüsselung probieren.
Das ist mein Versuch:
(Aufruf:
Fehler:
Hat jemand da eine bessere Idee (Ich weiß, dass der Code warscheinlich Müll ist)
Das ist mein Versuch:
VB.NET-Quellcode
- Option Strict On
- Public Class Crypt
- Public Property key As Integer = 0
- Public Function stringToByte(ByVal input As String) As Byte()
- Dim rnd As New Random()
- Dim enc As System.Text.Encoding = System.Text.Encoding.Default
- Dim b() As Byte = enc.GetBytes(input)
- key = rnd.Next()
- For i As Integer = 0 To b.Count - 1
- b(i) = CByte(b(i) * key)
- Next
- Return b
- End Function
- Public Function byteToString(ByVal input() As Byte, ByVal key As Integer) As String
- For i As Integer = 0 To input.Count - 1
- input(i) = CByte(input(i) / key)
- Next
- Dim enc As System.Text.Encoding = System.Text.Encoding.Default
- Dim output As String = enc.GetString(input)
- Return output
- End Function
- End Class
(Aufruf:
Dim b() As Byte = (c.stringToByte("Hallo das ist ein Test"))
)Fehler:
Hat jemand da eine bessere Idee (Ich weiß, dass der Code warscheinlich Müll ist)