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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
3 b+ S' z( b8 @4 [% p原始出处：http://www.3ast.com.cm. o* R7 W: q( R& W
1 d4 w, u2 S: x# X% M* j2 B- \
看不懂的直接绕过8 H+ g! X+ c8 M" Z( G1 W2 ~- u
加密前为:hwy123456
) e/ v7 y, m6 E- w: u5 y加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
9 J0 v; g* X2 p) k  I3 m! j, D7 V
+ Z' b( F% A' _' q2 e3 G============================================) e# U# R3 s& ]/ E( q4 T2 n* `" c
上面是当时自己校内的心情。现在已经解破出来了，分享给大家6 g! J7 P( R5 u, R5 B3 N1 Q& N
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
0 E4 A( h5 L# c% Q以下是RSA算法文件
$ Q- ]" f8 l5 Y8 x# @9 K. |  P: i, [/ V* w4 W! ?- i
文件名RSA.ASP
! L9 C4 |' Z, G===============================================
% M% ]5 S0 |- }; T$ |<% & e. I+ n/ f9 L5 \$ `2 r% @
Class clsRSA
  ]# h9 r  H+ Z' p( \Public PrivateKey . }& t2 ]" o0 S- p* a: n0 j
Public PublicKey
/ @6 Y8 L! V0 }- vPublic Modulus
" F  w8 p* E( u% G" aPublic Function Crypt(pLngMessage, pLngKey) & r& f' N4 b) e* ~$ s
On Error Resume Next 9 x- L% M, f' Q. C6 _
Dim lLngMod + f# _  W1 U' \% l% j8 V
Dim lLngResult " L1 H1 t; P( @- F0 `9 ~( K9 d
Dim lLngIndex 9 J4 Z! o, }0 m/ ~
If pLngKey Mod 2 = 0 Then ' z- p/ q  n" [1 E" F
lLngResult = 1
* K6 `. ^) n6 A. iFor lLngIndex = 1 To pLngKey / 2 . U' h5 k, q. {3 X# W1 I
lLngMod = (pLngMessage ^ 2) Mod Modulus + p4 b. x- k/ z$ ?& q6 V$ e7 f- }
' Mod may error on key generation . D' D: t5 j  |" U: l
lLngResult = (lLngMod * lLngResult) Mod Modulus
- a- z% L( G2 M4 A0 D7 p' tIf Err Then Exit Function
7 B5 Q9 [: b; U+ M* {7 q$ r5 ONext : H5 Z' N& P# I: I2 r. f* ?
Else
# l/ M8 J2 w* i* X: B- MlLngResult = pLngMessage
2 D) c& v! Y) @4 O3 tFor lLngIndex = 1 To pLngKey / 2 / D$ w2 I, z; ~; ]- o( L
lLngMod = (pLngMessage ^ 2) Mod Modulus
( p; a1 H1 X7 S) P% fOn Error Resume Next
3 T5 S5 c; ~7 j/ l8 q5 e* X" H' Mod may error on key generation
! k3 B: ]  ~; z9 k; u+ s" BlLngResult = (lLngMod * lLngResult) Mod Modulus 1 s" t, m% e1 L" b
If Err Then Exit Function   U. s+ M9 ~9 e0 Z, s$ V, p
Next
" E/ b% n; F7 G9 _- K6 nEnd If   q# q3 S/ j3 P* t
Crypt = lLngResult
* T3 u1 \' o( ]- p, lEnd Function+ [8 N/ N1 E' U. h$ B/ e( G+ Z
0 p0 C9 Z  d& Q) u' K5 I
Public Function Encode(ByVal pStrMessage)
- u+ G( K% Q$ H8 mDim lLngIndex 5 w9 G0 ]: N; m" L  y
Dim lLngMaxIndex   y) B  v/ ]. g6 Y: P7 P# G" l
Dim lBytAscii 0 N! v! _( q. g5 F# @* T
Dim lLngEncrypted ( y# H# M! j2 \1 K  N0 D9 |; M% X
lLngMaxIndex = Len(pStrMessage) 9 S( M' Z$ A0 A$ a+ d
If lLngMaxIndex = 0 Then Exit Function 0 _  n+ P0 l0 d; H& b! d  H4 J
For lLngIndex = 1 To lLngMaxIndex . h* \! R" g0 i  |; l( \5 u) q
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
$ G* x( V- T8 k; v8 BlLngEncrypted = Crypt(lBytAscii, PublicKey)
3 u) P/ ~- @  F/ JEncode = Encode & NumberToHex(lLngEncrypted, 4)
) y/ R; ^8 u; e6 N" qNext . g0 f' l" U' @2 d
End Function , o1 n1 G* N) m' s( O8 |0 q0 I) g8 W
Public Function Decode(ByVal pStrMessage) $ C0 [9 w8 _% d
Dim lBytAscii % f7 h# b0 Q; U# u
Dim lLngIndex 0 ?6 Q6 H4 u; a7 p9 D& R5 P
Dim lLngMaxIndex " d* Q8 K2 a, k) x( h8 K! \
Dim lLngEncryptedData
5 v2 b/ Z, }9 u" n& k5 n9 _% Y) ~  }Decode = "" " h# ^4 S! O, W1 i( F( {6 E+ Q( L
lLngMaxIndex = Len(pStrMessage)
& E. `& R$ G+ l6 m" h/ R+ ZFor lLngIndex = 1 To lLngMaxIndex Step 4
- B9 ^1 j# G4 W0 b' G/ {) d) L6 BlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) + p+ }6 g9 p! n: M! N* b
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 4 H; \, r) |4 J! c; X9 V7 `4 E
Decode = Decode & Chr(lBytAscii) ( v. ~0 l3 t- H/ i" z
Next . `7 S8 w9 G5 `, S7 a
End Function , a/ g; q% K% o  H- K: d
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) $ {1 H+ b/ j. O/ N- d
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
' v9 u" w; }3 e1 L$ NEnd Function 1 D& ^# Y+ z, R; n8 _) T2 F
Private Function HexToNumber(ByRef pStrHex)
9 v2 I) l6 D" WHexToNumber = CLng("&h" & pStrHex) % v! `+ G$ L, U4 _* r0 e& |  f' y
End Function
+ f! F9 u5 ]/ P/ X, w* b- m8 E9 ]End Class
* j, E4 P9 R  M& {6 W8 k8 Dfunction Encryptstr(Message) 0 n* Z& m) m  a3 O( A: o, t  V7 R* z
Dim LngKeyE
! w$ d" x8 P; nDim LngKeyD . q1 }$ H  U0 U: X' m. j  g6 V
Dim LngKeyN
! |7 D1 r- O6 b. i- QDim StrMessage
- Q, V( k( P  ?$ Q) a9 G9 ]7 aDim ObjRSA
# l) h1 C7 ?& iLngKeyE = "32823"
/ G3 B( u( w% h$ o% T1 _8 U; |LngKeyD = "20643" ; I/ j5 K" C( J4 h$ p
LngKeyN = "29893" : j. f7 e. l0 u8 q  F
StrMessage = Message
" t' ?# N' q; s. xSet ObjRSA = New clsRSA
9 Q: y% j. I2 I" |# z7 VObjRSA.PublicKey = LngKeyE
; E% H5 L' P, E# [3 b6 Y$ e: `ObjRSA.Modulus = LngKeyN
; i3 A8 X  s, Y+ HEncryptstr = ObjRSA.Encode(StrMessage) $ s: r  d: _( S
Set ObjRSA = Nothing
! K+ F/ m# U5 I# t# @" j( ^end function+ }2 K- l6 T8 J
Function Decryptstr(Message)
% z) B7 [9 h' L( UDim LngKeyE
- Z1 |( b3 o8 `1 \7 a; WDim LngKeyD
% _" q% M, b+ `3 s5 e8 F0 ?Dim LngKeyN / s7 S' t5 g& G& p: q& u
Dim StrMessage / {- t  B' Q" p
Dim ObjRSA
% ]- B/ A3 ?4 h' \LngKeyE = "32823" 4 ?$ @+ F7 h. m! Y4 [
LngKeyD = "20643" & W6 B) B9 r, K* ?8 b$ A
LngKeyN = "29893"
1 x# Y  {9 Z& @# {9 C4 v3 }' ?StrMessage = Message ! p5 e0 T3 H& ?' \9 Y2 c
Set ObjRSA = New clsRSA
. g' v) q3 y& X* \ObjRSA.PrivateKey =LngKeyD / O6 I8 m2 F$ h5 E  a+ h5 r
ObjRSA.Modulus=LngKeyN
2 M0 J$ {( X8 e( l% |/ \" Ydecryptstr=ObjRSA.Decode(StrMessage) 8 q" q3 B" _5 _, x# h; `
Set ObjRSA = Nothing ( m$ T* h$ d' L' ~1 D
end function : q, M- L3 C. f, ^+ u
%>4 d  b  ]# g) f3 X: O( o' ~
===============================================0 z" a# M7 A# N6 i: N' p

$ U  A: P( A' O+ Z1 ]还有一个用于测试这段代码的test.asp7 @3 i$ o$ A7 F7 Z
有兴趣的自己搭建个IIS测试下
* E9 K7 Y! w0 `; g* m2 i<!--#INCLUDE FILE="RSA.asp"-->
, ~. O' M6 ?/ Y* Q<%
* b& I. ?$ W- d8 E' X9 z* i9 ?function Encryptstr(Message)
8 `$ X- r  H: U& t, s' J. B! CDim LngKeyE 1 F% [- T4 I1 G, P. N
Dim LngKeyD ' P" R: t* i/ E; Y8 K, U/ }
Dim LngKeyN ( G- A- P4 R! {  K1 A! O7 F2 y
Dim StrMessage
3 R( G. G$ a2 mDim ObjRSA ' r; N4 o8 i9 ?8 `
LngKeyE = "32823" ) g4 m1 N2 r8 b8 h0 u1 Y
LngKeyD = "20643"
7 U  b9 x# b: f. k: WLngKeyN = "29893" & m- h" m& B& O7 ^' J
StrMessage = Message 7 R  _& h( y& _" c/ R* E7 C& W5 [8 ]
Set ObjRSA = New clsRSA ' H7 h: U' A& b
ObjRSA.PublicKey = LngKeyE
- t6 _2 z) A9 _% CObjRSA.Modulus = LngKeyN / r# T. I; z. `- s. z5 t
Encryptstr = ObjRSA.Encode(StrMessage) 0 Z7 T! c9 ?( q2 Q0 B) `% S
Set ObjRSA = Nothing . M: J8 |- a5 C
end function 1 B" V+ y! M, i
function decryptstr(Message)
# j% {& Z, |$ |Dim LngKeyE
# C) R) u9 O" \% \5 cDim LngKeyD $ W; m$ U) W; `/ D$ J: z. b- q
Dim LngKeyN
% g6 t& V$ X, I/ ]; y$ XDim StrMessage 5 ^1 @$ f) Q$ v/ N
Dim ObjRSA * j( `3 i. I* J
LngKeyE = "32823"
" y- _8 H' y* oLngKeyD = "20643"
  y  d! u' Z- W% ]6 i) mLngKeyN = "29893" 1 a# e7 w' x7 K; O3 T  S
StrMessage = Message : O; G9 r2 x7 r5 t
Set ObjRSA = New clsRSA
& b! q- e, D  |" Z6 C7 ]$ `! vObjRSA.PrivateKey =LngKeyD
, L: I2 ?/ O' O" O1 d+ n5 IObjRSA.Modulus=LngKeyN 5 p; u5 @  K! w
decryptstr=ObjRSA.Decode(StrMessage)
) G; S/ ]' z0 D* m6 ~7 f& oSet ObjRSA = Nothing * e- L' [3 @9 R
end function . G) [9 [6 k0 X6 w2 X) v8 B' B
dim last,first
2 T' Z  i( m- N! |1 C' w) Ffirst="!@#$%^&*()"
# I& ~/ x( O: S" T" c* d7 N& \Response.Write "加密前为:"&first
2 U) c5 t7 y. olast=Encryptstr(first) 6 N; w6 ], _" w  p' M
Response.Write "加密后为"&last
, `2 d1 l  k6 m, R  ~Response.Write "解密后为" &decryptstr(last)
6 k3 L2 f) Z( l%> ==============================================. V0 y: x- h' M
剩下的就是字符的对照表了* c! Z! U& ]% W6 V/ k
===================字符集================) x- u5 X! p0 y  S! ^
1_____6EBB
: c9 a( X8 t  L/ Y9 u- S( P2_____5C1F# f! _/ u3 L+ Z- j  _/ k
3_____4D75
# U2 L9 `! l$ ~! V4_____26CC
5 Z; E7 |6 C# I5_____4F88
1 e" ]6 h3 d0 B9 v# W2 z6_____3F4E1 v5 s. o) I! h) v$ L$ ?4 p
7_____0A9D7 `' h, ^. A  l& q+ h! x* C& Y' H
8_____1A1C% P& C5 P  V2 C) K
9_____6D20
; ]) e+ j- E' q. Q/ [0_____1089+ o( E1 p: p' j- H8 \0 t7 j
a_____0F3E$ m  k' L4 A' e" |/ Q7 \- ~
b_____3159
4 p& {. a) j5 b$ I6 g6 L1 n8 Zc_____3517( {' q% b4 _# D8 Z3 _2 z
d_____419C
! b9 ~1 g& p2 P/ u6 Ke_____615C
( o# Z0 p- A/ ?/ H+ W9 ^) j5 cf_____556F  ], z8 i' m0 d3 j+ n' A, J$ `
g_____2B7F
" Z0 x  a8 E/ Jh_____0F9C
8 T( M# G2 K. _& ~) u' u: ~# Di_____00FA) u7 V, M; x! G$ {6 Y! Y! B
j_____5A50
1 a3 L: Q& [) N7 Ik_____28503 f  |! e, ]0 q' {4 X; B
l_____3E7B# |. _  A( U" p3 x
m_____71C5
% t- k" a# N, C/ n: on_____1FC88 d" p/ W4 {9 O+ v
o_____74C1( I5 ]+ ]3 y5 W( |  v# N5 s
p_____5FB8
- q( V) l  j1 A( l) {3 n: cq_____6085
! m) O& I: f" a+ }: ur_____3AC4
7 |5 F- G9 S) q; ~/ I0 s, U$ `" {% Qs_____2F501 y, [: i9 H) l$ w- ?
t_____36F8
! k8 u; g/ i1 W: g/ i8 W8 Gu_____7010
' l. ]2 Q# n) @' R* n+ k# tv_____0B42
, ^; c6 ~8 X- o$ `5 hw_____1C7A
% c/ |# G$ `5 J  D' a* ^! Dx_____16F8) i+ b) H7 M/ Y9 Y) Q' k4 P
y_____2EE7
! U: D# a. p* B$ `4 W2 Q5 Az_____5CF3
0 u: J% o: D9 F& `% \!_____6233
' r8 b, q+ A6 n: C4 q/ ?5 ^; Q- F/ n, l@_____3A45
* k$ ?4 o; t4 U; I+ T  T; s5 r#_____2291
8 T" F" \! ^9 ]1 q$_____5D5C
6 y/ q  y; t; F# a, N) O" @%_____09B9
7 P. _9 w8 {, D^_____43EA
2 W1 t. O" @2 W4 ]3 I&_____62B95 C2 z/ W/ Z5 }4 S; w" p+ L
*_____6301
# l7 ?' s. B9 T+ r6 a) y(_____4659" H6 t5 u7 o7 V0 m" I8 I6 M
)_____5C82

鱼儿无心

收藏了。。。。。。。。