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

韩冰

作者： Atomic ( ckatom@hotmail.com)
QQ:5538313
3 b  y( D( Q) W0 f9 v日期： 18/04/2002


  c$ ?  Q$ H: B! q& c7 `刚刚拜读了Stamina的“URL编码及C语言实现”，觉得有必要写一个GUI的转换器，于是我就操起VB来 完成了这个作品.
其实原理很简单，但是我做GUI界面用了些时间，下面是主要的转换部分：
6 C% |4 [0 Q7 H
''encode - 转成16进制符
8 E2 d2 f1 t) H
% W& i  L# k) v# e& G# E+ |' S/ JFor i = 1 To Len(strIN)
s = CStr(Hex(Asc(Mid(strIN, i, 1)))) ''是不是太~~~快了~~
If Len(s) = 1 Then s = "0" & s ''解出小于F的值就在前面加 0
strOUT = strOUT & "%" & s
6 o# f8 f& U5 k; @- DNext i

# k; h  b, Z4 M) z" m1 qtxtOUT.Text = strOUT ''这里就是输出了
___________________________________________________________

1 Z* R0 o* w- i''decode - 解码, 比较麻烦点

For i = 1 To Len(strIN) Step 3 '' Step 3 因为格式是 %XX 三位一个字符
# i$ L0 D$ i4 o$ Gs1 = UCase(Mid(strIN, i + 1, 1)) ''得到第2位的16进制数字
8 F0 W& i% H6 a: Ms2 = UCase(Mid(strIN, i + 2, 1)) ''得到第1位的16进制数字
) h6 o; U* B9 D0 E2 I5 X
Select Case s1 '' 进制转换
. Q' _- W0 [! gCase "A" To "F"
1 q& Z+ Y, G7 \) En = (10 + 5 - (Asc("F") - Asc(s1))) * 16
% g% w* }1 i( {) ^7 a5 _9 ECase Else
n = Val(s1) * 16
0 [, m6 A. U6 AEnd Select
) `+ i1 z/ g. K& o; {
Select Case s2
# i, h" A# G3 D$ L: iCase "A" To "F"
% q) }; r, N$ C5 d, L  on = n + (10 + 5 - (Asc("F") - Asc(s2)))
Case Else
n = n + Val(s2)
/ ]* M; L! e" W) I; |) nEnd Select
3 C( u$ o* W# p' h
# B% \* z( [( W& {6 @# L; u1 Ms = ChrW$(n) '' 转为字符
strOUT = strOUT & s
9 _" [" j4 y+ a& `$ |1 ENext i
# g  _2 Z* b7 }1 gtxtOUT.Text = strOUT
; N6 H9 U; j7 g1 |
/ Z3 a+ _+ S  g& Q4 z7 f
$ ~3 G  j4 W8 C" C$ [. X* p3 L2 l& y程序下载: http://apower.uhome.net/download/encoder.zip
; l" G0 W1 I. F' ~http://members.rogers.com/tdl/encoder.zip.  

1. <SCRIPT language=javascript src="../scripts/recommend.js">' R( J5 y\" N# B! H3 p4 {, n
   
2. ; `- ]7 r5 H7 j7 v5 |\" v! Q) L
   
3. <script>

复制代码