How to - Einen Crypter coden

[Sn0opY]

bei mir will was nicht

Public Function ENC(ByVal sStr As String, ByVal sKey As String) As String
Dim i As Long
For i = 1 To Len(sStr)
ENC = ENC & Chr(Asc(Mid(sKey, llf(i Mod Len(sKey) <> 0, i Mod Len(sKey)), 1)) Xor Asc(Mid(sStr, i, 1)))
Next i
End Function



bei


ENC = ENC & Chr(Asc(Mid(sKey, llf(i Mod Len(sKey) <> 0, i Mod Len(sKey)), 1)) Xor

bei mit nen Compile Error
er sagt es ist nicht optional

iff gibt doch eintwerder das oder das aus und richtig geschrieben isses auch weis einer warums bei mir nicht will

muss an dem abschnitt liegen

Public Function ENC(ByVal sStr As String, ByVal sKey As String) As String
Dim i As Long
For i = 1 To Len(sStr)
ENC = ENC & Chr(Asc(Mid(sKey, IIf(i Mod Len(sKey) <> 0, i Mod Len(sKey)), 1)) Xor Asc(Mid(sStr, i, 1)))
Next i
End Function

[Warfighter09]

naja ich finde dieses Tut ganz ok aber wirklich von dir?^^

[Fr0Zen_Frame]

Ich zitiere mal:

Das Tutorial habe nicht ich gemacht!
Es stammt aus http://92.241.164.198/~willkein/igoe/ .

Ansonsten echt nice TuT, kann ich gut gebrauchen

Mfg Fr0Zen_Frame