http://www.asahi-net.or.jp/~ai2h-ykmz/tech/base64vb.htm
BASE64 Sample Code for VB4
urlは(多分)ダミーです。
0-9,a-z,A-Zでは62個しか文字が無いので変換はできませんよ。
Function to64$ (src&)
Dim henkan$()
Dim ret$
ReDim henkan$(0 To 63)
henkan$(0) = ”0”
henkan$(1) = ”1”
henkan$(2) = ”2”
henkan$(3) = ”3”
henkan$(4) = ”4”
henkan$(5) = ”5”
henkan$(6) = ”6”
henkan$(7) = ”7”
henkan$(8) = ”8”
henkan$(9) = ”9”
henkan$(10) = ”a”
henkan$(11) = ”b”
henkan$(12) = ”c”
henkan$(13) = ”d”
henkan$(14) = ”e”
henkan$(15) = ”f”
henkan$(16) = ”g”
henkan$(17) = ”h”
henkan$(18) = ”i”
henkan$(19) = ”j”
henkan$(20) = ”k”
henkan$(21) = ”l”
henkan$(22) = ”m”
henkan$(23) = ”n”
henkan$(24) = ”o”
henkan$(25) = ”p”
henkan$(26) = ”q”
henkan$(27) = ”r”
henkan$(28) = ”s”
henkan$(29) = ”t”
henkan$(30) = ”u”
henkan$(31) = ”v”
henkan$(32) = ”w”
henkan$(33) = ”x”
henkan$(34) = ”y”
henkan$(35) = ”z”
henkan$(36) = ”A”
henkan$(37) = ”B”
henkan$(38) = ”C”
henkan$(39) = ”D”
henkan$(40) = ”E”
henkan$(41) = ”F”
henkan$(42) = ”G”
henkan$(43) = ”H”
henkan$(44) = ”I”
henkan$(45) = ”J”
henkan$(46) = ”K”
henkan$(47) = ”L”
henkan$(48) = ”M”
henkan$(49) = ”N”
henkan$(50) = ”O”
henkan$(51) = ”P”
henkan$(52) = ”Q”
henkan$(53) = ”R”
henkan$(54) = ”S”
henkan$(55) = ”T”
henkan$(56) = ”U”
henkan$(57) = ”V”
henkan$(58) = ”W”
henkan$(59) = ”X”
henkan$(60) = ”Y”
henkan$(61) = ”Z”
henkan$(62) = ”-”
henkan$(63) = ”+”
ret$ = ””
Do While src > 63
ret$ = henkan$(src Mod 64) + ret$
src = src / 64
Loop
ret$ = henkan$(src Mod 64) + ret$
to64$ = ret$
End Function
実行効率無視(いちいちReDim,代入は無駄です。別の初期化の部分でやるべき)ですが、こんな感じでいいですかね。
ありがとうございました
たすかりました