Function CubeCryptByZero8Bit(ByVal Str As String) As String
  Const Zero As Long = 0
  Dim I2 As Long
  Dim Buffer As String
  For I2 = 1 To Len(Str)
    'Zeichen wird mit Zero verschlüselt
    Buffer = Buffer & CStr(Chr(Asc(Mid(Str, I2, 1)) Xor Asc(Zero)))
  Next I2
  CubeCryptByZero8Bit = Buffer
End Function

Private Declare Function CubeCryptByZero8Bit Lib "DeepRed.dll" (ByVal Str As _
  String) As String

ich danke schon im Voraus


Bin immer und gerne f?r jede Hilfe da