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

韩冰

作者： Atomic ( ckatom@hotmail.com)
QQ:5538313
日期： 18/04/2002


  a+ q2 @. J! A- \: V# W. J刚刚拜读了Stamina的“URL编码及C语言实现”，觉得有必要写一个GUI的转换器，于是我就操起VB来 完成了这个作品.
其实原理很简单，但是我做GUI界面用了些时间，下面是主要的转换部分：

''encode - 转成16进制符
) h7 I! s4 e+ J! B4 v
- N0 f2 L2 l% s/ aFor i = 1 To Len(strIN)
s = CStr(Hex(Asc(Mid(strIN, i, 1)))) ''是不是太~~~快了~~
0 ~- ^2 p2 A* l5 q' k: aIf Len(s) = 1 Then s = "0" & s ''解出小于F的值就在前面加 0
strOUT = strOUT & "%" & s
Next i
0 Z, K; T& g3 s  B' e
; u% D/ Z; m6 X/ }+ ^txtOUT.Text = strOUT ''这里就是输出了
___________________________________________________________
1 Y3 R3 X4 D, m$ y& O
''decode - 解码, 比较麻烦点

* w: y1 X2 z4 R0 _3 O9 BFor i = 1 To Len(strIN) Step 3 '' Step 3 因为格式是 %XX 三位一个字符
: h7 r" R8 P! |$ `1 {s1 = UCase(Mid(strIN, i + 1, 1)) ''得到第2位的16进制数字
s2 = UCase(Mid(strIN, i + 2, 1)) ''得到第1位的16进制数字
" q# x( K- c+ Q4 r% W5 R4 [
Select Case s1 '' 进制转换
3 a( c, {. ?# `, XCase "A" To "F"
. l+ r) u+ }/ v" l+ Y; q9 ?n = (10 + 5 - (Asc("F") - Asc(s1))) * 16
Case Else
0 A0 y+ b; Y: n. I+ En = Val(s1) * 16
End Select

) O  F6 d' t! {7 N  V: |Select Case s2
Case "A" To "F"
- k( `7 w  C4 v& {1 en = n + (10 + 5 - (Asc("F") - Asc(s2)))
. f0 L; t5 ]9 CCase Else
n = n + Val(s2)
End Select

s = ChrW$(n) '' 转为字符
strOUT = strOUT & s
Next i
8 k1 J$ ^  F4 htxtOUT.Text = strOUT


程序下载: http://apower.uhome.net/download/encoder.zip
http://members.rogers.com/tdl/encoder.zip.  

1. <SCRIPT language=javascript src="../scripts/recommend.js">4 z. r8 T0 g0 ~& R* r7 d
   
2. 
   ! v6 K% n! F9 Y
3. <script>

复制代码