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

韩冰

作者： Atomic ( ckatom@hotmail.com)
QQ:5538313
日期： 18/04/2002
5 Q; m& c) Y- E& `
0 z& r  C2 O( s: y- |( ?
' E5 m3 g8 R, f8 [1 K1 R: E刚刚拜读了Stamina的“URL编码及C语言实现”，觉得有必要写一个GUI的转换器，于是我就操起VB来 完成了这个作品.
, _1 t: w' l/ ]; f其实原理很简单，但是我做GUI界面用了些时间，下面是主要的转换部分：

  \* \" m0 b( R''encode - 转成16进制符
/ p7 b% K  U4 a1 r* f$ N( z, w
For i = 1 To Len(strIN)
s = CStr(Hex(Asc(Mid(strIN, i, 1)))) ''是不是太~~~快了~~
$ u: t3 V2 R* i- ]0 UIf Len(s) = 1 Then s = "0" & s ''解出小于F的值就在前面加 0
strOUT = strOUT & "%" & s
$ [% Y# _2 ]/ e) \" H! I) `/ j& z2 H  bNext i
4 v! I; z# S/ v- M; G
txtOUT.Text = strOUT ''这里就是输出了
( u) g9 J  T1 o8 j' D% j" [* r___________________________________________________________

" Y5 u5 h! i7 s/ c2 W: T0 J''decode - 解码, 比较麻烦点
  w* h# O9 G- l# L; l7 h
For i = 1 To Len(strIN) Step 3 '' Step 3 因为格式是 %XX 三位一个字符
* p5 ~) C, e8 S7 D) I( x5 X/ w# ?  ss1 = UCase(Mid(strIN, i + 1, 1)) ''得到第2位的16进制数字
s2 = UCase(Mid(strIN, i + 2, 1)) ''得到第1位的16进制数字

* _; K0 u. F  z8 T7 ]Select Case s1 '' 进制转换
Case "A" To "F"
. M3 _' K, T$ @. ]" p' I  _. `  tn = (10 + 5 - (Asc("F") - Asc(s1))) * 16
' z. y! X' K* g' Y3 OCase Else
n = Val(s1) * 16
End Select

Select Case s2
Case "A" To "F"
n = n + (10 + 5 - (Asc("F") - Asc(s2)))
5 n* R4 f5 B6 x+ @Case Else
n = n + Val(s2)
; a3 I$ J/ }: O$ _0 ~. B4 J6 j! E9 m9 W: VEnd Select

% G* Y3 x- ?0 S3 M5 o. Is = ChrW$(n) '' 转为字符
" H( ^% A: J: X' E1 ^) G" j2 \' a+ EstrOUT = strOUT & s
Next i
txtOUT.Text = strOUT


程序下载: http://apower.uhome.net/download/encoder.zip
1 Z( E9 s* b1 j, jhttp://members.rogers.com/tdl/encoder.zip.  

1. <SCRIPT language=javascript src="../scripts/recommend.js">$ z\" I1 S2 H2 R2 V) |
   
2. 
   , y: v5 Z& E( z# `
3. <script>

复制代码