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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
( p8 Y8 X- S) s- s5 |* I原始出处：http://www.3ast.com.cm
$ a) B1 |( A" [' X1 u/ Y7 Q, v1 I8 s1 i: x
看不懂的直接绕过
1 N& Y+ g% z! `. T加密前为:hwy123456
! y- N" j1 }8 g4 u$ H加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E& g: x& f& L8 m3 }! ^5 G8 Y

, L7 Z: F1 v. i) t============================================0 X% B1 \1 |# Z" l
上面是当时自己校内的心情。现在已经解破出来了，分享给大家% _5 K$ J" u$ E- _8 `
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
- o  {7 c, C6 i以下是RSA算法文件) t2 S+ ?  |" r. V0 E' p
/ j; [% V' l: s3 @2 T
文件名RSA.ASP4 L# Z2 e7 v6 ~
===============================================
, z1 Y6 p2 K; h) n<%
' B  y8 g' l9 A1 P/ ~# ~3 s" xClass clsRSA ) ]1 i  f5 _, _9 x  A
Public PrivateKey 1 d. L$ d/ b: H' i) P- v3 C
Public PublicKey - ?' i1 @6 z- X6 J- _
Public Modulus : E# L; X, o& n# r6 x2 ]
Public Function Crypt(pLngMessage, pLngKey)
. J% Y* b6 k3 W+ COn Error Resume Next
) u, g: |% }$ `Dim lLngMod / T6 V" b! y6 E& S4 _& }3 @
Dim lLngResult 1 c! o; w2 H4 `" I3 X* Q: A
Dim lLngIndex 6 F5 Y+ ?6 W) G& g; J4 i
If pLngKey Mod 2 = 0 Then + r- z. ~, N; Q& ?) c) K
lLngResult = 1
2 Q% _3 X% F) N+ eFor lLngIndex = 1 To pLngKey / 2
: }6 v2 F' J8 ]( v; olLngMod = (pLngMessage ^ 2) Mod Modulus ! A, {, c  r' b6 j
' Mod may error on key generation 7 M, e. ?! }  t% L  c" ?$ h) a
lLngResult = (lLngMod * lLngResult) Mod Modulus ' T4 o, a# D2 j* S
If Err Then Exit Function
3 r; t$ K- P# v9 nNext $ E' D& w. g: ]* x
Else 1 ~' q# J1 {- s5 z4 v- C1 v1 j- y
lLngResult = pLngMessage 6 I- q: t7 e* j$ V3 ?
For lLngIndex = 1 To pLngKey / 2
+ n# q/ h5 C: d; ~  clLngMod = (pLngMessage ^ 2) Mod Modulus
0 |$ ~# |5 k! |, z# POn Error Resume Next
: q! \" n9 g0 z+ Q% [8 Q( E5 g/ F' Mod may error on key generation + H: E/ T/ k; }0 A4 ]5 \/ x$ ~1 j
lLngResult = (lLngMod * lLngResult) Mod Modulus
4 ~$ g( s9 ?; t# z" \( `If Err Then Exit Function
; x$ C  n! t4 P7 j" h+ qNext 3 u! r( J; Y8 ^
End If
3 }7 w: p- E5 b+ \! {* _( ^Crypt = lLngResult / Q4 L+ ?3 d, w# G8 Y' p; {0 c
End Function$ S& Z! R/ ?" V) l# W' A' k$ L

0 K& T8 W, A3 p6 b& z- p, a7 uPublic Function Encode(ByVal pStrMessage)
7 C; s6 `, E/ m+ Q7 w* [Dim lLngIndex : f( I* k0 J: K8 O$ e
Dim lLngMaxIndex
8 m8 j& b4 o4 c+ ~& P; N2 }Dim lBytAscii # k$ x# g! I- l4 I) l( Q
Dim lLngEncrypted % k  I+ b# u6 E7 w. e
lLngMaxIndex = Len(pStrMessage) 6 d3 B6 F& v) u8 Y/ \7 z
If lLngMaxIndex = 0 Then Exit Function
. O3 D$ Z$ c- P! |For lLngIndex = 1 To lLngMaxIndex - l  Y1 p6 T. m& T* }* I
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
: h2 }0 u) K( i3 S: {0 {9 n6 g4 rlLngEncrypted = Crypt(lBytAscii, PublicKey)
9 w& a( N2 V( b: n5 X  ?8 h+ v7 ^Encode = Encode & NumberToHex(lLngEncrypted, 4) " X. H2 x/ Y6 y
Next
4 Q9 {" S5 l, H( I5 z* z, z: GEnd Function
4 m1 b3 ]# E8 l$ v! r8 VPublic Function Decode(ByVal pStrMessage) * E& W% ^# ]8 N$ f: z; o" ~2 H& J
Dim lBytAscii , L2 s' r: v4 [/ P' t- B
Dim lLngIndex 7 B: C! N$ o0 T& I
Dim lLngMaxIndex
& [3 C" t: o# U5 e1 U+ h- CDim lLngEncryptedData
) u6 |$ ^* W% |( mDecode = ""
1 d4 I0 E" n, C! p3 ]. q8 ^$ ?lLngMaxIndex = Len(pStrMessage)
  H; d9 C: s, V* y- a4 b8 aFor lLngIndex = 1 To lLngMaxIndex Step 4
' y. e; H" A" d8 r/ tlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
4 o" B' i+ G+ R) L2 a, Y4 T9 P+ j! HlBytAscii = Crypt(lLngEncryptedData, PrivateKey)
, N7 L" Y* o. ~Decode = Decode & Chr(lBytAscii)
7 N6 Q! g. {( e+ p' D. D, r# _Next $ S& D1 s% u9 @1 K0 X2 \3 W
End Function / i" h1 F0 b" r
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 5 M+ X0 q! i+ }7 U8 J
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) / H1 p3 a# ^  T0 x. T4 M! _6 T2 O
End Function
5 z1 y/ U. Y( Q* sPrivate Function HexToNumber(ByRef pStrHex)
: }% p) [9 H1 P" n/ Y, tHexToNumber = CLng("&h" & pStrHex) ) g* n6 e) Y% L
End Function 1 t+ d' b$ Q- u0 |8 _. Y5 M/ b
End Class
# R# n0 A" b/ E% h7 Zfunction Encryptstr(Message) 4 v  R0 v3 t: N, q6 x0 m& o
Dim LngKeyE 9 H* s3 N  P% f' v5 ]% i/ o' w
Dim LngKeyD 4 ^7 `( C  M5 r. ]7 `5 E8 m' D
Dim LngKeyN
2 n- M6 _1 O6 \* r; u* q! U5 rDim StrMessage : n- j) {( u3 {  E
Dim ObjRSA 5 v9 S6 _" l7 X. F
LngKeyE = "32823" ! {2 _* F* B3 O- Z4 h" ~
LngKeyD = "20643"
3 Q1 Y  T1 B5 |, |LngKeyN = "29893"
9 @. n# C: \. s1 LStrMessage = Message 5 O7 \8 A- _' U( v3 t
Set ObjRSA = New clsRSA ( k8 D, i, a" ~+ N
ObjRSA.PublicKey = LngKeyE 8 _- f5 ~3 I$ K
ObjRSA.Modulus = LngKeyN 9 N, c- Y8 ?0 ~4 H. n
Encryptstr = ObjRSA.Encode(StrMessage) 4 Z$ ?% ]& Q0 `6 {" Z- [( F! E: C
Set ObjRSA = Nothing
0 h" P6 f0 I& ~/ Q! z: S' X' Yend function
+ U1 ~+ G" R; v5 q1 UFunction Decryptstr(Message)
; v4 O4 z5 V2 O( [3 K4 ]" o8 lDim LngKeyE 4 |4 w; W. r4 y
Dim LngKeyD 9 v0 Y* |% s+ V! g" p( _8 D
Dim LngKeyN
) t  f* s7 l2 nDim StrMessage
" a8 ?) L  a9 F9 l& QDim ObjRSA 7 V. D/ W3 n0 `: \0 p) V
LngKeyE = "32823" 9 b: Z& w6 H4 b! K8 y  W
LngKeyD = "20643" ) J, S4 @4 E5 A0 h4 J
LngKeyN = "29893" + W0 y; p5 e, s  Q) B: B  K
StrMessage = Message
- v, O) O4 {0 E  z! pSet ObjRSA = New clsRSA # n! S* ]  `" ]& u- u
ObjRSA.PrivateKey =LngKeyD
7 X' R4 O3 H; ^. Y8 DObjRSA.Modulus=LngKeyN
3 S3 F4 ~, p% k9 ndecryptstr=ObjRSA.Decode(StrMessage)
9 Y9 d2 i5 }$ NSet ObjRSA = Nothing - V8 ^3 J) h$ n2 e
end function
# |* `. p* f: e9 U! t$ q( \* |5 D7 l%>1 M1 Q, w/ }  Y; V+ v) B& n
===============================================
- i6 ]8 s" o% z
' T3 k2 m  R' p$ I" `7 _0 L' Z1 F还有一个用于测试这段代码的test.asp; K7 B3 M% m8 r5 `5 L
有兴趣的自己搭建个IIS测试下
6 P, i0 Q# w& I. i7 S<!--#INCLUDE FILE="RSA.asp"-->
3 S8 b9 O8 L, D& j8 j* b" C<%/ C- \9 j& s8 E3 q0 i  t/ B* r0 d
function Encryptstr(Message) ( V9 g2 T/ [! x5 _
Dim LngKeyE 2 z: M  G8 W) G/ C5 G: }
Dim LngKeyD ' T' o" p! M4 `) H8 e  L) E3 h
Dim LngKeyN
' ~9 [& N. d+ S# ZDim StrMessage 6 t" f, v$ C8 k
Dim ObjRSA
) [/ X# J$ i# |LngKeyE = "32823"
7 |6 i9 o# @( v1 hLngKeyD = "20643" 5 b. ^( u( @  @8 t3 |7 W1 f$ t
LngKeyN = "29893" 5 V' I- u6 g- j
StrMessage = Message
* _- o1 X+ D+ y& c5 fSet ObjRSA = New clsRSA % A& y8 k, t" n1 |9 z0 M7 P
ObjRSA.PublicKey = LngKeyE   B0 J: l/ q; u9 ~0 V+ _* R
ObjRSA.Modulus = LngKeyN
3 ]1 _3 `1 |- n- N; `% C+ I5 `Encryptstr = ObjRSA.Encode(StrMessage)
$ t. @+ \( U' ~/ H) cSet ObjRSA = Nothing
+ A9 z8 ]% }+ _9 ]2 Cend function
! G/ P0 |) _3 D; Gfunction decryptstr(Message) ) s0 D  W* \' e
Dim LngKeyE
' L+ T2 ]5 R  j6 b; SDim LngKeyD % q2 M7 |* ?& v+ s3 j6 ?
Dim LngKeyN
) e- c9 [9 N: b! L" I- s9 dDim StrMessage " q3 b5 b, D  D, J, x& G
Dim ObjRSA : @* H4 U; L9 I; k/ c/ x" R
LngKeyE = "32823" ) X9 C4 k$ N2 d& f
LngKeyD = "20643"
8 u' I% S6 D! `6 x- m' U4 {LngKeyN = "29893" , B* L' ]) }0 W) k6 f2 t
StrMessage = Message
/ i  j7 L# f4 w  {; SSet ObjRSA = New clsRSA : W5 {) Z# e$ l! _: `
ObjRSA.PrivateKey =LngKeyD ; T/ V* k1 Q9 U) S/ A2 S. k
ObjRSA.Modulus=LngKeyN
2 k$ z0 S+ M! j7 c4 j5 e8 {' ?decryptstr=ObjRSA.Decode(StrMessage)
( S$ C6 H( o- ]6 }$ ?4 MSet ObjRSA = Nothing 6 c" @8 Q! F8 }- g% G; V- n
end function 6 g8 g/ t2 y  c) w! T. S
dim last,first
- Q7 M- R; |: ^: U* H# qfirst="!@#$%^&*()"
5 ~$ p! |) ]0 C. GResponse.Write "加密前为:"&first
- L4 J- g' r- M* \* flast=Encryptstr(first) 7 k" u8 P2 N5 g6 ], C2 ]0 S0 @" ~
Response.Write "加密后为"&last : f% B5 `7 F! f, t3 _
Response.Write "解密后为" &decryptstr(last)
# a2 v# V: E# R" i/ }8 M%> ==============================================! m# i" \' ~3 J- b8 C% l
剩下的就是字符的对照表了# e3 P+ ]' i! S/ F$ z0 a% B
===================字符集================/ m  ]8 V/ E6 o
1_____6EBB$ P, s/ J7 m; x: p( s& a/ U
2_____5C1F9 U  Y  \. i- ^4 h! ?% n* q
3_____4D75
4 a' F* z1 ]% b& C4_____26CC% f" r0 k7 Q" ~9 D% q
5_____4F88
" \  a$ O- Y/ ]6 O7 k  g6_____3F4E
9 {, w/ n! S$ A7_____0A9D5 u' A& L0 Q+ W5 G
8_____1A1C
) }# C; K, J1 }( a/ [: A6 l9_____6D20
% r( J. I3 K( Y' k  E0_____1089
8 `5 t2 k: C1 N9 p8 j% z/ Sa_____0F3E! m* d* Z1 v( s5 n8 o
b_____3159, k  d/ h7 g) X4 Z# v9 A  Y
c_____3517
: n' N1 m' ?) v/ {d_____419C6 I; T( X2 b0 W  [" N' \+ y/ t
e_____615C) T7 I  {) ?6 }- T' d% P- m
f_____556F1 {2 _1 N! n! i& l8 J. m
g_____2B7F
1 [( Q" ?& g& [1 _h_____0F9C+ s* q: A% {9 Y$ s
i_____00FA
! B9 |* H" w& b7 a  v, ~j_____5A503 z( b$ I6 m, v
k_____2850
# p& ~) v: l" E$ v/ Vl_____3E7B
- c; V0 O+ e* `4 O9 p' k, h( {m_____71C50 P1 J" |- i1 \$ q8 n! i: O# b
n_____1FC8$ [% s. l2 q- B; Q5 v
o_____74C1
3 W' `4 l. c, Pp_____5FB8
* J2 F* i5 g# y' |% b1 {q_____6085& ^  f; M* e3 P) g: r
r_____3AC4
. P& F& o( C; O) j7 W( {- ^" Ts_____2F50
/ T, [. |) ]" b( q& Dt_____36F8
) ]1 H, B- m& {; b5 s9 Wu_____7010
. Z/ V% A, R" yv_____0B42
2 p8 r3 q) l) U. ]- t! H* Gw_____1C7A
1 N# ?- }' j6 d. w0 D) z: Qx_____16F8
0 I4 j1 |' H! vy_____2EE7
- z; e& r: p# A7 A- P6 j6 {; Cz_____5CF3- B  J8 L1 Z8 x2 @
!_____6233
4 K2 g/ Z: a& f, V3 i@_____3A45
2 O# C$ X5 @9 a4 K5 z' e& Y#_____22916 @; [/ \4 `/ E0 i, Z7 u- g! e
$_____5D5C
, _' s7 F7 r3 K%_____09B9) Z9 }, w/ ?% T$ ?* y- B: h7 g
^_____43EA
: A. R- [2 ^' x" e% T! n7 h&_____62B9; H* Y7 k, e% G2 V! O; a8 d
*_____63018 b5 z/ G3 A$ Z4 s$ S0 C2 J
(_____4659
8 a/ |. W1 `* N# T" O% A)_____5C82

鱼儿无心

收藏了。。。。。。。。