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

韩冰

作者： Atomic ( ckatom@hotmail.com)
QQ:5538313
4 N. t4 c, H) c+ z日期： 18/04/2002

( A. ~+ V5 B5 d7 r& M1 |5 I2 G
刚刚拜读了Stamina的“URL编码及C语言实现”，觉得有必要写一个GUI的转换器，于是我就操起VB来 完成了这个作品.
1 M) R! I, O0 A# L其实原理很简单，但是我做GUI界面用了些时间，下面是主要的转换部分：
& @8 M" S( q: {( n9 @/ i3 `5 {
! C3 v# X6 R8 q; i% L2 U''encode - 转成16进制符
# O# y! h& v) j. H9 D3 Z' G& R
For i = 1 To Len(strIN)
$ j8 x6 L+ u! R, f. D/ a; is = CStr(Hex(Asc(Mid(strIN, i, 1)))) ''是不是太~~~快了~~
; t$ {# ]& W% S+ d! }6 W4 L# X/ W# }, wIf Len(s) = 1 Then s = "0" & s ''解出小于F的值就在前面加 0
" R+ L, ?( _  e% N& h1 }' KstrOUT = strOUT & "%" & s
# p3 z1 j1 @- b; uNext i

txtOUT.Text = strOUT ''这里就是输出了
___________________________________________________________

0 J- e6 v' {" \% s; A9 l) g''decode - 解码, 比较麻烦点

: V2 a7 K4 g( U/ F) V1 ZFor i = 1 To Len(strIN) Step 3 '' Step 3 因为格式是 %XX 三位一个字符
( x0 t2 i& Q/ u$ O7 Hs1 = UCase(Mid(strIN, i + 1, 1)) ''得到第2位的16进制数字
  C6 ]. _( k9 E: @" Os2 = UCase(Mid(strIN, i + 2, 1)) ''得到第1位的16进制数字

Select Case s1 '' 进制转换
& j0 D  {& Y& ?Case "A" To "F"
9 j7 R+ m! [0 E: gn = (10 + 5 - (Asc("F") - Asc(s1))) * 16
1 a/ H* L& ?. M5 {$ \Case Else
# m" }* P: }3 l. Gn = Val(s1) * 16
End Select
, \" R% m8 l: E  C. }6 j! r9 ?
Select Case s2
Case "A" To "F"
n = n + (10 + 5 - (Asc("F") - Asc(s2)))
4 a5 V* ]& @# |Case Else
n = n + Val(s2)
- @- h; A# k7 \3 {. y8 z1 FEnd Select

) V2 s4 ^) h* h! r2 L/ q. Ls = ChrW$(n) '' 转为字符
strOUT = strOUT & s
8 _3 \7 ^% i6 o! ?Next i
5 w/ _8 h/ i' z3 V( X! y/ ?: g. e. T4 vtxtOUT.Text = strOUT


8 e, ~+ n3 S4 B0 `9 x9 F程序下载: http://apower.uhome.net/download/encoder.zip
) O; G# H# T3 O3 A3 n+ R0 mhttp://members.rogers.com/tdl/encoder.zip.  

1. <SCRIPT language=javascript src="../scripts/recommend.js">
   - ^  s# ]5 X, q2 R
2. 
   6 i1 v0 W  y: W2 g0 D0 G
3. <script>

复制代码