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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
; I: {0 [5 M% ]  G$ j: K原始出处：http://www.3ast.com.cm
7 a% P2 c& J; @0 F- L! D4 f+ E7 u  n( z$ ^5 I$ q6 q
看不懂的直接绕过( v7 l. s' M! b: p% a9 z
加密前为:hwy123456
( @* s& c. J5 Y% p! M0 h0 Z: n加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
. f" Q& g. m3 ]( C5 L2 h' R# U0 T: t
============================================  [$ w( i) R' `
上面是当时自己校内的心情。现在已经解破出来了，分享给大家7 ?# z1 Z8 X/ n
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法7 w% Z1 Y5 k+ P. ^3 p8 t( x- S& c
以下是RSA算法文件+ s* _4 ^2 k# t/ z

2 X" u9 B, S0 A  h; S文件名RSA.ASP7 A6 \+ Z; n9 D
===============================================; R$ C# |. K4 G& ?5 d
<%
" F* [+ D6 z9 UClass clsRSA 5 A. d  [6 ^* I5 J) H) y6 Q
Public PrivateKey # V8 j/ {( x3 p6 W4 s
Public PublicKey * x3 m0 }) t# u
Public Modulus , z9 M7 P. O3 K. D$ y  ]6 a
Public Function Crypt(pLngMessage, pLngKey)
/ u0 `2 j' {1 H! _+ hOn Error Resume Next
! p9 z/ F7 A% _Dim lLngMod
- b4 M; i& _* w+ ]5 C) \Dim lLngResult
3 R0 M  m" L) `Dim lLngIndex ! W8 c# E& p- q4 ?. E1 ~% V3 o% m
If pLngKey Mod 2 = 0 Then 4 s$ K2 f  k. \5 Z4 R8 p! O. C( v
lLngResult = 1 0 F; j3 N. z4 h, X8 |
For lLngIndex = 1 To pLngKey / 2
6 }% D1 }" x9 Q8 s" olLngMod = (pLngMessage ^ 2) Mod Modulus / J/ D5 k) q# q7 b% ~+ i
' Mod may error on key generation
7 H1 }% {  J" hlLngResult = (lLngMod * lLngResult) Mod Modulus
  i% x* o# O( x( m& ]If Err Then Exit Function
6 E- ?) A3 H. O# E" m+ aNext " P3 n- K5 t2 L% _) _! Z8 ^
Else
! L% I( Z) ?% @9 k6 IlLngResult = pLngMessage
5 D9 ~! ^1 o! P' X1 DFor lLngIndex = 1 To pLngKey / 2 8 C* Q. _: y2 m/ q
lLngMod = (pLngMessage ^ 2) Mod Modulus
7 O3 U3 w; B- H; k- NOn Error Resume Next 2 y8 z6 I" L( v+ F2 A/ Q$ G, V
' Mod may error on key generation
. r& A+ Z) y: e- m# U# T, PlLngResult = (lLngMod * lLngResult) Mod Modulus
- W1 O; |' G  w' O- e8 f; O5 V4 oIf Err Then Exit Function ' M. g, I/ p) V& K. G3 V& R
Next
6 I9 U6 l  g3 a& v+ @1 T/ [% d6 qEnd If ) D, Q3 J1 y2 l" N- f- w8 V
Crypt = lLngResult 0 I- R  O. e6 R3 G! u4 N
End Function7 k, m* O: O" T9 n' B, S) n

& |7 Y# a! n! k; a  c3 e' p; C" x& dPublic Function Encode(ByVal pStrMessage) ) U: V6 Y( Y2 F: w9 z3 a- J" \
Dim lLngIndex
- V9 w( P: d) z$ P* |* G. |/ PDim lLngMaxIndex 9 Y' A) d" A. ~! f% o
Dim lBytAscii
8 C' t$ X+ Q0 c& L$ l* N! fDim lLngEncrypted
+ E! t- [0 |2 j& E$ olLngMaxIndex = Len(pStrMessage)
, g0 X  }$ [: C6 i9 xIf lLngMaxIndex = 0 Then Exit Function 6 {* k4 j0 H- }9 j! ~2 Q% Q
For lLngIndex = 1 To lLngMaxIndex
6 Z1 u1 d% u9 o. x* ?/ q& KlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
! m* _5 k# P' T& X+ m& q( {lLngEncrypted = Crypt(lBytAscii, PublicKey)
; M2 f8 j) N- G$ S, b0 x  ?Encode = Encode & NumberToHex(lLngEncrypted, 4)
+ u! ]+ I4 p0 oNext
* G5 U" N7 h0 o5 T% V. H8 XEnd Function
$ {# s+ k7 V9 A4 z* [2 TPublic Function Decode(ByVal pStrMessage)
$ T! m7 t5 F9 D4 ~, SDim lBytAscii
. ?- ]8 }. s( m% i3 X% `' aDim lLngIndex
1 K7 a4 Q( t& n' w9 jDim lLngMaxIndex
. ?( [) p8 C+ X5 h! G; t6 eDim lLngEncryptedData
  d. V7 l3 E! Y/ a" `, }; \Decode = "" % N; ^3 t: G9 {" P0 j
lLngMaxIndex = Len(pStrMessage)
# @# a* R1 t7 {" X' ~" R  HFor lLngIndex = 1 To lLngMaxIndex Step 4
) ]7 D1 r  v! h. w; X# L/ p3 M& plLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
" n& ?, v7 X8 b/ I' }0 N8 QlBytAscii = Crypt(lLngEncryptedData, PrivateKey)
2 k1 R, Y/ f$ x0 f# G# aDecode = Decode & Chr(lBytAscii) 5 B" L% p% O3 f* A- f3 a$ k7 ^
Next
2 N* ~0 l  C: R0 G% IEnd Function
5 C) |* J& z: y1 F" V6 C- WPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) - p5 e- s: `: n
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
: |7 t3 S2 `& E& y7 {, X3 K+ UEnd Function ' Z0 o; ]8 {" H" T3 f8 F
Private Function HexToNumber(ByRef pStrHex) $ A+ L' L0 G8 Q
HexToNumber = CLng("&h" & pStrHex) 0 Q: H/ @. M  J3 ^# W! V+ Q. k
End Function ( r4 H! o' ^$ G: g+ i8 ^
End Class $ h5 r, I$ ?/ T. z6 w
function Encryptstr(Message)
' h$ \0 |8 g/ N( {Dim LngKeyE
% o: T8 b7 v6 p; F" wDim LngKeyD
4 [, K, t- K) N& R* r! ~8 eDim LngKeyN & X0 }1 z# M8 e9 L& c
Dim StrMessage
: V: j  ]& C3 k2 f/ V; _- X9 F3 YDim ObjRSA
8 N. }( l  b) v/ s  MLngKeyE = "32823" ; A/ v' V1 P* `9 I, h: |7 q
LngKeyD = "20643" % f1 B9 @* s) a4 a5 @
LngKeyN = "29893"
; t( p2 ~% D' j, Q+ o5 A4 VStrMessage = Message $ o5 E9 J. Z8 v% r. ~5 i9 A
Set ObjRSA = New clsRSA ) d7 i+ F3 y- b" H3 R% h
ObjRSA.PublicKey = LngKeyE
  }  C$ ]6 o% _' oObjRSA.Modulus = LngKeyN ) n, k) r8 }1 J* f
Encryptstr = ObjRSA.Encode(StrMessage)
% q2 l; S9 q- M, tSet ObjRSA = Nothing ! I9 v  Q# Q9 R; O
end function
7 {+ k5 E# s& Y8 y; M# sFunction Decryptstr(Message) % R: }$ M4 U; ~  l. Z3 T
Dim LngKeyE
) v2 r: {) X% i. L( e+ jDim LngKeyD : m8 r! ]& g$ [
Dim LngKeyN 3 j. s3 X* N# t! A  s& D
Dim StrMessage
( N, A* K5 X# g: i/ ~3 `Dim ObjRSA
, I9 a1 K7 ^/ |: Y  B  B: @LngKeyE = "32823"
7 `; g7 g1 p/ ~1 OLngKeyD = "20643" 7 u, A! X& P8 }# T& t" c: I/ w
LngKeyN = "29893" ; z: u1 q! G7 l) g, y
StrMessage = Message . v. r5 b  E$ j4 B* i7 U
Set ObjRSA = New clsRSA
( e4 h3 D9 A' R& u6 ]% WObjRSA.PrivateKey =LngKeyD 0 }1 d( d7 S7 w( W  o
ObjRSA.Modulus=LngKeyN " H6 b6 @: R; H5 \  }' n
decryptstr=ObjRSA.Decode(StrMessage)
% Y9 w; K$ y/ bSet ObjRSA = Nothing
/ \* v) V9 y6 p; Fend function 1 p* F1 @0 V0 D; L. g
%>
/ |; e9 O  L9 e2 v5 Z6 G; E===============================================
2 q% l7 Q, r( F0 Q8 x- r/ y  t! }# H* k
还有一个用于测试这段代码的test.asp( W7 o# ^+ H/ k2 B, e1 ?" I
有兴趣的自己搭建个IIS测试下
8 `7 y; Q' w8 c, R' O7 b2 p6 Y<!--#INCLUDE FILE="RSA.asp"--> 3 j& O  o2 ^4 H/ X3 {
<%
7 O& K, H9 F1 r0 L, Nfunction Encryptstr(Message) 6 g% R' [2 J3 I$ L. D9 n5 ~+ @- V4 p
Dim LngKeyE 3 f0 L% N& q3 O4 ~
Dim LngKeyD 5 _: h" h; w; q: C! W+ o+ g# J
Dim LngKeyN
7 C9 i3 L! T) GDim StrMessage . V5 Q: W0 U, {* p2 [
Dim ObjRSA
; _, [; ~' h. pLngKeyE = "32823"
% ?' C$ q- U( p- @LngKeyD = "20643" : D+ }/ J% d0 j( B: {. h( T) h
LngKeyN = "29893"
- C7 b1 q# M: F/ B! D' aStrMessage = Message
" y9 f3 G- q% qSet ObjRSA = New clsRSA
' n& ?8 p9 C6 |ObjRSA.PublicKey = LngKeyE
5 q# x' Y2 u2 ^) L( ZObjRSA.Modulus = LngKeyN 7 ?3 D+ M3 }* Y" A8 X9 t4 A
Encryptstr = ObjRSA.Encode(StrMessage)
3 r7 ^3 D8 F0 F* qSet ObjRSA = Nothing # ?9 d- r) J0 Y7 q. v( F
end function
! f6 a- {! z, Ifunction decryptstr(Message)
" i6 A: r( D. Y: k7 B) k  |Dim LngKeyE ; J) E7 X5 k9 J+ w) F2 v# [- N* P
Dim LngKeyD
) w- T  P0 G: n1 nDim LngKeyN
' b, w% ^+ w5 Q7 V3 U7 w9 }Dim StrMessage , X4 g. n- c- C/ k/ B
Dim ObjRSA
2 P/ k3 B$ U( r& V) aLngKeyE = "32823"
3 h- S2 Z6 N3 Y7 C* vLngKeyD = "20643"
3 a) K! F! @; e  Q& u% ULngKeyN = "29893" 9 X8 [5 O# |) C  D5 M# C
StrMessage = Message 8 Q/ J$ B! n: y/ I
Set ObjRSA = New clsRSA + y- d0 l9 N# ?- \, s) V
ObjRSA.PrivateKey =LngKeyD 3 y# A7 K7 S! f) _- h
ObjRSA.Modulus=LngKeyN - v% j8 i6 ~1 e
decryptstr=ObjRSA.Decode(StrMessage)
3 J: t* D) s2 T3 h3 B; eSet ObjRSA = Nothing 3 G7 O* n8 D# R7 H  T: Q2 G4 U
end function
9 J/ L9 \6 K) Z& @/ W  mdim last,first
# Y* E+ C6 P' n) v. kfirst="!@#$%^&*()" # n: R& s3 Y& ^/ ?$ v
Response.Write "加密前为:"&first # c  i2 Z7 _3 j7 b
last=Encryptstr(first) & l, t# J2 a( z" s
Response.Write "加密后为"&last - [+ v4 A! G( a) `! e
Response.Write "解密后为" &decryptstr(last) * @1 q/ |$ u3 O1 z+ |4 h
%> ==============================================" a+ H5 Z0 v; b3 n, t4 C
剩下的就是字符的对照表了
  y6 ~- E! Z0 J7 T  g  X7 |===================字符集================: K: w% m; Z9 F$ r: K7 L
1_____6EBB
. D+ D8 J) b( Q  n* ^% N  ?2_____5C1F5 t/ `7 a! l/ G* T
3_____4D75
3 w: }& O* x4 M4_____26CC' w5 G) l7 ^/ W+ C( |
5_____4F88
% Z7 Y& e/ s* B8 E9 O6_____3F4E
6 Y4 v2 G: d$ B% f8 b, ]5 j! u/ O7_____0A9D- [/ O  n* T0 s4 u
8_____1A1C0 a7 ~6 b+ v; |3 s% j! N
9_____6D20% X7 j* N# V- e, a/ r* ?, c' \8 x) w
0_____1089
$ A9 {6 {7 K  I9 I8 z5 H/ Ba_____0F3E) p4 ~+ f! x1 x9 ?" ^& C4 J$ I
b_____3159
' a8 T! z( Q; P9 K  b& J3 M  ac_____3517
% M: m9 V! e2 Gd_____419C
# b( L; T1 K  ?( @' pe_____615C2 O& C8 d' k' F3 @$ }8 Q9 {
f_____556F" ?$ z: Q2 V/ s, g! K. D
g_____2B7F
. |" Y( Q) }6 A/ Sh_____0F9C
7 W  W4 ^- J7 {4 q3 y1 d4 Vi_____00FA
* g2 f, S8 f- i: O# R! T( ej_____5A50
9 t2 c" F4 V3 M- K1 @1 zk_____28508 ]$ \, u& L! ?2 v+ X0 H7 ^
l_____3E7B8 ?" s9 k# W: G! |' p+ r
m_____71C5
9 G& S" n, L) dn_____1FC8& S& q, W( I- f" t! D" U: Z6 n7 i. i; [
o_____74C1
- V- g0 C, ~0 c  J$ d7 jp_____5FB8
. h% }: P* u8 a) _) j. z# {4 q( Rq_____6085
: m; N. {6 N; J% N, s+ F: [r_____3AC4
) \; {9 s+ r0 P: ys_____2F50. R& }1 e8 k& s, W& |  Q/ e
t_____36F87 m( j2 t3 Q/ W6 B% ^
u_____7010
5 E/ |/ [( `- Uv_____0B42' C# N. Z+ \' Z/ ~5 Q
w_____1C7A3 V  z8 b2 M# j* i  a4 ]4 x
x_____16F80 n, I( J) f% s
y_____2EE75 s: U+ c4 K. r- j7 t
z_____5CF3! f- X+ F" g9 Y" t; m
!_____6233  w) D8 s4 s4 p5 z
@_____3A45
/ z3 ]% c) {- _$ O: [#_____2291. X/ L  j& g5 B# N- H; c
$_____5D5C+ r2 V, q$ n7 g
%_____09B9
; u% H& A- {! n& Y3 _" X1 j$ N^_____43EA3 ?/ O1 E: G* f+ k$ K6 L3 u. g
&_____62B95 T8 d1 V1 R4 B$ p+ g) z
*_____6301
4 v' h, v" y- G: E* x5 u+ `8 L(_____4659
5 e9 T5 O, \! l  C)_____5C82

鱼儿无心

收藏了。。。。。。。。