Welcher Hash?

[RaZz0r]

was ist das für ein hash?

isE<?3i?lBiqCinI[r4d

Mfg.Atzekoenig

[Shelter]

ein has ist einer verschlüsselung von nem pw, satz, wort oda so^^

[sh0xX]

er will nicht wissen was ein hash ist, sondern welche art von hash


isE<?3i?lBiqCinI[r4d


ist ;)

Dazu kann ich dir leider nichts sagen

mfg
sh0xX

[Shelter]

aso..... naja, dacht hashes bestehen nur aus zahlen und buchstaben, und nicht aus sonderzeichen, dachte das is ne zirzeile :D

[RaZz0r]

ein has ist einer verschlüsselung von nem pw, satz, wort oda so^^

lol was ein hash ist weis ich schon aber was ist das für einer

Private Sub Command1_Click()
Dim MyText, CodeText, Kennwort As String


MyText = "Cipher-Test"
Kennwort = "Sag-ich-nicht"


CodeText = RCFour_EnDecode(MyText, Kennwort)
MsgBox CodeText, vbInformation, "Verschlüsselter Text"


MyText = RCFour_EnDecode(CodeText, Kennwort)
MsgBox MyText, vbInformation, "Entschlüsselter Text"

End Sub


Function RCFour_EnDecode(ByVal InText As String, ByVal Key As String) As String
On Error GoTo Fehler

Dim KeyLänge, KeyPosition As Integer
Dim I, J, RCFNext As Integer
Dim RCFSBox(255), RCFKBox(255) As Integer
Dim RCFI, RCFJ, RCFT As Integer
Dim N As Long

KeyLänge = Len(Key)
KeyPosition = 0
For I = 0 To 255
KeyPosition = KeyPosition + 1
If KeyPosition >= KeyLänge Then KeyPosition = 1
RCFSBox(I) = I
RCFKBox(KeyPosition - 1) = Asc(Mid$(Key, KeyPosition, 1))
Next I

Key = ""

For I = 0 To 255
J = (J + RCFSBox(I) + RCFKBox(I)) Mod 256
t = RCFSBox(I)
RCFSBox(I) = RCFSBox(J)
RCFSBox(J) = t
Next I

RCFI = 0: RCFJ = 0: RCFT = 0

For N = 1 To Len(InText)
RCFI = (RCFI + 1) Mod 256
RCFJ = (RCFJ + RCFSBox(RCFI)) Mod 256
RCFT = RCFSBox(RCFI)
RCFSBox(RCFI) = RCFSBox(RCFJ)
RCFSBox(RCFJ) = RCFT
RCFT = (RCFSBox(RCFI) + RCFSBox(RCFJ)) Mod 256
RCFNext = RCFSBox(RCFT)
Mid$(InText, N, 1) = Chr$(Asc(Mid$(InText, N, 1)) Xor RCFNext)
Next N

RCFour_EnDecode = InText

Weiter:
Exit Function:

Fehler:
MsgBox Err.Description
Resume Weiter
End Function
damit kann man den erstellen aber wie kann man den entschlüsseln???