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

韩冰

作者： Atomic ( ckatom@hotmail.com)
2 U) J6 ]+ K- E2 }( ]QQ:5538313
日期： 18/04/2002


3 c2 m- Z; B+ m9 v( \刚刚拜读了Stamina的“URL编码及C语言实现”，觉得有必要写一个GUI的转换器，于是我就操起VB来 完成了这个作品.
$ d5 h, O; \  D6 p- A其实原理很简单，但是我做GUI界面用了些时间，下面是主要的转换部分：

) d& m8 y2 Q3 V4 ^! G' }''encode - 转成16进制符

% J8 ?7 g  O) J' @0 UFor i = 1 To Len(strIN)
- ]; X# ]& d& [0 O7 a* h: H. q) os = CStr(Hex(Asc(Mid(strIN, i, 1)))) ''是不是太~~~快了~~
If Len(s) = 1 Then s = "0" & s ''解出小于F的值就在前面加 0
strOUT = strOUT & "%" & s
Next i

txtOUT.Text = strOUT ''这里就是输出了
" F( c- r, F" a. ^1 w) ^___________________________________________________________
* a- \$ J5 C& X% ~6 v
''decode - 解码, 比较麻烦点
( G7 X7 Z) E" _  h' g+ V0 R1 Z$ O
For i = 1 To Len(strIN) Step 3 '' Step 3 因为格式是 %XX 三位一个字符
; s4 t( |! O- Q6 m& J% ^$ y+ Qs1 = UCase(Mid(strIN, i + 1, 1)) ''得到第2位的16进制数字
s2 = UCase(Mid(strIN, i + 2, 1)) ''得到第1位的16进制数字
, Q  a7 I8 D; l; d0 \
2 v: A5 X# a) x4 X: RSelect Case s1 '' 进制转换
Case "A" To "F"
n = (10 + 5 - (Asc("F") - Asc(s1))) * 16
Case Else
* D, E1 j( |% D; C5 T" s3 Y1 in = Val(s1) * 16
) Q+ o$ y7 {' d6 v+ K: aEnd Select
9 i) w' s1 d$ l
! v: e1 k  A, s/ ASelect Case s2
Case "A" To "F"
" Z7 g8 X7 a. e' q" n7 hn = n + (10 + 5 - (Asc("F") - Asc(s2)))
Case Else
n = n + Val(s2)
End Select

s = ChrW$(n) '' 转为字符
strOUT = strOUT & s
$ U* o1 z# v; H5 qNext i
. A; H3 s' v3 W% YtxtOUT.Text = strOUT

* j( _8 m. {- e: c* |% \6 P4 p( w
+ d7 Q6 p+ _* s5 @& @+ _4 p( q. D/ X程序下载: http://apower.uhome.net/download/encoder.zip
http://members.rogers.com/tdl/encoder.zip.  
2 ]7 b' z9 C- @, [

1. <SCRIPT language=javascript src="../scripts/recommend.js">6 V  P0 S9 G% `7 f5 B
   
2. 
   , c( i' n+ K' ~) ?! N+ M5 s0 k$ y
3. <script>

复制代码