Base64 encode

Sprache: English
Programmiersprache: VBScript
Veröffentlicht von: Dennis Pallett [nicht registriert]
Letzte Änderung: 09.05.2006
Aufrufe: 1194

Beschreibung

Use this function to convert strings to Base64

Code

Zeilennummern anzeigen

1 Function Base64Encode(inData) 2 Const Base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" 3 Dim cOut, sOut, I 4 5 'For each group of 3 bytes 6 For I = 1 To Len(inData) Step 3 7 Dim nGroup, pOut, sGroup 8 9 'Create one long from this 3 bytes. 10 nGroup = &H10000 * Asc(Mid(inData, I, 1)) + _ 11 &H100 * MyASC(Mid(inData, I + 1, 1)) + MyASC(Mid(inData, I + 2, 1)) 12 13 'Oct splits the long To 8 groups with 3 bits 14 nGroup = Oct(nGroup) 15 16 'Add leading zeros 17 nGroup = String(8 - Len(nGroup), "0") & nGroup 18 19 'Convert To base64 20 pOut = Mid(Base64, Clng("&o" & Mid(nGroup, 1, 2)) + 1, 1) + _ 21 Mid(Base64, Clng("&o" & Mid(nGroup, 3, 2)) + 1, 1) + _ 22 Mid(Base64, Clng("&o" & Mid(nGroup, 5, 2)) + 1, 1) + _ 23 Mid(Base64, Clng("&o" & Mid(nGroup, 7, 2)) + 1, 1) 24 25 'Add the part To OutPut string 26 sOut = sOut + pOut 27 28 'Add a new line For Each 76 chars In dest (76*3/4 = 57) 29 'If (I + 2) Mod 57 = 0 Then sOut = sOut + vbCrLf 30 Next 31 Select Case Len(inData) Mod 3 32 Case 1: '8 bit final 33 sOut = Left(sOut, Len(sOut) - 2) + "==" 34 Case 2: '16 bit final 35 sOut = Left(sOut, Len(sOut) - 1) + "=" 36 End Select 37 Base64Encode = sOut 38 End Function 39 40 Function MyASC(OneChar) 41 If OneChar = doublequote Then MyASC = 0 Else MyASC = Asc(OneChar) 42 End Function

Noch kein Kommentar vorhanden

Dieses Snippet kommentieren

Name *

E-Mail (wird nicht angezeigt) *

Website

Kommentar *

Sicherheitscode *