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

韩冰

作者： Atomic ( ckatom@hotmail.com)
QQ:5538313
- d0 k4 Y1 I# f7 E日期： 18/04/2002


刚刚拜读了Stamina的“URL编码及C语言实现”，觉得有必要写一个GUI的转换器，于是我就操起VB来 完成了这个作品.
) r$ N. q' G- [2 B. [5 E5 p- [其实原理很简单，但是我做GUI界面用了些时间，下面是主要的转换部分：

; c  m8 R' P0 A( a) T9 w+ `''encode - 转成16进制符
$ K6 ]% q5 u+ `) q
. Z; U6 q& M6 d' T, S' LFor i = 1 To Len(strIN)
s = CStr(Hex(Asc(Mid(strIN, i, 1)))) ''是不是太~~~快了~~
) D1 p1 V5 s7 P1 {8 l2 q( VIf Len(s) = 1 Then s = "0" & s ''解出小于F的值就在前面加 0
0 w' {* ?" H& JstrOUT = strOUT & "%" & s
3 ^1 f4 ~* S- L6 R& u9 k3 x1 VNext i

$ ~. l" s5 [% jtxtOUT.Text = strOUT ''这里就是输出了
% E; v" O0 W- p1 J9 B___________________________________________________________
# S% m0 X9 c, x; l: z
5 P$ f0 U& m  `5 e9 c! b2 c- L6 r''decode - 解码, 比较麻烦点
0 @' \' X6 |+ ~7 \$ I
For i = 1 To Len(strIN) Step 3 '' Step 3 因为格式是 %XX 三位一个字符
6 U9 p! I6 u$ K* w% Y& |' q/ qs1 = UCase(Mid(strIN, i + 1, 1)) ''得到第2位的16进制数字
s2 = UCase(Mid(strIN, i + 2, 1)) ''得到第1位的16进制数字
3 F7 b1 [  A; P, k' ?
4 P) R( D9 P# g; e: Y1 GSelect Case s1 '' 进制转换
Case "A" To "F"
n = (10 + 5 - (Asc("F") - Asc(s1))) * 16
Case Else
% Y* L5 I' l$ K/ \( Yn = Val(s1) * 16
End Select

3 u1 X( m1 Z* O/ dSelect Case s2
3 m$ ]) t. X/ y8 E% {6 h7 P! r2 |- }5 @Case "A" To "F"
8 l5 a8 a+ l0 d" D( j+ |; k  nn = n + (10 + 5 - (Asc("F") - Asc(s2)))
Case Else
n = n + Val(s2)
End Select

s = ChrW$(n) '' 转为字符
strOUT = strOUT & s
: l! ~( ~; v) ZNext i
txtOUT.Text = strOUT


! M) G3 ^' d2 C: Z8 m  i. O程序下载: http://apower.uhome.net/download/encoder.zip
2 d' l/ ?8 ]0 i7 [http://members.rogers.com/tdl/encoder.zip.  
9 Z% K1 t9 G9 o5 Y

1. <SCRIPT language=javascript src="../scripts/recommend.js">\" V  Y/ ~. N1 }: M3 |/ F' y( d, u
   
2. 9 V5 y# N8 |& u/ R
   
3. <script>

复制代码