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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
6 f. g" O. U" ]9 x& `7 z7 F原始出处：http://www.3ast.com.cm  j( @& R8 [/ m8 h6 m

: a, y: {* h2 Q2 T' m6 k看不懂的直接绕过
5 C8 L, U5 i; P$ Z加密前为:hwy123456, h: Z9 W0 Q! |4 h! Q7 H
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
0 Q( }" ]3 V3 g: g+ t& p
0 ?' k5 Y( f! j4 k% V& `============================================
0 Z5 ^9 L# P. ~* O, Y$ V) H* s上面是当时自己校内的心情。现在已经解破出来了，分享给大家
( ?- n0 }; V( C4 A: O也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法& u3 T, ^* P$ T8 a5 \3 Q1 O
以下是RSA算法文件/ e5 y* V# j5 `5 k; B6 s+ m
" D2 T! W) g* X; |
文件名RSA.ASP* \  b+ i" l% Z
===============================================
$ {; G% O' N+ ^/ v<% 8 w: G( v) T. v) d
Class clsRSA
& `$ ?& F& A( G8 P6 t" `Public PrivateKey 0 z0 U; \7 J3 L5 f! n
Public PublicKey & l+ ~9 C' v/ O! ?) {
Public Modulus
% U, A! z, x( s0 V; R, H+ r! aPublic Function Crypt(pLngMessage, pLngKey)
) N, w: b4 e9 ]9 zOn Error Resume Next 1 L: [4 v" }* h; X& C
Dim lLngMod . z4 S1 U3 m: [
Dim lLngResult
" R) s" [4 H; o3 {8 L. zDim lLngIndex . h) y3 L/ |5 l& `$ t. B3 o
If pLngKey Mod 2 = 0 Then
4 N" z5 U& Y+ q8 M0 i5 plLngResult = 1
* c: p( D! S. m0 O; {For lLngIndex = 1 To pLngKey / 2
4 H# b5 A  ]6 U% m2 U0 mlLngMod = (pLngMessage ^ 2) Mod Modulus
( n/ t; o- i9 R6 d0 A( ]& r' Mod may error on key generation
7 G6 B- o2 q( p  _. k, ~lLngResult = (lLngMod * lLngResult) Mod Modulus / N; @5 Q. h( K9 j9 Z9 I
If Err Then Exit Function
2 {9 t: D3 \" j9 c( U9 p% SNext
0 `4 n- F% ?6 }9 Z& yElse
9 N5 f: G; S1 U# U( a( AlLngResult = pLngMessage 4 S  }. v  h9 F% r7 X6 o
For lLngIndex = 1 To pLngKey / 2
1 I0 `0 G6 y; v4 ], \lLngMod = (pLngMessage ^ 2) Mod Modulus
9 g9 a$ j( o( ?+ m3 XOn Error Resume Next
: a1 _0 n/ u) Y6 J( S; D' Mod may error on key generation - j0 u: N- P& H& y: J9 |: m9 p4 z* P! Y
lLngResult = (lLngMod * lLngResult) Mod Modulus 2 ~, S" K+ ~& v! }& q4 Q9 K
If Err Then Exit Function 9 H, _1 |' M; T8 W3 h+ u
Next
: Z  L, o( h" d/ f0 JEnd If ! s# }' h3 t6 t
Crypt = lLngResult / D/ l) S) a: r6 V# U* j
End Function
6 r( @$ o" R( s, ~
$ X% s. l: G; H. h3 s0 u* GPublic Function Encode(ByVal pStrMessage)
8 H3 _1 I' u5 [# vDim lLngIndex 8 G7 I% h2 V: ]. m, j( K; r
Dim lLngMaxIndex + q% i2 H; |% b
Dim lBytAscii 4 \, _2 a, r; D3 d' c
Dim lLngEncrypted
; ~) c( x- w; i* O1 o3 h1 k0 l1 @' a* ?lLngMaxIndex = Len(pStrMessage)
' ]5 q3 K6 n5 u6 b# H; n2 EIf lLngMaxIndex = 0 Then Exit Function & P+ J" ~+ S) t  N% _/ K
For lLngIndex = 1 To lLngMaxIndex
+ L' G  w) S2 l8 SlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) & J9 B5 ~6 g0 X
lLngEncrypted = Crypt(lBytAscii, PublicKey) $ b. l- k1 ]9 P( i6 ~
Encode = Encode & NumberToHex(lLngEncrypted, 4) - ]  E6 Q: P6 j4 F; F- O
Next / d: ^* m5 n( K( Z5 t5 L2 h
End Function / o# N4 @& Y2 y- k9 [% w3 e- s
Public Function Decode(ByVal pStrMessage)
/ G; v2 ?, |. W  P9 eDim lBytAscii * H; s8 L, t3 M% }( I! d! Z
Dim lLngIndex + j) H5 A& ^6 \3 S7 X
Dim lLngMaxIndex 4 E8 K3 m& H' n
Dim lLngEncryptedData - w, T' A- ~* x6 D3 G: D
Decode = ""
/ {: l" p( a% U9 x! ElLngMaxIndex = Len(pStrMessage)
& \- n, v% _3 l6 d; W: S! JFor lLngIndex = 1 To lLngMaxIndex Step 4
. n- b' l3 \, GlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
& E" [% Y6 U, c* E% elBytAscii = Crypt(lLngEncryptedData, PrivateKey)
) U4 H+ L3 `  [# `Decode = Decode & Chr(lBytAscii)
, S4 N2 R" a: T, n/ Z3 T) wNext
. ?: m4 M2 x8 s: [2 I' @' Q3 BEnd Function
: s$ Q8 }/ I2 B6 @9 O& mPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) # {2 @# m3 M4 [" q& }7 g0 @% B
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
$ M4 @( h# l" H* \# p0 HEnd Function
2 Y  L7 s0 n6 a6 S# K( _Private Function HexToNumber(ByRef pStrHex) $ \2 O3 w6 b+ l9 a8 O. i' X3 z" v
HexToNumber = CLng("&h" & pStrHex)
1 \! M' z- n/ B+ Y2 u7 dEnd Function
7 d, a9 i6 K+ bEnd Class 3 R8 D+ T/ _4 k  j
function Encryptstr(Message) & J* ]9 ~" z1 v$ W
Dim LngKeyE
5 g4 \5 l- K' I, ?2 E( DDim LngKeyD
. R& E" K( W* \/ P; }) }  i, u, uDim LngKeyN
, n" {  o- Z7 uDim StrMessage
: Z% [4 N, k  ^5 f- BDim ObjRSA
" r# ~( Y( A. {LngKeyE = "32823"
# u% W# ^% r* Q0 YLngKeyD = "20643" 6 W; c/ ^. s: l
LngKeyN = "29893"
0 d( z0 E+ d+ ]5 L& j+ P' _StrMessage = Message / `8 P0 A, h2 {) Q! L8 W
Set ObjRSA = New clsRSA
9 t$ {4 n6 d& j' ~0 @9 A( nObjRSA.PublicKey = LngKeyE 8 o8 I, u2 u  d0 C4 P
ObjRSA.Modulus = LngKeyN
* }3 S# {' Y, X& s% Y. d) jEncryptstr = ObjRSA.Encode(StrMessage) # F8 G! @" C0 O, t4 k0 o
Set ObjRSA = Nothing - X6 B& X% O* v2 z/ i) \
end function
# M2 U( a# Z. h( a' ~6 P  oFunction Decryptstr(Message) # q2 K" x# Y& k! @4 l
Dim LngKeyE
7 G  {0 x9 v# K- H5 _Dim LngKeyD
# o- o9 e9 Q! M1 [Dim LngKeyN ( L: u% L1 b' T$ y' I8 h  }
Dim StrMessage   Q1 \8 v5 \2 [& _( r' H6 ?+ o6 Z
Dim ObjRSA 9 o% M% v2 J/ I4 n' S
LngKeyE = "32823" * I& ^, [1 |! W, ^8 R+ O
LngKeyD = "20643" 3 b- B8 n( |) H! B0 V* R2 K! n, a8 o
LngKeyN = "29893" 3 [# R4 }: ?# n( o
StrMessage = Message 6 v/ L0 N9 J4 ^2 b
Set ObjRSA = New clsRSA # h% D/ U+ |# L# y/ z% [% o
ObjRSA.PrivateKey =LngKeyD
9 ^% \8 f( s! L2 @4 y; h% y7 KObjRSA.Modulus=LngKeyN
5 Z% `2 ~1 }" |$ |7 Ndecryptstr=ObjRSA.Decode(StrMessage)
; Y: {+ @# i! k8 r3 G  mSet ObjRSA = Nothing
, o0 q7 i! ~" L/ k  w: |& pend function 6 e$ A+ b  {# f. Y& X0 i
%>
$ `% z, S" `' I===============================================0 T0 d  p5 h% O

" I% Q: _: T$ j3 s, k8 B还有一个用于测试这段代码的test.asp
$ J6 v3 ^6 ?% h  M: R有兴趣的自己搭建个IIS测试下' r1 t4 I5 h7 F2 N4 i
<!--#INCLUDE FILE="RSA.asp"-->
, Q5 D) c$ ]# ]- }; v& D- X<%; f. j- A9 e, [7 j' e
function Encryptstr(Message) . \4 i8 T% ?2 m4 n
Dim LngKeyE
& S! u# x$ Z: N1 `2 q; xDim LngKeyD
* a& J: A# k7 K% g* H# |Dim LngKeyN ' Z7 O" z8 A; I8 O
Dim StrMessage % E) ~9 R( d1 F0 b, d/ w3 R* Q
Dim ObjRSA 9 _2 `' V0 U: R( B$ r5 `
LngKeyE = "32823"
9 u4 B* d8 H/ B4 {9 t0 h' }LngKeyD = "20643"
6 s9 A, z$ i& uLngKeyN = "29893" - l+ U  N2 v% T! j0 o9 E! @7 U5 M
StrMessage = Message + a9 o) y% u# R% F% W
Set ObjRSA = New clsRSA + f! e$ A5 e5 y1 M% s- ~" A/ |. z
ObjRSA.PublicKey = LngKeyE ; B  H, R- P5 J$ s  n6 R7 s
ObjRSA.Modulus = LngKeyN ' x/ k& k- I) `' h  a
Encryptstr = ObjRSA.Encode(StrMessage)
9 E: G3 O" w3 J+ Y& ]Set ObjRSA = Nothing
7 U' t+ v4 T6 m! q2 M2 Kend function
. W1 {. m3 |7 M- h( i0 I4 ]function decryptstr(Message)
+ r6 ?( m& K$ H- D! K) ^Dim LngKeyE
; V, p, S/ l* Y: F4 X+ vDim LngKeyD
: C  Z" u/ X* ~/ c2 HDim LngKeyN / D7 A1 ~7 J* F% S. p
Dim StrMessage
. b0 K5 J. q! R9 o' I! TDim ObjRSA   u& C) k# w/ [4 j+ t
LngKeyE = "32823"
; ]0 J# j3 ?5 g, O+ W' pLngKeyD = "20643" 2 s+ \8 e5 g! t4 d% K
LngKeyN = "29893" * f* m$ n; F( v6 }: [2 a+ u( i# }
StrMessage = Message 5 O. ?" Y* P9 m+ x& z& |0 e) i8 }, w
Set ObjRSA = New clsRSA 5 F5 c- \& @5 f- v* j6 F- f
ObjRSA.PrivateKey =LngKeyD 5 s4 J/ P( D& s0 n; [% N6 U: g; w
ObjRSA.Modulus=LngKeyN : U7 U  E/ j/ k; E! `
decryptstr=ObjRSA.Decode(StrMessage)
: K3 ?) Y3 j. ^0 zSet ObjRSA = Nothing
4 Q9 s( n# @+ Fend function / T% I9 j. U0 r: Q1 A- ?' D* b- K
dim last,first
7 M& i5 H* ?# |first="!@#$%^&*()" ) n& N, U4 {" Q0 Q! g5 A8 H
Response.Write "加密前为:"&first - q! _4 v7 h$ L+ [: b: M& q
last=Encryptstr(first)
' ^* I  k8 G. \% w* _- r3 }8 i8 B8 ]Response.Write "加密后为"&last
* B5 S: u  \1 g1 b1 S8 rResponse.Write "解密后为" &decryptstr(last) 6 h: m+ _$ v* m" k' @- A; L
%> ==============================================! N/ ?5 Z4 Q8 m
剩下的就是字符的对照表了
, O' N; k" o( a  `: u) E0 m/ Q. h===================字符集================
- P1 o" e  A9 c4 F+ Y8 i6 f2 b1_____6EBB
& b+ Q% ^0 V( D& N  G2_____5C1F. s$ w0 a7 n/ p+ C1 i# A+ a
3_____4D75
$ W0 R* f8 u9 Q# z$ t4_____26CC
9 [6 K9 L+ F/ l: w  l5_____4F88
: Y$ h5 t) U$ ?- q) Z, q: G6_____3F4E
' O8 p/ B4 j& A5 p4 H- j% S7_____0A9D
; i3 k# m8 ^" u- f8_____1A1C
9 J+ K: k) e) y3 e9_____6D20
8 x* s9 `7 r& @- d6 T0_____1089, W: n& s+ p; _/ d# b
a_____0F3E
1 K2 C0 ]- j2 Cb_____3159
2 V+ A) E5 C& Q) H' [1 k4 d+ Nc_____3517. W* \+ W1 P; R) P3 T" h3 `- M
d_____419C6 r/ L4 J2 c+ M5 V2 c
e_____615C, y, n6 n( A8 \! d# h5 J! A/ t
f_____556F% j: m: @2 s( R1 V5 }; c
g_____2B7F
% G. j6 I& S4 U& ~h_____0F9C/ G- f5 ?* \% B1 C( h+ G" |
i_____00FA& x; }% Q4 i2 `! a( L
j_____5A50
2 _9 j% \' K) Mk_____2850
; F9 e8 i% g- }, n& K5 Vl_____3E7B7 Y# N) Q) y2 _- C
m_____71C5
) a/ f2 R7 y1 p+ l9 V2 Z, T/ x0 G+ on_____1FC8- m4 Y6 f9 i9 K1 E0 t
o_____74C1
) n% F5 c* W, Q. |$ E# M, X7 Mp_____5FB8
4 Z9 e# L  m, h1 P# Y1 n( p9 |! a+ dq_____6085
& A+ [# }2 m) H6 ]r_____3AC4
) z5 M! E! `. m) Cs_____2F50# W( e2 c, a7 C6 ?# g
t_____36F8
! Y. B. p4 `% n( G/ M) tu_____7010( H/ E8 f# c8 O5 ~+ B
v_____0B420 [( s3 C6 [! C' W- w- Q+ y) w
w_____1C7A
6 k3 a4 b9 L- V# h3 y& Wx_____16F8
+ W& w, K. S% k$ \& ay_____2EE77 h+ ^: G5 a, ^( M
z_____5CF3# E' _; k7 b% i' V* M( O# s
!_____62331 z' j3 Y8 O% w
@_____3A45& d# ]) _$ }1 S4 Y9 g* ?8 j; H
#_____2291( `# J& h8 N) j9 B
$_____5D5C
. p: t" D: t3 J1 ^9 w3 y%_____09B9
% s6 p1 l( d3 ^1 m( a/ j^_____43EA* L) t; ]$ y, k3 u" @! l; _" c
&_____62B95 @; D! S# v0 N& H( _; I
*_____6301
2 ^* M; K2 \, [+ j(_____46591 L- e$ _: Q5 \' R' \
)_____5C82

鱼儿无心

收藏了。。。。。。。。