Public Function SubSigmaEnCrypt(ByVal sByte As String, ByVal sPassWord As _
  String) As Long
Dim x As Long
Dim a(1 To 8) As Long
If Len(spasswort) > 8 Then Exit Function
For i = 1 To Len(sPassWord)
a(i) = i * Asc(Mid(sPassWord, i, 1)) + 1 ^ 2
Next i
For i = 1 To 8
x = x + a(i) * Mid$(sByte, i, 1)
Next i
SubSigmaEnCrypt = x
End Function

Warum gibt es Micro$oft eigentlich?

<a href="http://www.clemensoft.de/">Meine Homepage</a>