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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm% y8 B7 X8 e- a' ~
原始出处：http://www.3ast.com.cm
: G5 z, H) h! ^! V9 b9 _
' i. B: r8 M% }$ _8 t. g看不懂的直接绕过
4 h1 F7 g1 _6 U$ U. l2 ~加密前为:hwy123456
- u+ g9 ]3 K" B5 g4 }' \7 h加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
! j' Q7 r/ ]$ t: t% z1 B$ K% m
! B# O# @- n2 `! I& c============================================
3 ]* b, o. q. c2 E5 U上面是当时自己校内的心情。现在已经解破出来了，分享给大家
& a" j8 D: N' b. _( d$ ^9 |也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法) o! d9 U3 i: b$ H8 V" l7 |
以下是RSA算法文件
/ U5 ]( ~* C, o7 B. [, O( p! j5 @! k" X( D/ q
文件名RSA.ASP1 e/ [- Q, ^4 U$ \" Q( g
===============================================2 h  Z2 O/ g" l4 F
<%
7 U( Q/ s8 d! i: M) j. o: B( tClass clsRSA , _0 k( q3 {+ v
Public PrivateKey * a6 S1 Z4 n8 b% H, i: o" v
Public PublicKey . P1 v+ e# V# y' N
Public Modulus + s2 L8 g* c+ s6 m/ Z* d, B
Public Function Crypt(pLngMessage, pLngKey)
5 ]% e8 Y3 I: v6 J4 }: dOn Error Resume Next 2 M* a; a" y7 r4 V. V0 d# h
Dim lLngMod
1 s- k/ A0 w( J8 \+ IDim lLngResult - D. }& ^+ ?$ ?- D* s6 s
Dim lLngIndex
7 V8 k9 R1 b2 \) ]" R1 F+ CIf pLngKey Mod 2 = 0 Then
3 W, j( ]" o! \. }$ S( AlLngResult = 1
! X7 H5 |4 g' O- f9 `For lLngIndex = 1 To pLngKey / 2
) y' `2 q) z# i3 D* n% U1 b. clLngMod = (pLngMessage ^ 2) Mod Modulus . F' A, {4 v- b, u
' Mod may error on key generation
% Q3 o/ ~" e5 IlLngResult = (lLngMod * lLngResult) Mod Modulus 5 h. j4 d  {8 ~6 K! f/ p
If Err Then Exit Function 9 J3 K- |1 K, D0 q
Next
( ?  y1 Y& A( _& L6 z  u. {Else 0 `, J1 c: `7 f* b, J# {% W5 ^
lLngResult = pLngMessage ( j, v; Y8 J& R. i, L( T& O. l
For lLngIndex = 1 To pLngKey / 2 7 r% H) i1 n5 }9 W
lLngMod = (pLngMessage ^ 2) Mod Modulus
. [* D4 L$ }6 w' Q) z) ~5 n3 dOn Error Resume Next 4 S0 E9 B2 u1 e* |3 r8 o) _
' Mod may error on key generation
8 g/ x6 d; X9 W1 ElLngResult = (lLngMod * lLngResult) Mod Modulus
( z0 ^! V1 U5 E! u3 dIf Err Then Exit Function
$ t  K0 x# Y8 a( u# Q6 QNext
$ R0 u- U) D% V) REnd If
) O5 U0 v+ X3 ~! d  X) z" S+ C+ ^Crypt = lLngResult : A# B" }" w; C" e) N7 s+ E3 a
End Function
% n' j5 C  J% j, h' ^: X" i( ?+ C2 Z! _
Public Function Encode(ByVal pStrMessage)
. e# k2 F& P) ]/ b/ mDim lLngIndex * s9 q2 q; s) d; h. H  m6 M' p
Dim lLngMaxIndex
3 W8 J( R1 \4 x# o% RDim lBytAscii
. B+ G: a# F- D6 T' VDim lLngEncrypted 8 v8 e7 p  D* [  d+ b+ V
lLngMaxIndex = Len(pStrMessage)   B+ M. }4 H* _2 r. f5 z
If lLngMaxIndex = 0 Then Exit Function
$ K, |0 V! v& a3 x* ^For lLngIndex = 1 To lLngMaxIndex
8 v* m' x2 i" D% ~5 ^lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) $ Z8 m' {* q2 F) `1 B  d  t7 x
lLngEncrypted = Crypt(lBytAscii, PublicKey)
, p6 ~% _; ?* R* iEncode = Encode & NumberToHex(lLngEncrypted, 4)
4 d4 u9 {2 ]4 {9 y/ M2 cNext
5 C  s- z, z) o( v+ iEnd Function
2 T; u+ R* s6 F/ P/ V, _Public Function Decode(ByVal pStrMessage) : {6 ]: H! |# c4 Q1 H
Dim lBytAscii / ?& d. S2 y  W+ O
Dim lLngIndex
. K/ i8 n% T/ D8 D2 y7 rDim lLngMaxIndex - j# O4 V" A+ c, F7 w, p1 I4 v
Dim lLngEncryptedData
0 w+ \' r; A0 e5 Q  LDecode = ""
3 ^4 s% W, _7 l* ]  m/ klLngMaxIndex = Len(pStrMessage)
! v6 X/ A1 P- @3 G5 C) }* ^( \For lLngIndex = 1 To lLngMaxIndex Step 4 + z* o& v( O; U( n
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 2 f3 l0 m9 ^: w7 _( \2 k8 Q
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
1 @  x+ C) E: \) r* |7 tDecode = Decode & Chr(lBytAscii) ( d8 L6 J  b' v/ e5 @9 O( Y  h" l
Next
! J- |7 L$ G  H" f6 P1 ^End Function % X, H7 C) b3 g5 c6 o
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
6 ~) j6 C  }) I# ~NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) $ g5 g2 ?% q+ h0 b0 [- J; M" d
End Function 9 U! f; h5 [2 s; |* S: ~$ ]
Private Function HexToNumber(ByRef pStrHex) 0 U( l' F! x2 t+ C! l4 [" I
HexToNumber = CLng("&h" & pStrHex) 3 N4 T. I; i5 N' H# Z- w9 D$ }3 z
End Function - Y$ |! o- N& c
End Class
8 J" H! W$ S* Ifunction Encryptstr(Message)
, {( i4 y6 U& K* n9 nDim LngKeyE
% i, {- {& \4 V9 ^- b5 |3 mDim LngKeyD 4 R0 a# q# z: y# t: R
Dim LngKeyN
& L, V" W9 H7 ?$ RDim StrMessage
' G6 T8 D* n2 k$ mDim ObjRSA
4 a% {; B% {! _LngKeyE = "32823"
) v6 |9 f0 x+ P; Z" ]LngKeyD = "20643"
. n4 I7 O4 ~4 o* L- V; \  cLngKeyN = "29893"
) V- T! D/ N; \StrMessage = Message
+ K1 D- C( [1 ?! n& cSet ObjRSA = New clsRSA 3 p. z4 y( d6 i1 C! z1 [4 `1 e% u
ObjRSA.PublicKey = LngKeyE
4 i' T, N7 B9 |, }ObjRSA.Modulus = LngKeyN
. r" ]8 k5 E  aEncryptstr = ObjRSA.Encode(StrMessage)
* I% n: N/ h( Q2 @6 \4 i1 j2 sSet ObjRSA = Nothing , @- R& K8 l5 Y1 \! |
end function- ]- ~' ^: b# }9 g4 d  E
Function Decryptstr(Message) % q3 E; ]; U5 Q$ H' R! y
Dim LngKeyE
& M: }  M" o9 q% f  j! V8 SDim LngKeyD
9 k- L. `$ e3 ]( J/ CDim LngKeyN : Y( v  C1 F' x9 @+ Q2 X4 E: u- b
Dim StrMessage 1 n) |7 C. I; _) t% N' W0 T; P
Dim ObjRSA ; |! T" q0 O$ _$ v% g$ W: q5 x
LngKeyE = "32823" # g. b* R5 T& Q' z
LngKeyD = "20643" # i4 r4 U- Y% V
LngKeyN = "29893"
8 e/ c3 H( k; y# C' `  [StrMessage = Message 6 H5 b# A, p, U  q4 E% u; B
Set ObjRSA = New clsRSA 3 z/ J& B6 q3 L+ C
ObjRSA.PrivateKey =LngKeyD 3 M- q/ D5 U7 K/ E: Y) y8 b) Z
ObjRSA.Modulus=LngKeyN
( u: f8 Z: v2 U+ ]  [; G, S6 Ndecryptstr=ObjRSA.Decode(StrMessage) # @! m% k- h$ N. P/ o4 F1 p
Set ObjRSA = Nothing . ?$ h3 y3 U( B! w+ R. g9 Z% \
end function
5 V. [. P3 G6 j( z%>
5 E( \: s! ~" {7 g. A) s5 ?3 r===============================================- {' k' T; N+ [& F5 R# k$ }
: M: c/ g+ d/ t3 y, X) |
还有一个用于测试这段代码的test.asp
, @& D9 P0 _6 k  z$ d* L# O  T有兴趣的自己搭建个IIS测试下3 V2 _' i) o, t8 e, U
<!--#INCLUDE FILE="RSA.asp"-->
  T3 g6 N% A, u( F! {9 J: q# `' h% C<%
& q$ [" b/ P4 I2 Y6 c3 @5 efunction Encryptstr(Message)
* L/ ~6 w4 M( V/ r/ t* h$ EDim LngKeyE ( X. M3 w  E$ g  M0 x; Y+ h, E6 o8 H
Dim LngKeyD 3 h. ]7 s1 B5 A+ L+ b8 v2 H
Dim LngKeyN + Y' o! C0 W" r: {4 _
Dim StrMessage
0 h/ c& @  T1 [8 w. \' ?( ?Dim ObjRSA 8 ]! y, o( h9 w% W  z7 P6 k, a
LngKeyE = "32823" 6 V! Q5 ~# f3 c  g0 e/ J) X
LngKeyD = "20643" 3 q+ }0 K+ R% E* m) a# i
LngKeyN = "29893"
8 T: z/ k5 y: e( [StrMessage = Message
3 L+ Q" ^7 H0 G; X% d5 O: nSet ObjRSA = New clsRSA 1 l  J, T3 f! I' D* J
ObjRSA.PublicKey = LngKeyE 9 G# v9 U9 [* D
ObjRSA.Modulus = LngKeyN
+ `7 c9 }  e  J% J" Z# a- ]8 R# V( ~Encryptstr = ObjRSA.Encode(StrMessage) 5 o5 a) X5 Q4 v0 i# O) D
Set ObjRSA = Nothing % G  o$ F6 K4 ~: u0 y
end function
7 [, L# {9 `- C8 r5 T9 g5 X9 ^' sfunction decryptstr(Message) . w% c4 x! O* H8 z# b# {, i; s
Dim LngKeyE * v2 b3 z5 w0 V, z7 `
Dim LngKeyD
3 j' R" Q8 b5 z% CDim LngKeyN
  z, ~* b/ b& K# H) m& {; i/ N. qDim StrMessage
6 L0 X5 F5 Y- p, o* YDim ObjRSA
! k  b, d) Z/ d. ULngKeyE = "32823" & o4 ~- t, [) F) k& S# A8 c
LngKeyD = "20643"
$ p2 H) [3 T3 T: m  |: MLngKeyN = "29893" 3 y2 V: }6 j+ r
StrMessage = Message
& A7 X6 O  b# `! L2 t0 B$ o) RSet ObjRSA = New clsRSA * l4 t$ B6 g% ^- M
ObjRSA.PrivateKey =LngKeyD - n) Q% O$ f3 V# o# p2 w
ObjRSA.Modulus=LngKeyN 6 g) ]; R% G& N9 o- }/ f5 b& w
decryptstr=ObjRSA.Decode(StrMessage)
5 ]. ?! R1 k& ^. y" U9 {Set ObjRSA = Nothing
3 O- ]% K# F' }; j" iend function
7 E* X& W# x+ C( X. e* @dim last,first 7 N) G6 q! _" n4 o
first="!@#$%^&*()" 5 L% J6 s! K' e% ~
Response.Write "加密前为:"&first . E- Y6 J* L8 |/ Q
last=Encryptstr(first) 4 T& o1 D  f6 V- w( c7 R
Response.Write "加密后为"&last 2 T8 J& J* u5 \. c/ N
Response.Write "解密后为" &decryptstr(last) * i4 S) p2 N6 V+ ?7 u9 Z: \$ e
%> ==============================================
- c: y5 ]; E# V; [2 \0 P+ S剩下的就是字符的对照表了
1 e. N& t8 ^2 a2 N8 {2 J! v===================字符集================0 S3 X( l- W; D7 P; i: `
1_____6EBB3 o' f2 u4 \! o. T# W
2_____5C1F* c( L% S6 K9 U& I# U% p
3_____4D75* F- F& H' {2 R
4_____26CC
* w3 K+ y/ |' V5_____4F88
) o! {4 O! z$ L/ G6_____3F4E) w. z: t$ u8 r. d6 U9 Z# O3 C
7_____0A9D/ l' _% _- I  ?$ x2 e4 |
8_____1A1C
8 E/ I) G, J: K2 @9_____6D20  f* Q5 r2 j( [) a+ k5 v$ C
0_____1089
4 v2 n1 p/ }% d- F. a5 U+ }a_____0F3E4 x6 c- H4 D2 U# ^, ?* i( t
b_____31596 t. B% c" ~5 P! _; @* q
c_____3517
' n2 q- H7 O9 j: ^7 y6 Xd_____419C& Z. s' n; [$ w8 B& X  h
e_____615C" g. B/ C; r& o
f_____556F* s# u6 k4 |2 i1 }' z
g_____2B7F
! i! z( E  r" i1 r/ [3 p* Dh_____0F9C" ~9 h, X- u( k* d
i_____00FA  q( b/ x% b3 z5 g
j_____5A50
' i" e/ Q! J* t% K0 [, jk_____28502 B; w4 \2 k! I3 I
l_____3E7B
( U- ^7 D4 r' S0 I3 v* T3 Tm_____71C5& M8 m! Q8 d# C" ?, m3 b
n_____1FC8
# u+ N+ M: |! vo_____74C1
+ n2 B; t) [* K" s! f) vp_____5FB80 C6 _( p& z. X1 w8 s  U/ l* @" b: N
q_____60851 M1 m& d; D1 V% M( l' v$ L2 `
r_____3AC42 P& b1 i# [. X9 L$ I+ Z6 ]4 d# j
s_____2F503 Y$ ^+ @7 K6 K6 A/ h
t_____36F8
; ^' B1 E2 D* X- P+ q+ s* Pu_____7010
% [  `" N* d- v. e& j+ D+ S4 }v_____0B423 p! ~% r9 m9 Q2 r; `
w_____1C7A
9 T/ P6 e$ D- b  Lx_____16F8. b4 P+ [; m) N$ t9 l3 {( z
y_____2EE7
- N7 }% }* ]: k5 R, Oz_____5CF3& n7 _# ^9 w6 R5 N
!_____6233
$ K# m: a3 I3 [- e, u@_____3A45; {6 D9 G; {: W
#_____2291
3 |4 j; Z9 m% B& X9 j1 {% n$_____5D5C: l' \" V2 f  N2 k
%_____09B9
5 x6 Y; o* n+ m; {^_____43EA
( F5 `) _% S  Y&_____62B9" c/ z. ]- U& J1 L: [7 ?0 {  g! s
*_____6301% L' n& H3 f+ U4 A6 B- Q& @( k
(_____4659
, ?) }! B5 x; c3 u; C  V)_____5C82

鱼儿无心

收藏了。。。。。。。。