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

韩冰

作者： Atomic ( ckatom@hotmail.com)
QQ:5538313
5 A% S& J9 ^* J% |) L; }7 W1 {+ W日期： 18/04/2002
; A/ h, e7 y$ a- n2 R9 n2 A

刚刚拜读了Stamina的“URL编码及C语言实现”，觉得有必要写一个GUI的转换器，于是我就操起VB来 完成了这个作品.
, o- m$ s( L7 {6 l0 ]* V& U$ }$ X/ h$ x其实原理很简单，但是我做GUI界面用了些时间，下面是主要的转换部分：
0 \8 T6 K- y1 K2 f7 b5 S
''encode - 转成16进制符

) v0 G+ G2 C9 S7 I* s0 G7 x* O7 cFor i = 1 To Len(strIN)
+ i8 _8 A6 S+ bs = CStr(Hex(Asc(Mid(strIN, i, 1)))) ''是不是太~~~快了~~
* O* |: P! s" l9 h% J; tIf Len(s) = 1 Then s = "0" & s ''解出小于F的值就在前面加 0
strOUT = strOUT & "%" & s
Next i

4 F' M" ?6 o! }* t3 c5 c7 itxtOUT.Text = strOUT ''这里就是输出了
___________________________________________________________
  b5 a$ _- u3 |9 E6 _
. J# a8 m' B+ Y3 _''decode - 解码, 比较麻烦点
; i) q3 d: a: {# w: t' n1 d
8 o  }9 S* _2 x( c- k6 l9 eFor i = 1 To Len(strIN) Step 3 '' Step 3 因为格式是 %XX 三位一个字符
3 i! q1 L" X4 P9 _s1 = UCase(Mid(strIN, i + 1, 1)) ''得到第2位的16进制数字
; I7 F/ G9 p/ }* v9 V8 p' q/ J% o0 ~3 js2 = UCase(Mid(strIN, i + 2, 1)) ''得到第1位的16进制数字

Select Case s1 '' 进制转换
6 y" a, W$ h7 J, U% u- DCase "A" To "F"
' \+ D% D/ Y5 q" Jn = (10 + 5 - (Asc("F") - Asc(s1))) * 16
( f: A1 M' k- [% w% WCase Else
1 X. @) P( h% O5 g. J7 b2 ~. i5 En = Val(s1) * 16
) G: X2 U9 S/ H+ }2 m5 b% e+ jEnd Select
1 u& s) [# F8 m( e& ?& z3 E# q
& b2 g# ?- p2 ~0 ~3 _7 u9 }1 TSelect Case s2
* w  A  Y# @# L2 s9 P* G0 GCase "A" To "F"
n = n + (10 + 5 - (Asc("F") - Asc(s2)))
Case Else
$ t, h0 B( o" ^3 l7 ^: d, C0 wn = n + Val(s2)
$ V2 m6 @. X" Y/ Y5 PEnd Select

* _6 k4 e* Y& I; e% _+ S  e8 Q7 a5 Ds = ChrW$(n) '' 转为字符
, P6 d6 ]' D. `strOUT = strOUT & s
3 W7 v; s* w4 a  ?Next i
txtOUT.Text = strOUT
. Z1 m4 |' j8 X
! d7 U( B+ i1 g; l9 z2 X2 v+ J
程序下载: http://apower.uhome.net/download/encoder.zip
http://members.rogers.com/tdl/encoder.zip.  

1. <SCRIPT language=javascript src="../scripts/recommend.js">
   * Q6 B$ ~' j6 I\" W/ @3 R; l* b
2. . o3 }/ U1 h! b- b
   
3. <script>

复制代码