[原创文章] 关于国内某知名大学网站加密算法的研究 算法, 大学, 研究

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm3 U2 B0 b# k6 U9 s
原始出处：http://www.3ast.com.cm
4 d* p: P7 ~( ?- f4 o5 d# Q7 W! J  z. y3 v: X7 v7 |; I
看不懂的直接绕过" l& t" ?# o& g0 j+ Y& r
加密前为:hwy123456
2 @' \' B1 A4 f" t& |! s加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E6 q! L/ [, ], Y* }$ X7 Z
& d( `7 O: g* F. h$ C& R
============================================% u5 P; \+ L3 Z) Y( l' C% b
上面是当时自己校内的心情。现在已经解破出来了，分享给大家7 l$ B9 }; Q1 C$ y0 E% |+ z
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
! q$ `4 s* o; g) N- h  g8 [4 {以下是RSA算法文件, H5 y: P, n( i1 F4 b. P
# N) [! U0 |7 y& |8 b) y+ C% p# Y
文件名RSA.ASP  H/ i" ?: r( W* Q
===============================================; k' z+ M$ N  C, A4 g
<% 8 _/ w. l; T" Q% y
Class clsRSA % @  e! ^3 c% }; Z$ k' @* h
Public PrivateKey 7 X- a" q  X+ R% l+ ?) S1 @! [
Public PublicKey
/ D* x/ D; D, S5 f  g3 U. @Public Modulus & @& i( R5 m' u8 I
Public Function Crypt(pLngMessage, pLngKey)
) ^7 l9 B  U* ^$ I3 s+ MOn Error Resume Next ' I) Q$ ]; X4 @1 o+ A! ^
Dim lLngMod
! ]8 M2 \4 N( [8 hDim lLngResult
5 U* ?0 `: M6 J: i. h/ l: ADim lLngIndex
! j. u/ j% w9 g$ @) m* WIf pLngKey Mod 2 = 0 Then
+ ^8 H' D% }: H# u9 dlLngResult = 1   v0 T* `* C" a+ q
For lLngIndex = 1 To pLngKey / 2 4 z3 T, L6 d* G! v# {0 a; N% o
lLngMod = (pLngMessage ^ 2) Mod Modulus
4 i+ L* T% W0 A! p+ ~; L# \0 d  z' Mod may error on key generation
' ]( g! o0 R% R( q, KlLngResult = (lLngMod * lLngResult) Mod Modulus
5 Y7 s1 a* M9 g; ~If Err Then Exit Function
2 A6 H& S* w0 V: j, A  A) j$ |; e- KNext / c5 z- |8 n) _% q0 j
Else
0 I. e% t! @( }: |lLngResult = pLngMessage
' U) }/ H! ~  C; jFor lLngIndex = 1 To pLngKey / 2
1 ?2 g, ]/ m" b$ xlLngMod = (pLngMessage ^ 2) Mod Modulus
9 ^3 l; \9 T0 ]On Error Resume Next
+ r, @! A8 t  A% n' Mod may error on key generation
# Q8 X* K7 e3 zlLngResult = (lLngMod * lLngResult) Mod Modulus
* h$ _: l! w4 r! dIf Err Then Exit Function
$ }& Z5 \9 y# j, ]  O: rNext
) z+ t( v  Y& U8 o, D3 VEnd If . F' `/ e/ {* e; q5 S" [
Crypt = lLngResult
$ m; b# S& P% ]3 m8 Y0 eEnd Function
7 K( J  b3 \9 q1 w5 ]- r5 h; h* V8 t
Public Function Encode(ByVal pStrMessage)
- P7 w# J- e4 l: S8 uDim lLngIndex 1 I( ~- Q4 S( b/ {8 Z  q
Dim lLngMaxIndex 5 {* R- ^4 G6 ?1 r/ \  x: G
Dim lBytAscii ; x7 J7 W8 j, A, W- U+ |
Dim lLngEncrypted . @& X' d  y$ f* f7 W7 D' i
lLngMaxIndex = Len(pStrMessage)
4 }* f0 C- t% B8 ^7 F; o5 ?2 BIf lLngMaxIndex = 0 Then Exit Function 2 }: r# M. }: O7 o# B0 ^
For lLngIndex = 1 To lLngMaxIndex 6 Y& U9 Y2 T8 @, j1 ^
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) , R, R* g, I* _+ Z
lLngEncrypted = Crypt(lBytAscii, PublicKey)
$ N% r$ H2 H- [6 M' TEncode = Encode & NumberToHex(lLngEncrypted, 4)
$ D+ |8 z6 {( B& d5 a, g9 i" MNext
3 K- z3 x* p8 M  y! H- I3 eEnd Function ( l4 ?: R3 u4 @" k7 d
Public Function Decode(ByVal pStrMessage)
. g! d$ o& }: B) I9 ~Dim lBytAscii " Y; `7 l2 H- F, l! H, L
Dim lLngIndex + |/ _( U3 j6 p  p; U5 f9 n9 e) A* v; ]
Dim lLngMaxIndex
; u8 W0 N; X# _. [9 u( x: _Dim lLngEncryptedData
; d8 J% l. c8 l0 [" Y1 a& B: ADecode = ""
0 z9 U) }; p8 K3 V% P  T& VlLngMaxIndex = Len(pStrMessage)
$ Y0 ~6 d' o( V: rFor lLngIndex = 1 To lLngMaxIndex Step 4
9 i: O) r( G$ L( I- A& `lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
# o* s7 K' N! x& x4 h/ W( ulBytAscii = Crypt(lLngEncryptedData, PrivateKey) ( A& w5 [; l5 ^, L' E' ]+ N# k6 L
Decode = Decode & Chr(lBytAscii) # m( u1 m0 a/ @" \8 }- d
Next 3 w: Z+ o# T% z, d. h; _2 O: Z% I* ]
End Function
% H% i% V9 t1 Z- B* y. PPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 3 g! S5 F& X; d- _3 d- `
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
/ V7 \! L% a- VEnd Function
; {$ U0 `& O9 P; \8 L* UPrivate Function HexToNumber(ByRef pStrHex)
* ~5 @" _. g: XHexToNumber = CLng("&h" & pStrHex)
% e9 Q3 Q1 z2 E+ q' z- H7 OEnd Function
+ m) |" a+ C% u. S8 g. ^End Class ; R6 k; V0 L; C: Q
function Encryptstr(Message)
3 b$ m, m9 V6 UDim LngKeyE
$ N. E# G5 B0 l7 o+ j& N" hDim LngKeyD 8 g& }6 I) p9 d0 o& `9 @
Dim LngKeyN   o; P1 B* D3 [  e+ h
Dim StrMessage
8 f$ q9 _. |! u! ^! S3 zDim ObjRSA
  S1 z" Z0 h- v2 V! a  eLngKeyE = "32823"
& t4 _) O1 D" h: l7 D  c0 xLngKeyD = "20643"
" o8 b0 g! u" k6 ?% n$ xLngKeyN = "29893"
/ [( B4 W+ G  v8 SStrMessage = Message " [* p& y- F% k3 }
Set ObjRSA = New clsRSA 0 ]8 S; `5 M- [: G
ObjRSA.PublicKey = LngKeyE 7 \4 \9 s$ q: a/ C
ObjRSA.Modulus = LngKeyN
# C0 V  b, W+ nEncryptstr = ObjRSA.Encode(StrMessage) ( i) s- c! l% H1 p/ p
Set ObjRSA = Nothing 9 W* ?* q; [6 Y, T) N' e
end function  ~8 Q4 {" c8 I! I' \# ^; e
Function Decryptstr(Message)
! L, g. J+ K1 ^4 s8 }Dim LngKeyE # j: u; E9 ^2 a/ N; r% w& N
Dim LngKeyD
6 t- }( I+ h$ `. A& S9 \6 bDim LngKeyN
- W( a; p- A9 S5 ]4 g+ m3 UDim StrMessage 7 m$ R! i2 j% X- _
Dim ObjRSA " h; w5 B( S" l- Y( L
LngKeyE = "32823" 9 K( [6 P' r, N5 J6 F- @5 w
LngKeyD = "20643"
) w/ l; T/ C9 [5 r( s# rLngKeyN = "29893"
3 @% c8 I) N( cStrMessage = Message
# j" X% C6 V+ M. v8 U( WSet ObjRSA = New clsRSA ; |% b8 g- K( Y* \4 ~4 Q  R2 B
ObjRSA.PrivateKey =LngKeyD - V5 Z9 z, n4 i  n0 o
ObjRSA.Modulus=LngKeyN 7 `+ S' o( H1 A( V" K* [9 {4 E
decryptstr=ObjRSA.Decode(StrMessage) 4 P( g- w3 x' Z& ?% B# d3 R
Set ObjRSA = Nothing 0 J( M0 f2 a$ q6 c
end function + C8 w& t/ R6 C# q( x& Q0 g" R2 B- s
%>
0 i* X' Y4 c  u! Z6 V  m===============================================1 e3 q4 k2 g- F1 f- V% Z
* Z' e2 I' \. E+ Z$ N. w, U4 t
还有一个用于测试这段代码的test.asp
3 g2 ]% P/ k; o& M6 S有兴趣的自己搭建个IIS测试下5 g! g+ M; |; o: I& E& \% R
<!--#INCLUDE FILE="RSA.asp"--> 4 B* C  P0 `6 u, T7 R8 S, N+ M
<%5 d' p9 r1 O3 X7 q8 M" b
function Encryptstr(Message)
9 ]" I6 B& A7 c! nDim LngKeyE
8 [$ k& y5 x: ~2 ~, KDim LngKeyD $ G7 x$ \: O& l6 `# t! G
Dim LngKeyN
. k% j7 A' M/ B% M0 MDim StrMessage 1 u$ o9 B2 m4 }( \9 G2 g% S& X
Dim ObjRSA , `# z/ C; Q  f+ u5 T
LngKeyE = "32823"
2 e" Q# ?" |1 Z; M; vLngKeyD = "20643"
8 G: m; ]# ^- I0 X, WLngKeyN = "29893"
0 q( g/ T$ H" n4 kStrMessage = Message + _/ u  y" Q$ n. j( r" i
Set ObjRSA = New clsRSA
/ |& r( `4 D) X0 h7 n4 p( A  J+ dObjRSA.PublicKey = LngKeyE . \) y% @2 X7 _5 |$ J" Z
ObjRSA.Modulus = LngKeyN
7 p; j, k* c  @2 U8 ZEncryptstr = ObjRSA.Encode(StrMessage)
2 l( M1 T! E$ A+ j8 p, VSet ObjRSA = Nothing 3 Y+ s# l7 A' F+ Q# s
end function
: v, Y5 A5 _7 V% jfunction decryptstr(Message)
% x$ I; h6 b) R6 o6 D! SDim LngKeyE
" N& E6 |( ]. t1 e- zDim LngKeyD   r( c+ D. O' y& d2 \7 r
Dim LngKeyN
0 O& `! R/ j7 P$ N, B1 u8 pDim StrMessage
  m2 O0 S1 y: `6 MDim ObjRSA
; d- ?7 O! a& I  e# ]LngKeyE = "32823" 7 N+ r. C% E# W! q6 V2 B
LngKeyD = "20643"
  \$ {# U6 N+ v6 Z( [  f" sLngKeyN = "29893"
' Y9 |. e5 k, X2 O" b0 FStrMessage = Message
# S; b( _" N- A% f: b9 c( QSet ObjRSA = New clsRSA
/ a! }# r, r, a, w+ n7 F5 }: D3 PObjRSA.PrivateKey =LngKeyD
; ^7 t; j+ k( ]ObjRSA.Modulus=LngKeyN - N4 f: M( j: @* j. Y3 s/ K/ l, @
decryptstr=ObjRSA.Decode(StrMessage)
2 a/ k& t8 a% q" Z- PSet ObjRSA = Nothing . M! }6 N/ q+ b& e
end function " t& V2 w  \/ O% w& g& J
dim last,first $ a7 ]) q, K. z+ h4 b
first="!@#$%^&*()"
) z; s. q+ r( \: [5 @  M5 @Response.Write "加密前为:"&first
( P8 S& t: U5 M# v5 I! \0 m5 jlast=Encryptstr(first)
% Z: c! I: J2 k6 U& eResponse.Write "加密后为"&last 0 B2 l- _# F% E8 p/ H0 ~  H' W; |
Response.Write "解密后为" &decryptstr(last)
) c. Z/ w4 s. V, b%> ==============================================
/ p" b. g8 }; ?# N% }" M剩下的就是字符的对照表了
1 |9 _$ C: L: W& u9 A===================字符集================
5 z; B& _. H8 D% W! J0 \1_____6EBB
% U$ G' s0 f: s3 g! X0 K2_____5C1F
: B: r$ }! m: N8 ~- b3 |& v. d8 ]3_____4D75
0 J+ n  J+ h4 @3 n7 a3 x- ^4_____26CC5 j6 W4 {5 b& t$ |+ e
5_____4F885 ]% z/ E0 c( c( \6 E
6_____3F4E
* D3 f3 N, ]* o9 T0 l% q* L* x1 ^7_____0A9D
/ m! |) b& ^( s) b. _) I7 o( @8_____1A1C
/ l) B8 m6 x. [3 v4 b" g9_____6D20
& b  a1 p, U# p/ M* ]2 Q' G0_____1089% ~" Y% S/ y2 W7 y
a_____0F3E
; S' D1 [, X$ L4 {/ _b_____3159% K# V' r+ n% ~3 q5 s" H
c_____3517
7 W* @: o& E, [5 u) w) P8 md_____419C+ h# O* H9 E- l* @# \0 k
e_____615C
* Q+ r4 m: n7 u0 G0 Z* uf_____556F9 }" Z8 [+ X- B9 [# [- b
g_____2B7F9 _6 H/ t0 b1 o: X; ^0 |
h_____0F9C
+ r, s) C# d: @6 B4 Z* }! y- Mi_____00FA
. W5 N! i/ A/ \0 N* f. n! uj_____5A50
1 r! `, P  [7 a5 e, ?0 ?) Pk_____2850
4 s* O$ X+ L  a0 @  k; ~l_____3E7B% W& U7 N0 x; B9 M. s; i7 i/ C
m_____71C5: ]) I6 h7 @; X0 F7 p, N
n_____1FC8
! G$ S3 ^  C+ E2 _" W5 f% t3 o) ?o_____74C1
" Z; H# N. L0 m2 w! u/ U0 hp_____5FB8% j, s1 K/ b/ Z, s  {+ U: K1 v
q_____60857 R+ {5 t: ~  O% s; D" R0 D
r_____3AC4
- T' W, _& |: R, e( Z% d7 i5 `s_____2F50) M2 L3 L& i9 z0 O, n- Y
t_____36F8
4 r. A8 X# e  L7 q' ru_____7010$ D3 E. |: }+ h5 ~7 v8 |
v_____0B42
" R: B, s/ u/ Z$ |5 [) Dw_____1C7A# `; z1 @! z3 {$ \$ k
x_____16F8$ G2 E; E% _1 T0 F: Q
y_____2EE71 v+ x# X' Y* m1 P) w$ X  N$ z
z_____5CF3
1 o! W" W" K; U& |- H!_____62332 g0 ]" a  @" L1 v
@_____3A45
3 R" i6 s2 s: L#_____22913 h* f2 C3 |+ \  s7 n# r! T
$_____5D5C
7 P1 j6 l9 |* m9 H1 U1 D( W%_____09B9! d: l) p8 X1 J8 i  G$ G/ w
^_____43EA
: u1 j/ ]! ~9 A, O! l( d* ?&_____62B92 Y3 }* u! o2 ^6 }1 {
*_____6301
6 V: t1 H- s; E5 h(_____4659
! M: d1 Y+ g* R% G& D)_____5C82

鱼儿无心

收藏了。。。。。。。。