[php] Datenbank auf einem anderen Server

[Matthias Endler]

>was anderes: gibt es irgendwo was idiotensicheres zum
>base64 algorithmus und dessen arbeitsweise ??????
>möglichst _kein_ C source, weil dann kann ich auch den
>php-source anschauen ... ;-)

argh... VB

Const Base64Chars$ =
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"


 Function encode$(ss$) ' returns a string
   If Len(ss$) Mod 3 > 0 Then ss$ = ss$ + String$(3 - (Len(ss$) Mod 3), " ")

   p% = 0
   tt$ = ""
   For i = 1 To Len(ss$) Step 3
      t$ = "    "
      s$ = Mid$(ss$, i, 3)

      Char1% = Asc(Mid$(s$, 1, 1)): SaveBits1% = Char1% And 3
      Char2% = Asc(Mid$(s$, 2, 1)): SaveBits2% = Char2% And 15
      Char3% = Asc(Mid$(s$, 3, 1))

      Mid$(t$, 1) = Mid$(Base64Chars$, ((Char1% And 252) \ 4) + 1, 1)
      Mid$(t$, 2) = Mid$(Base64Chars$, (((Char2% And 240) \ 16) Or
(SaveBits1% * 16) And &HFF) + 1, 1)
      Mid$(t$, 3) = Mid$(Base64Chars$, (((Char3% And 192) \ 64) Or
(SaveBits2% * 4) And &HFF) + 1, 1)
      Mid$(t$, 4) = Mid$(Base64Chars$, (Char3% And 63) + 1, 1)
      tt$ = tt$ + t$
      p% = p% + 1: If p% >= 19 Then p% = 0: tt$ = tt$ & vbCrLf
   Next
   encode$ = tt$
End Function

Gruss
-Matthias

P.S.: Code kommt nicht von mir, uebernehme also keine Haftung ;)