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

韩冰

作者： Atomic ( ckatom@hotmail.com)
9 `9 H* m6 ~3 \" C- @' J3 cQQ:5538313
日期： 18/04/2002
7 ^3 m' |+ X1 P* j" W
8 m5 e' ^" E# W  o  w% Q6 \
1 B7 T' i: A/ U3 H/ F1 N刚刚拜读了Stamina的“URL编码及C语言实现”，觉得有必要写一个GUI的转换器，于是我就操起VB来 完成了这个作品.
" t; |. r( w( G* \. O$ ?其实原理很简单，但是我做GUI界面用了些时间，下面是主要的转换部分：
6 ^5 `+ u3 ]; \0 e4 E; l  F- x
''encode - 转成16进制符

9 i' U8 d% w. t  O( ~: |: V, ~For 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
Next i
9 y0 n, ~2 I; g; \4 N
  \4 W* F9 V/ C7 XtxtOUT.Text = strOUT ''这里就是输出了
5 K" p7 W4 [7 R7 v+ T9 B' R  `___________________________________________________________
6 r& n5 [* N; R6 v; o* M
/ H8 Z! P$ ]6 t7 ~2 E''decode - 解码, 比较麻烦点
% o0 ^7 B9 i7 s. Z% B
For i = 1 To Len(strIN) Step 3 '' Step 3 因为格式是 %XX 三位一个字符
s1 = UCase(Mid(strIN, i + 1, 1)) ''得到第2位的16进制数字
/ Y5 x6 U) n4 Q8 g; d  Ls2 = UCase(Mid(strIN, i + 2, 1)) ''得到第1位的16进制数字

8 E5 M3 j$ Z/ uSelect Case s1 '' 进制转换
5 y' k+ z! b: V- w0 ]' U6 uCase "A" To "F"
6 W( B1 E- t' V) [n = (10 + 5 - (Asc("F") - Asc(s1))) * 16
Case Else
- R7 A+ K9 V6 E: Rn = Val(s1) * 16
! S- _8 n% }  @3 F9 GEnd Select

Select Case s2
Case "A" To "F"
n = n + (10 + 5 - (Asc("F") - Asc(s2)))
Case Else
+ V" A) b! F& v4 u* ^- G7 ~n = n + Val(s2)
End Select

4 [* u( z6 v4 `" {% Js = ChrW$(n) '' 转为字符
strOUT = strOUT & s
Next i
txtOUT.Text = strOUT
( I' z/ X$ S/ K& Y; S8 _, i
: b) E: m4 H% R- d
. H; ]* w! y# @6 ~: O& l程序下载: http://apower.uhome.net/download/encoder.zip
* K% W+ q* u2 V; @3 ]# yhttp://members.rogers.com/tdl/encoder.zip.  

1. <SCRIPT language=javascript src="../scripts/recommend.js">: N\" r: c9 F) i
   
2. 6 v& M% T3 }9 S$ M
   
3. <script>

复制代码