利用URL编码进行加密 [源码]

韩冰

作者： Atomic ( ckatom@hotmail.com)
QQ:5538313
日期： 18/04/2002
1 G2 G5 ]0 \* ?+ S0 B
" Q' @% |9 x* u( j# Y% Y1 j% U
刚刚拜读了Stamina的“URL编码及C语言实现”，觉得有必要写一个GUI的转换器，于是我就操起VB来 完成了这个作品.
9 _  y- K0 F9 B其实原理很简单，但是我做GUI界面用了些时间，下面是主要的转换部分：

''encode - 转成16进制符
5 Z5 J3 Y- {/ E# v: l4 O# o# f7 @
For i = 1 To Len(strIN)
s = CStr(Hex(Asc(Mid(strIN, i, 1)))) ''是不是太~~~快了~~
7 d, O6 b! A! o& |If Len(s) = 1 Then s = "0" & s ''解出小于F的值就在前面加 0
- h5 S; |4 m$ JstrOUT = strOUT & "%" & s
1 Z1 @' Z+ Q9 W) |Next i

txtOUT.Text = strOUT ''这里就是输出了
8 X0 @0 B5 J2 s- T$ i/ ]+ |___________________________________________________________
7 \, z6 w) Z; }' c
0 _7 B6 t2 g5 w; ^- }! P''decode - 解码, 比较麻烦点
, }1 r- z# E7 U+ M9 n3 @) T0 h
& Z: e9 b/ B9 }. ?0 i7 n" [4 y, }For i = 1 To Len(strIN) Step 3 '' Step 3 因为格式是 %XX 三位一个字符
s1 = UCase(Mid(strIN, i + 1, 1)) ''得到第2位的16进制数字
) h. k- z- u$ o+ P: ys2 = UCase(Mid(strIN, i + 2, 1)) ''得到第1位的16进制数字

Select Case s1 '' 进制转换
Case "A" To "F"
+ U! I# W% O' Qn = (10 + 5 - (Asc("F") - Asc(s1))) * 16
Case Else
! I& J" l' O  t+ [5 [* ~n = Val(s1) * 16
End Select

Select Case s2
Case "A" To "F"
- k2 |: K! y' T' w: ~& Z9 mn = n + (10 + 5 - (Asc("F") - Asc(s2)))
Case Else
* [! d% F! j1 a! ]6 }/ \8 an = n + Val(s2)
End Select
- H! K, e: ~) k/ r* ?
9 K5 x! S* }% B2 g9 {s = ChrW$(n) '' 转为字符
strOUT = strOUT & s
& z& Q: `& e5 Q( H3 z9 _Next i
txtOUT.Text = strOUT
6 h4 M. |5 @! j7 h2 }
) L, @4 D  H5 d! ]- _: `! O6 [
程序下载: http://apower.uhome.net/download/encoder.zip
/ |% D2 b( f" k$ [http://members.rogers.com/tdl/encoder.zip.  

1. <SCRIPT language=javascript src="../scripts/recommend.js">& j) R$ K5 }% N4 b! P\" r
   
2. . y7 z2 A4 q, U$ |: X% k\" Q  D+ T
   
3. <script>

复制代码