标签：clng VB ASP UTF l2power gg const lonbits md5
还是和之前的原因一个样，一直在用的 MD5 编码，处理英文时没问题，加了中文，就跟 https://tool.oschina.net/encrypt?type=2 和 https://md5jiami.51240.com/ 的结果不一样了，想了下，应该还是 UTF-8 编码的问题，于是将原来在用的编码中和字符串转 Byte 数组函数改装了一下，就成了，转换结果一致，说明工作正确：
-
'========================================================----------------------MD5 All -
public const bits_to_a_byte = 8 -
public const bytes_to_a_word = 4 -
public const bits_to_a_word = 32 -
public m_lonbits(30) -
public m_l2power(30) -
Public Function converttowordarray(smessage) '进行 UTF-8 改造的就是这个函数 -
Dim lmessagelength, lnumberofwords, lwordarray(), lbyteposition, lbytecount, lwordcount -
dim mAllByteIn '接收数组变量在VBS不能加括号() -
Const modulus_bits = 512 -
Const congruent_bits = 448 -
'---------翻译为 UTF-8 byte 数组 -
mAllByteIn = HexStr2ByteArr(str2UTF8(smessage)) -
lmessagelength = UBound(mAllByteIn) + 1 ' L + 1 ' Len(smessage) -
lnumberofwords = (((lmessagelength + 8) \ 64) + 1) * 16 -
ReDim lwordarray(lnumberofwords - 1) -
lbyteposition = 0 -
lbytecount = 0 -
Do Until lbytecount >= lmessagelength -
lwordcount = lbytecount \ bytes_to_a_word -
lbyteposition = (lbytecount Mod bytes_to_a_word) * bits_to_a_byte -
' Asc(Mid(smessage, lbytecount + 1, 1)) =mAllByteIn(lbytecount) -
lwordarray(lwordcount) = lwordarray(lwordcount) Or lshift(mAllByteIn(lbytecount), lbyteposition) -
lbytecount = lbytecount + 1 -
Loop -
lwordcount = lbytecount \ bytes_to_a_word -
lbyteposition = (lbytecount Mod bytes_to_a_word) * bits_to_a_byte -
lwordarray(lwordcount) = lwordarray(lwordcount) Or lshift(&H80, lbyteposition) -
lwordarray(lnumberofwords - 2) = lshift(lmessagelength, 3) -
lwordarray(lnumberofwords - 1) = rshift(lmessagelength, 29) -
converttowordarray = lwordarray -
End Function -
public function lshift(lvalue, ishiftbits) -
if ishiftbits = 0 then -
lshift = lvalue -
exit function -
elseif ishiftbits = 31 then -
if lvalue and 1 then -
lshift = &h80000000 -
else -
lshift = 0 -
end if -
exit function -
elseif ishiftbits < 0 or ishiftbits > 31 then -
err.raise 6 -
end if -
if (lvalue and m_l2power(31 - ishiftbits)) then -
lshift = ((lvalue and m_lonbits(31 - (ishiftbits + 1))) * m_l2power(ishiftbits)) or &h80000000 -
else -
lshift = ((lvalue and m_lonbits(31 - ishiftbits)) * m_l2power(ishiftbits)) -
end if -
end function -
public function rshift(lvalue, ishiftbits) -
if ishiftbits = 0 then -
rshift = lvalue -
exit function -
elseif ishiftbits = 31 then -
if lvalue and &h80000000 then -
rshift = 1 -
else -
rshift = 0 -
end if -
exit function -
elseif ishiftbits < 0 or ishiftbits > 31 then -
err.raise 6 -
end if -
rshift = (lvalue and &h7ffffffe) \ m_l2power(ishiftbits) -
if (lvalue and &h80000000) then -
rshift = (rshift or (&h40000000 \ m_l2power(ishiftbits - 1))) -
end if -
end function -
public function rotateleft(lvalue, ishiftbits) -
rotateleft = lshift(lvalue, ishiftbits) or rshift(lvalue, (32 - ishiftbits)) -
end function -
public function addunsigned(lx, ly) -
dim lx4 -
dim ly4 -
dim lx8 -
dim ly8 -
dim lresult -
lx8 = lx and &h80000000 -
ly8 = ly and &h80000000 -
lx4 = lx and &h40000000 -
ly4 = ly and &h40000000 -
lresult = (lx and &h3fffffff) + (ly and &h3fffffff) -
if lx4 and ly4 then -
lresult = lresult xor &h80000000 xor lx8 xor ly8 -
elseif lx4 or ly4 then -
if lresult and &h40000000 then -
lresult = lresult xor &hc0000000 xor lx8 xor ly8 -
else -
lresult = lresult xor &h40000000 xor lx8 xor ly8 -
end if -
else -
lresult = lresult xor lx8 xor ly8 -
end if -
addunsigned = lresult -
end function -
public function md5_f(x, y, z) -
md5_f = (x and y) or ((not x) and z) -
end function -
public function md5_g(x, y, z) -
md5_g = (x and z) or (y and (not z)) -
end function -
public function md5_h(x, y, z) -
md5_h = (x xor y xor z) -
end function -
public function md5_i(x, y, z) -
md5_i = (y xor (x or (not z))) -
end function -
public sub md5_ff(a, b, c, d, x, s, ac) -
a = addunsigned(a, addunsigned(addunsigned(md5_f(b, c, d), x), ac)) -
a = rotateleft(a, s) -
a = addunsigned(a, b) -
end sub -
public sub md5_gg(a, b, c, d, x, s, ac) -
a = addunsigned(a, addunsigned(addunsigned(md5_g(b, c, d), x), ac)) -
a = rotateleft(a, s) -
a = addunsigned(a, b) -
end sub -
public sub md5_hh(a, b, c, d, x, s, ac) -
a = addunsigned(a, addunsigned(addunsigned(md5_h(b, c, d), x), ac)) -
a = rotateleft(a, s) -
a = addunsigned(a, b) -
end sub -
public sub md5_ii(a, b, c, d, x, s, ac) -
a = addunsigned(a, addunsigned(addunsigned(md5_i(b, c, d), x), ac)) -
a = rotateleft(a, s) -
a = addunsigned(a, b) -
end sub -
public function wordtohex(lvalue) -
dim lbyte -
dim lcount -
for lcount = 0 to 3 -
lbyte = rshift(lvalue, lcount * bits_to_a_byte) and m_lonbits(bits_to_a_byte - 1) -
wordtohex = wordtohex & right("0" & hex(lbyte), 2) -
next -
end function -
public function md5(smessage) -
m_lonbits(0) = clng(1) -
m_lonbits(1) = clng(3) -
m_lonbits(2) = clng(7) -
m_lonbits(3) = clng(15) -
m_lonbits(4) = clng(31) -
m_lonbits(5) = clng(63) -
m_lonbits(6) = clng(127) -
m_lonbits(7) = clng(255) -
m_lonbits(8) = clng(511) -
m_lonbits(9) = clng(1023) -
m_lonbits(10) = clng(2047) -
m_lonbits(11) = clng(4095) -
m_lonbits(12) = clng(8191) -
m_lonbits(13) = clng(16383) -
m_lonbits(14) = clng(32767) -
m_lonbits(15) = clng(65535) -
m_lonbits(16) = clng(131071) -
m_lonbits(17) = clng(262143) -
m_lonbits(18) = clng(524287) -
m_lonbits(19) = clng(1048575) -
m_lonbits(20) = clng(2097151) -
m_lonbits(21) = clng(4194303) -
m_lonbits(22) = clng(8388607) -
m_lonbits(23) = clng(16777215) -
m_lonbits(24) = clng(33554431) -
m_lonbits(25) = clng(67108863) -
m_lonbits(26) = clng(134217727) -
m_lonbits(27) = clng(268435455) -
m_lonbits(28) = clng(536870911) -
m_lonbits(29) = clng(1073741823) -
m_lonbits(30) = clng(2147483647) -
m_l2power(0) = clng(1) -
m_l2power(1) = clng(2) -
m_l2power(2) = clng(4) -
m_l2power(3) = clng(8) -
m_l2power(4) = clng(16) -
m_l2power(5) = clng(32) -
m_l2power(6) = clng(64) -
m_l2power(7) = clng(128) -
m_l2power(8) = clng(256) -
m_l2power(9) = clng(512) -
m_l2power(10) = clng(1024) -
m_l2power(11) = clng(2048) -
m_l2power(12) = clng(4096) -
m_l2power(13) = clng(8192) -
m_l2power(14) = clng(16384) -
m_l2power(15) = clng(32768) -
m_l2power(16) = clng(65536) -
m_l2power(17) = clng(131072) -
m_l2power(18) = clng(262144) -
m_l2power(19) = clng(524288) -
m_l2power(20) = clng(1048576) -
m_l2power(21) = clng(2097152) -
m_l2power(22) = clng(4194304) -
m_l2power(23) = clng(8388608) -
m_l2power(24) = clng(16777216) -
m_l2power(25) = clng(33554432) -
m_l2power(26) = clng(67108864) -
m_l2power(27) = clng(134217728) -
m_l2power(28) = clng(268435456) -
m_l2power(29) = clng(536870912) -
m_l2power(30) = clng(1073741824) -
dim x -
dim k -
dim aa -
dim bb -
dim cc -
dim dd -
dim a -
dim b -
dim c -
dim d , e -
const s11 = 7 -
const s12 = 12 -
const s13 = 17 -
const s14 = 22 -
const s21 = 5 -
const s22 = 9 -
const s23 = 14 -
const s24 = 20 -
const s31 = 4 -
const s32 = 11 -
const s33 = 16 -
const s34 = 23 -
const s41 = 6 -
const s42 = 10 -
const s43 = 15 -
const s44 = 21 -
x = converttowordarray(smessage) -
a = &h67452301 -
b = &hefcdab89 -
c = &h98badcfe -
d = &h10325476 -
for k = 0 to ubound(x) step 16 -
aa = a -
bb = b -
cc = c -
dd = d -
md5_ff a, b, c, d, x(k + 0), s11, &hd76aa478 -
md5_ff d, a, b, c, x(k + 1), s12, &he8c7b756 -
md5_ff c, d, a, b, x(k + 2), s13, &h242070db -
md5_ff b, c, d, a, x(k + 3), s14, &hc1bdceee -
md5_ff a, b, c, d, x(k + 4), s11, &hf57c0faf -
md5_ff d, a, b, c, x(k + 5), s12, &h4787c62a -
md5_ff c, d, a, b, x(k + 6), s13, &ha8304613 -
md5_ff b, c, d, a, x(k + 7), s14, &hfd469501 -
md5_ff a, b, c, d, x(k + 8), s11, &h698098d8 -
md5_ff d, a, b, c, x(k + 9), s12, &h8b44f7af -
md5_ff c, d, a, b, x(k + 10), s13, &hffff5bb1 -
md5_ff b, c, d, a, x(k + 11), s14, &h895cd7be -
md5_ff a, b, c, d, x(k + 12), s11, &h6b901122 -
md5_ff d, a, b, c, x(k + 13), s12, &hfd987193 -
md5_ff c, d, a, b, x(k + 14), s13, &ha679438e -
md5_ff b, c, d, a, x(k + 15), s14, &h49b40821 -
md5_gg a, b, c, d, x(k + 1), s21, &hf61e2562 -
md5_gg d, a, b, c, x(k + 6), s22, &hc040b340 -
md5_gg c, d, a, b, x(k + 11), s23, &h265e5a51 -
md5_gg b, c, d, a, x(k + 0), s24, &he9b6c7aa -
md5_gg a, b, c, d, x(k + 5), s21, &hd62f105d -
md5_gg d, a, b, c, x(k + 10), s22, &h2441453 -
md5_gg c, d, a, b, x(k + 15), s23, &hd8a1e681 -
md5_gg b, c, d, a, x(k + 4), s24, &he7d3fbc8 -
md5_gg a, b, c, d, x(k + 9), s21, &h21e1cde6 -
md5_gg d, a, b, c, x(k + 14), s22, &hc33707d6 -
md5_gg c, d, a, b, x(k + 3), s23, &hf4d50d87 -
md5_gg b, c, d, a, x(k + 8), s24, &h455a14ed -
md5_gg a, b, c, d, x(k + 13), s21, &ha9e3e905 -
md5_gg d, a, b, c, x(k + 2), s22, &hfcefa3f8 -
md5_gg c, d, a, b, x(k + 7), s23, &h676f02d9 -
md5_gg b, c, d, a, x(k + 12), s24, &h8d2a4c8a -
md5_hh a, b, c, d, x(k + 5), s31, &hfffa3942 -
md5_hh d, a, b, c, x(k + 8), s32, &h8771f681 -
md5_hh c, d, a, b, x(k + 11), s33, &h6d9d6122 -
md5_hh b, c, d, a, x(k + 14), s34, &hfde5380c -
md5_hh a, b, c, d, x(k + 1), s31, &ha4beea44 -
md5_hh d, a, b, c, x(k + 4), s32, &h4bdecfa9 -
md5_hh c, d, a, b, x(k + 7), s33, &hf6bb4b60 -
md5_hh b, c, d, a, x(k + 10), s34, &hbebfbc70 -
md5_hh a, b, c, d, x(k + 13), s31, &h289b7ec6 -
md5_hh d, a, b, c, x(k + 0), s32, &heaa127fa -
md5_hh c, d, a, b, x(k + 3), s33, &hd4ef3085 -
md5_hh b, c, d, a, x(k + 6), s34, &h4881d05 -
md5_hh a, b, c, d, x(k + 9), s31, &hd9d4d039 -
md5_hh d, a, b, c, x(k + 12), s32, &he6db99e5 -
md5_hh c, d, a, b, x(k + 15), s33, &h1fa27cf8 -
md5_hh b, c, d, a, x(k + 2), s34, &hc4ac5665 -
md5_ii a, b, c, d, x(k + 0), s41, &hf4292244 -
md5_ii d, a, b, c, x(k + 7), s42, &h432aff97 -
md5_ii c, d, a, b, x(k + 14), s43, &hab9423a7 -
md5_ii b, c, d, a, x(k + 5), s44, &hfc93a039 -
md5_ii a, b, c, d, x(k + 12), s41, &h655b59c3 -
md5_ii d, a, b, c, x(k + 3), s42, &h8f0ccc92 -
md5_ii c, d, a, b, x(k + 10), s43, &hffeff47d -
md5_ii b, c, d, a, x(k + 1), s44, &h85845dd1 -
md5_ii a, b, c, d, x(k + 8), s41, &h6fa87e4f -
md5_ii d, a, b, c, x(k + 15), s42, &hfe2ce6e0 -
md5_ii c, d, a, b, x(k + 6), s43, &ha3014314 -
md5_ii b, c, d, a, x(k + 13), s44, &h4e0811a1 -
md5_ii a, b, c, d, x(k + 4), s41, &hf7537e82 -
md5_ii d, a, b, c, x(k + 11), s42, &hbd3af235 -
md5_ii c, d, a, b, x(k + 2), s43, &h2ad7d2bb -
md5_ii b, c, d, a, x(k + 9), s44, &heb86d391 -
a = addunsigned(a, aa) -
b = addunsigned(b, bb) -
c = addunsigned(c, cc) -
d = addunsigned(d, dd) -
next -
md5 = lcase(wordtohex(a) & wordtohex(b) & wordtohex(c) & wordtohex(d)) -
'md5=lcase(wordtohex(b) & wordtohex(c)) 'i crop this to fit 16byte database password :d -
md5=ucase(md5) -
end function -
public function md5_16(smessage) -
m_lonbits(0) = clng(1) -
m_lonbits(1) = clng(3) -
m_lonbits(2) = clng(7) -
m_lonbits(3) = clng(15) -
m_lonbits(4) = clng(31) -
m_lonbits(5) = clng(63) -
m_lonbits(6) = clng(127) -
m_lonbits(7) = clng(255) -
m_lonbits(8) = clng(511) -
m_lonbits(9) = clng(1023) -
m_lonbits(10) = clng(2047) -
m_lonbits(11) = clng(4095) -
m_lonbits(12) = clng(8191) -
m_lonbits(13) = clng(16383) -
m_lonbits(14) = clng(32767) -
m_lonbits(15) = clng(65535) -
m_lonbits(16) = clng(131071) -
m_lonbits(17) = clng(262143) -
m_lonbits(18) = clng(524287) -
m_lonbits(19) = clng(1048575) -
m_lonbits(20) = clng(2097151) -
m_lonbits(21) = clng(4194303) -
m_lonbits(22) = clng(8388607) -
m_lonbits(23) = clng(16777215) -
m_lonbits(24) = clng(33554431) -
m_lonbits(25) = clng(67108863) -
m_lonbits(26) = clng(134217727) -
m_lonbits(27) = clng(268435455) -
m_lonbits(28) = clng(536870911) -
m_lonbits(29) = clng(1073741823) -
m_lonbits(30) = clng(2147483647) -
m_l2power(0) = clng(1) -
m_l2power(1) = clng(2) -
m_l2power(2) = clng(4) -
m_l2power(3) = clng(8) -
m_l2power(4) = clng(16) -
m_l2power(5) = clng(32) -
m_l2power(6) = clng(64) -
m_l2power(7) = clng(128) -
m_l2power(8) = clng(256) -
m_l2power(9) = clng(512) -
m_l2power(10) = clng(1024) -
m_l2power(11) = clng(2048) -
m_l2power(12) = clng(4096) -
m_l2power(13) = clng(8192) -
m_l2power(14) = clng(16384) -
m_l2power(15) = clng(32768) -
m_l2power(16) = clng(65536) -
m_l2power(17) = clng(131072) -
m_l2power(18) = clng(262144) -
m_l2power(19) = clng(524288) -
m_l2power(20) = clng(1048576) -
m_l2power(21) = clng(2097152) -
m_l2power(22) = clng(4194304) -
m_l2power(23) = clng(8388608) -
m_l2power(24) = clng(16777216) -
m_l2power(25) = clng(33554432) -
m_l2power(26) = clng(67108864) -
m_l2power(27) = clng(134217728) -
m_l2power(28) = clng(268435456) -
m_l2power(29) = clng(536870912) -
m_l2power(30) = clng(1073741824) -
dim x -
dim k -
dim aa -
dim bb -
dim cc -
dim dd -
dim a -
dim b -
dim c -
dim d -
const s11 = 7 -
const s12 = 12 -
const s13 = 17 -
const s14 = 22 -
const s21 = 5 -
const s22 = 9 -
const s23 = 14 -
const s24 = 20 -
const s31 = 4 -
const s32 = 11 -
const s33 = 16 -
const s34 = 23 -
const s41 = 6 -
const s42 = 10 -
const s43 = 15 -
const s44 = 21 -
x = converttowordarray(smessage) -
a = &h67452301 -
b = &hefcdab89 -
c = &h98badcfe -
d = &h10325476 -
for k = 0 to ubound(x) step 16 -
aa = a -
bb = b -
cc = c -
dd = d -
md5_ff a, b, c, d, x(k + 0), s11, &hd76aa478 -
md5_ff d, a, b, c, x(k + 1), s12, &he8c7b756 -
md5_ff c, d, a, b, x(k + 2), s13, &h242070db -
md5_ff b, c, d, a, x(k + 3), s14, &hc1bdceee -
md5_ff a, b, c, d, x(k + 4), s11, &hf57c0faf -
md5_ff d, a, b, c, x(k + 5), s12, &h4787c62a -
md5_ff c, d, a, b, x(k + 6), s13, &ha8304613 -
md5_ff b, c, d, a, x(k + 7), s14, &hfd469501 -
md5_ff a, b, c, d, x(k + 8), s11, &h698098d8 -
md5_ff d, a, b, c, x(k + 9), s12, &h8b44f7af -
md5_ff c, d, a, b, x(k + 10), s13, &hffff5bb1 -
md5_ff b, c, d, a, x(k + 11), s14, &h895cd7be -
md5_ff a, b, c, d, x(k + 12), s11, &h6b901122 -
md5_ff d, a, b, c, x(k + 13), s12, &hfd987193 -
md5_ff c, d, a, b, x(k + 14), s13, &ha679438e -
md5_ff b, c, d, a, x(k + 15), s14, &h49b40821 -
md5_gg a, b, c, d, x(k + 1), s21, &hf61e2562 -
md5_gg d, a, b, c, x(k + 6), s22, &hc040b340 -
md5_gg c, d, a, b, x(k + 11), s23, &h265e5a51 -
md5_gg b, c, d, a, x(k + 0), s24, &he9b6c7aa -
md5_gg a, b, c, d, x(k + 5), s21, &hd62f105d -
md5_gg d, a, b, c, x(k + 10), s22, &h2441453 -
md5_gg c, d, a, b, x(k + 15), s23, &hd8a1e681 -
md5_gg b, c, d, a, x(k + 4), s24, &he7d3fbc8 -
md5_gg a, b, c, d, x(k + 9), s21, &h21e1cde6 -
md5_gg d, a, b, c, x(k + 14), s22, &hc33707d6 -
md5_gg c, d, a, b, x(k + 3), s23, &hf4d50d87 -
md5_gg b, c, d, a, x(k + 8), s24, &h455a14ed -
md5_gg a, b, c, d, x(k + 13), s21, &ha9e3e905 -
md5_gg d, a, b, c, x(k + 2), s22, &hfcefa3f8 -
md5_gg c, d, a, b, x(k + 7), s23, &h676f02d9 -
md5_gg b, c, d, a, x(k + 12), s24, &h8d2a4c8a -
md5_hh a, b, c, d, x(k + 5), s31, &hfffa3942 -
md5_hh d, a, b, c, x(k + 8), s32, &h8771f681 -
md5_hh c, d, a, b, x(k + 11), s33, &h6d9d6122 -
md5_hh b, c, d, a, x(k + 14), s34, &hfde5380c -
md5_hh a, b, c, d, x(k + 1), s31, &ha4beea44 -
md5_hh d, a, b, c, x(k + 4), s32, &h4bdecfa9 -
md5_hh c, d, a, b, x(k + 7), s33, &hf6bb4b60 -
md5_hh b, c, d, a, x(k + 10), s34, &hbebfbc70 -
md5_hh a, b, c, d, x(k + 13), s31, &h289b7ec6 -
md5_hh d, a, b, c, x(k + 0), s32, &heaa127fa -
md5_hh c, d, a, b, x(k + 3), s33, &hd4ef3085 -
md5_hh b, c, d, a, x(k + 6), s34, &h4881d05 -
md5_hh a, b, c, d, x(k + 9), s31, &hd9d4d039 -
md5_hh d, a, b, c, x(k + 12), s32, &he6db99e5 -
md5_hh c, d, a, b, x(k + 15), s33, &h1fa27cf8 -
md5_hh b, c, d, a, x(k + 2), s34, &hc4ac5665 -
md5_ii a, b, c, d, x(k + 0), s41, &hf4292244 -
md5_ii d, a, b, c, x(k + 7), s42, &h432aff97 -
md5_ii c, d, a, b, x(k + 14), s43, &hab9423a7 -
md5_ii b, c, d, a, x(k + 5), s44, &hfc93a039 -
md5_ii a, b, c, d, x(k + 12), s41, &h655b59c3 -
md5_ii d, a, b, c, x(k + 3), s42, &h8f0ccc92 -
md5_ii c, d, a, b, x(k + 10), s43, &hffeff47d -
md5_ii b, c, d, a, x(k + 1), s44, &h85845dd1 -
md5_ii a, b, c, d, x(k + 8), s41, &h6fa87e4f -
md5_ii d, a, b, c, x(k + 15), s42, &hfe2ce6e0 -
md5_ii c, d, a, b, x(k + 6), s43, &ha3014314 -
md5_ii b, c, d, a, x(k + 13), s44, &h4e0811a1 -
md5_ii a, b, c, d, x(k + 4), s41, &hf7537e82 -
md5_ii d, a, b, c, x(k + 11), s42, &hbd3af235 -
md5_ii c, d, a, b, x(k + 2), s43, &h2ad7d2bb -
md5_ii b, c, d, a, x(k + 9), s44, &heb86d391 -
a = addunsigned(a, aa) -
b = addunsigned(b, bb) -
c = addunsigned(c, cc) -
d = addunsigned(d, dd) -
next -
'md5 = lcase(wordtohex(a) & wordtohex(b) & wordtohex(c) & wordtohex(d)) -
md5_16=lcase(wordtohex(b) & wordtohex(c)) 'i crop this to fit 16byte database password :d -
md5_16=ucase(md5_16) -
end function -
'---------------------------------Md5 Over -
'-----------依然需要使用昨天弄的字符串转 UTF-8 字串函数 -
Public Function str2UTF8(szInput) '只返回十六进制文本串 -----20200524改合 -
Dim wch, uch, szRet -
Dim x, i -
Dim nAsc, nAsc2, nAsc3, s2b() -
'如果输入参数为空，则退出函数 -
If szInput = "" Then -
str2UTF8 = szInput -
Exit Function -
End If -
'开始转换 -
For x = 1 To Len(szInput) -
'利用mid函数分拆GB编码文字 -
wch = Mid(szInput, x, 1) -
'利用ascW函数返回每一个GB编码文字的Unicode字符代码 -
'注：asc函数返回的是ANSI 字符代码，注意区别 -
nAsc = AscW(wch) -
If nAsc < 0 Then -
nAsc = nAsc + 65536 -
End If -
If (nAsc And &HFF80) = 0 Then -
szRet = szRet & Right("00" & Hex(Asc(wch)), 2) -
Else -
If (nAsc And &HF000) = 0 Then -
uch = Hex(((nAsc \ 64)) Or &HC0) & Hex(nAsc And &H3F Or &H80) -
szRet = szRet & uch -
Else -
'GB编码文字的Unicode字符代码在0800 - FFFF之间采用三字节模版 ， 2 ^ 12=4096 ， 2 ^ 6=64 -
uch = Hex((nAsc \ 4096) Or &HE0) & _ -
Hex((nAsc \ 64) And &H3F Or &H80) & _ -
Hex(nAsc And &H3F Or &H80) -
szRet = szRet & uch -
End If -
End If -
Next -
str2UTF8 = szRet -
End Function -
'---------------------因为这个过程好几个地方用到，因此将它单独提出来做个独立的函数 -
Public Function HexStr2ByteArr(hexstr) ' 转换文本型十六进制串为 byte 数组,例：E4B8AD -----20200524改分 -
Dim i, L, mAllByteIn() -
L = Len(hexstr) / 2 - 1 -
ReDim mAllByteIn(L) -
For i = 0 To L -
mAllByteIn(i) = CByte("&H" & Mid(hexstr, i * 2 + 1, 2)) -
Next -
HexStr2ByteArr = mAllByteIn -
End Function
其中改造了的函数就是 converttowordarray ，这个是将输入的字符串进行处理转换的。
使用例子如下：
msgbox md5("123中文，？αabc") '正确结果应为：2EC80A3192DB1122A1ED5884788C4027PS：之前，想用 Adodb.Stream 进行 UTF-8 编码转换，但是最后发现 VBS 在内存变量里面的字符串，永远是 unicode 格式，所以，.ReadText 后得到的字符串其实是无效的，改天试试 .Read 。
此记！
标签：clng,VB,ASP,UTF,l2power,gg,const,lonbits,md5 来源： https://blog.csdn.net/sd19871122/article/details/111563862
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。