Hallo Vb-Paradise
ich habe eine kleine Verschlüsslung gebastelt und ich wollte mal fragen ob die sicher ist und ob vielleicht jemand von euch diese mal testen könnte
Code
Spoiler anzeigen
Das ganze sieht dann so aus mit dem Passwort 123456:
PlainText wäre das dann :
würde mich über Kritik freuen
ich habe eine kleine Verschlüsslung gebastelt und ich wollte mal fragen ob die sicher ist und ob vielleicht jemand von euch diese mal testen könnte
Code
VB.NET-Quellcode
- Public Function Encript_CassIO(ByVal key As String, Data As String) As String
- If key.Length - 1 >= 5 Then
- Dim keyinstring As String = ToAscstring_(MD5StringHash(key))
- Dim ct As Integer = 0
- Dim newdata As String = String.Empty
- For i = 0 To Data.Length - 1
- If ct = keyinstring.Length - 1 Then
- ct = 0
- Else
- ct += 1
- End If
- newdata &= encassIO(Data(i), Asc(keyinstring(ct)))
- Next
- Return ToAscstring(newdata, False)
- Else
- Return String.Empty
- End If
- End Function
- Public Function Decript_CassIO(ByVal key As String, Data As String) As String
- If key.Length - 1 >= 5 Then
- Dim keyinstring As String = ToAscstring_(MD5StringHash(key))
- Dim ct As Integer = 0
- Dim newdata As String = String.Empty
- For i = 0 To Data.Length - 1
- If ct = keyinstring.Length - 1 Then
- ct = 0
- Else
- ct += 1
- End If
- newdata &= decassIO(Data(i), Asc(keyinstring(ct)))
- Next
- Dim Newdata_instr As String = ToAscstring(newdata, True)
- Return ToAscstring(newdata, True)
- Else
- Return String.Empty
- End If
- End Function
- Public Function MD5StringHash(ByVal strString As String) As String
- Dim MD5 As New Security.Cryptography.MD5CryptoServiceProvider
- Dim Data As Byte() = Text.Encoding.ASCII.GetBytes(strString)
- Dim Result As Byte() = MD5.ComputeHash(Data)
- Dim Res As String = String.Empty
- Dim Tmp As String = String.Empty
- For i As Integer = 0 To Result.Length - 1
- Tmp = Hex(Result(i))
- If Len(Tmp) = 1 Then Tmp = "0" & Tmp
- Res += Tmp
- Next
- Return Res
- End Function
- Public Function ToAscstring_(ByVal Text As String) As String
- Dim keyinstring As String = String.Empty
- For i = 0 To Text.Length - 1
- keyinstring &= Asc(Text(i))
- Next
- Return keyinstring
- End Function
- Public Function ToAscstring(ByVal Text As String, de As Boolean) As String
- Dim keyinstring As String = String.Empty
- For i = 0 To Text.Length - 1
- keyinstring &= IIf(de = False, encassIO(Text(i), i), decassIO(Text(i), i)).ToString
- Next
- Return keyinstring
- End Function
- Public Function encassIO(ByVal data As Char, Prop As Integer) As Char
- If Asc(data) + Prop >= 255 Then
- Return Chr((Asc(data) - 255) + Prop)
- Else
- Return Chr(Asc(data) + Prop)
- End If
- End Function
- Public Function decassIO(ByVal data As Char, Prop As Integer) As Char
- If Asc(data) - Prop <= 0 Then
- Return Chr((Asc(data) + 255) - Prop)
- Else
- Return Chr(Asc(data) - Prop)
- End If
- End Function
Das ganze sieht dann so aus mit dem Passwort 123456:
PlainText wäre das dann :
würde mich über Kritik freuen
MFG 0x426c61636b4e6574776f726b426974
InOffical VB-Paradise IRC-Server
webchat.freenode.net/
Channel : ##vbparadise
InOffical VB-Paradise IRC-Server
webchat.freenode.net/
Channel : ##vbparadise