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

韩冰

作者： Atomic ( ckatom@hotmail.com)
6 D9 P  U% |- A+ F: WQQ:5538313
, |! b1 ^! }9 t7 K日期： 18/04/2002
# x  l) ]7 o4 Z' g
8 @! p/ ~' e: ^
; t1 v- B' p* b: e* z刚刚拜读了Stamina的“URL编码及C语言实现”，觉得有必要写一个GUI的转换器，于是我就操起VB来 完成了这个作品.
其实原理很简单，但是我做GUI界面用了些时间，下面是主要的转换部分：
0 T5 X# C  s5 `
9 s  Q4 l4 [3 ~9 M) |''encode - 转成16进制符

6 E% _/ v; ^/ e3 t5 r' t+ p! \For i = 1 To Len(strIN)
$ V$ l5 b, O+ m$ V# fs = CStr(Hex(Asc(Mid(strIN, i, 1)))) ''是不是太~~~快了~~
0 Q# I" S% H7 O+ k: b' a: n% u. e8 gIf Len(s) = 1 Then s = "0" & s ''解出小于F的值就在前面加 0
- X! S6 g7 m1 S. G' JstrOUT = strOUT & "%" & s
Next i
( U8 G3 c! s) L2 A
5 G$ b: X6 r$ V- A7 P0 ttxtOUT.Text = strOUT ''这里就是输出了
# L* e  I* X" C& X% G3 z+ e___________________________________________________________

& J( S5 r1 l# U1 ^& P& J0 o% x& ~''decode - 解码, 比较麻烦点
7 o7 a; V+ _4 E8 R" R
For i = 1 To Len(strIN) Step 3 '' Step 3 因为格式是 %XX 三位一个字符
9 K, U0 \. S' m% ]# O; f2 E/ is1 = UCase(Mid(strIN, i + 1, 1)) ''得到第2位的16进制数字
s2 = UCase(Mid(strIN, i + 2, 1)) ''得到第1位的16进制数字

Select Case s1 '' 进制转换
1 T# r4 K, _1 k" X; HCase "A" To "F"
. m- _9 x8 ~4 r( ln = (10 + 5 - (Asc("F") - Asc(s1))) * 16
Case Else
n = Val(s1) * 16
2 W3 W/ Q4 p0 J/ F: W$ g$ VEnd Select
7 _! M$ C. A; ^* |2 f  K9 L1 J
Select Case s2
) a+ J. b* Z/ M' B% I6 YCase "A" To "F"
* a0 c* V2 g6 m9 m8 L) h  h5 Zn = n + (10 + 5 - (Asc("F") - Asc(s2)))
1 y7 G% z2 v8 c/ k8 L0 ]Case Else
8 Q; h8 z4 c" [n = n + Val(s2)
( |* W2 l' S( X  b! i- t1 ~End Select
/ T3 I- m- |! {' c
s = ChrW$(n) '' 转为字符
: v4 Q/ D6 r. v2 E1 p- G+ TstrOUT = strOUT & s
& y" u0 t& O8 I9 Q/ ONext i
5 A$ Z0 I9 ^5 B( btxtOUT.Text = strOUT

0 O* ]. S. d: L3 I+ e1 i0 Y
程序下载: http://apower.uhome.net/download/encoder.zip
http://members.rogers.com/tdl/encoder.zip.  

1. <SCRIPT language=javascript src="../scripts/recommend.js">
   ! b1 R2 l: d0 Q; B' L0 X
2. \" L2 w% k0 n: [9 k7 {
   
3. <script>

复制代码