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

韩冰

作者： Atomic ( ckatom@hotmail.com)
7 f5 ]3 n$ g* ?, T* O5 B0 j1 jQQ:5538313
' q& E5 ?3 p# d3 [) v. J1 B  u日期： 18/04/2002
3 ^+ W4 |/ u( j

; e3 H4 h9 h' v  V: v刚刚拜读了Stamina的“URL编码及C语言实现”，觉得有必要写一个GUI的转换器，于是我就操起VB来 完成了这个作品.
其实原理很简单，但是我做GUI界面用了些时间，下面是主要的转换部分：
' b! x. X3 U8 h/ S% o4 _
- ]. d4 P; b+ ]6 H''encode - 转成16进制符

For i = 1 To Len(strIN)
7 O* d6 ^- c* v" ]6 K& Ds = CStr(Hex(Asc(Mid(strIN, i, 1)))) ''是不是太~~~快了~~
If Len(s) = 1 Then s = "0" & s ''解出小于F的值就在前面加 0
2 V/ v* }4 R. d, y& m" C, H) ZstrOUT = strOUT & "%" & s
Next i
: D( R  O0 j' S2 R2 k; B' B
txtOUT.Text = strOUT ''这里就是输出了
___________________________________________________________
% T5 Q4 a+ A- b2 G
: h4 u6 C6 ?( }3 }, X''decode - 解码, 比较麻烦点
; Z1 Z( C: K4 v4 w% z+ }: D: h0 d% @
2 t2 K: J) ~5 c9 q5 @+ L) oFor i = 1 To Len(strIN) Step 3 '' Step 3 因为格式是 %XX 三位一个字符
5 t0 b: n& h" x& gs1 = UCase(Mid(strIN, i + 1, 1)) ''得到第2位的16进制数字
s2 = UCase(Mid(strIN, i + 2, 1)) ''得到第1位的16进制数字
4 H) ]0 `: Q" [9 B- p0 V8 f' z# U: L
4 \) h0 m' P: p& I% ~; YSelect Case s1 '' 进制转换
; X1 X( ]0 H  DCase "A" To "F"
n = (10 + 5 - (Asc("F") - Asc(s1))) * 16
5 R( d% O' @' b7 G1 w/ SCase Else
# G8 V: C; }* s$ tn = Val(s1) * 16
End Select

- b, o+ n. {  ?- @: pSelect Case s2
( [$ X' V5 H6 n! K4 LCase "A" To "F"
n = n + (10 + 5 - (Asc("F") - Asc(s2)))
" ]% k) E& n9 V5 J* m( ]" QCase Else
n = n + Val(s2)
End Select

s = ChrW$(n) '' 转为字符
8 M# h6 ~. T4 A" T, ^/ `5 EstrOUT = strOUT & s
! ]/ u( K. q9 |3 ZNext i
1 [$ s  p8 ]: b1 LtxtOUT.Text = strOUT
5 i# j1 R; Q0 b- V0 a

; K, Y- Z. N% p% ?) K$ X程序下载: http://apower.uhome.net/download/encoder.zip
6 T9 _% s" {$ ~0 B! n" @. g( Ohttp://members.rogers.com/tdl/encoder.zip.  

1. <SCRIPT language=javascript src="../scripts/recommend.js">4 C8 F1 p! s4 S6 @+ {% c
   
2. 9 Q3 i4 O# I+ l3 d2 B
   
3. <script>

复制代码