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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
( x* ?' ?+ t6 m1 B原始出处：http://www.3ast.com.cm# Y  ]' F" j  K( v0 v9 ]8 t
4 p  J$ }* F) c, D. x$ I& w
看不懂的直接绕过
, b( J. L' M+ B' H: V/ s" e9 L9 m加密前为:hwy123456
1 r" x: ?& z4 T+ P1 T* `加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E1 n/ M+ y6 a6 _2 U  N: o- e
. {/ D# n5 z; s* ]
============================================
$ b" t9 @; Y' e# e) K上面是当时自己校内的心情。现在已经解破出来了，分享给大家
+ T( }+ u7 o: Y2 V6 r1 I也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
: |! S6 @' H. \( f! i以下是RSA算法文件
2 ^5 T  D) t$ y6 `
2 I# u3 M1 _3 h4 a8 b文件名RSA.ASP
2 ~6 O/ }8 C. ^% r===============================================
# o- v$ C8 \7 l' r# |  I( r<%
  E" e7 Q4 L( i6 N0 sClass clsRSA ! T! q' p' S& ~7 g( n; _4 m9 j
Public PrivateKey
: A. F3 y$ C4 \. i8 x5 TPublic PublicKey ) ^7 y1 R2 Y6 t6 m0 X
Public Modulus 2 ?+ y4 p3 K" Y: t! ^
Public Function Crypt(pLngMessage, pLngKey)
) k$ C0 U/ T1 cOn Error Resume Next ! P' d- F% @+ h+ }( ]9 ^) F
Dim lLngMod 0 `0 P* ]5 y; M. H5 J1 L' S5 w+ n
Dim lLngResult 6 _% x; g) l* N1 f$ V" `, [! @( G: E
Dim lLngIndex * d1 Y; W- A7 j3 Z8 t
If pLngKey Mod 2 = 0 Then + p0 M! H7 h1 ]! Q
lLngResult = 1
3 N+ T: {2 l! ?8 E5 C# JFor lLngIndex = 1 To pLngKey / 2 5 m4 F) r" U) K% z! C; N
lLngMod = (pLngMessage ^ 2) Mod Modulus / p  L, v+ n: g6 {) O) ~
' Mod may error on key generation
* R# L' O" o5 I" olLngResult = (lLngMod * lLngResult) Mod Modulus - s/ }( W  ?+ I8 `7 x  [
If Err Then Exit Function 1 h3 _; Q- D0 w5 ~: y
Next 6 o5 H& C/ S; Y* _- K( V
Else
+ ]# C& D$ {; h- B2 [lLngResult = pLngMessage
. Q3 T" T, E& B! p4 mFor lLngIndex = 1 To pLngKey / 2
6 a+ m8 a8 W6 ]" R: klLngMod = (pLngMessage ^ 2) Mod Modulus - L; D/ k2 c/ T6 M3 ^" f5 I
On Error Resume Next 4 B3 @& [1 h4 Z
' Mod may error on key generation # q8 b( ^( q' R/ k% S  U
lLngResult = (lLngMod * lLngResult) Mod Modulus $ s: r+ d' [* a+ B
If Err Then Exit Function
% i" P- |  F5 Q- B: kNext
2 g) D) J8 I* Y: UEnd If * R2 y$ @4 `) o
Crypt = lLngResult
8 F5 @9 Z+ k8 H7 eEnd Function0 O3 A* f' _  W: B! t( u' Q

0 e: V* O/ ]2 Z; |7 R$ c( b. ~Public Function Encode(ByVal pStrMessage) 9 z( }! k  e8 h2 ?  c7 q% z* U
Dim lLngIndex
8 G/ Y: c, J1 `7 f: E1 y4 R. }Dim lLngMaxIndex 2 L$ [" Z/ s% ^* j
Dim lBytAscii
6 @' G$ d5 H1 D$ v7 ?Dim lLngEncrypted ! g& ^1 p9 R6 ]* m
lLngMaxIndex = Len(pStrMessage)
9 Q! r. {2 e- `: V& t+ VIf lLngMaxIndex = 0 Then Exit Function
2 X( B& S: ~; L$ q  k$ }4 E4 vFor lLngIndex = 1 To lLngMaxIndex & s5 c! V8 [. f, o; \
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 9 @6 m; R1 T9 i$ ?  p# I# R0 {
lLngEncrypted = Crypt(lBytAscii, PublicKey)
; j: B$ J0 l  L- W8 p  MEncode = Encode & NumberToHex(lLngEncrypted, 4) : b) ^. z, D5 a4 k- F" L
Next
8 s% C' I' v9 p7 t5 q8 r6 wEnd Function
) T  ]- J; g+ q# a5 OPublic Function Decode(ByVal pStrMessage) . p. Y9 x7 X* M" p& b; {) D. p' `
Dim lBytAscii ' O# c0 w  s4 V5 F' Y0 o. o; d
Dim lLngIndex
4 d1 R& T; o, v6 e: t$ B0 EDim lLngMaxIndex 4 K( R& l* T' d" n& d
Dim lLngEncryptedData . q, n9 Q" S9 X) E4 F/ h
Decode = "" ' m+ i" w) Y- s' D
lLngMaxIndex = Len(pStrMessage) ' U* w/ B, i  ?3 X7 H( B
For lLngIndex = 1 To lLngMaxIndex Step 4
- z! @  m/ t5 {  m; XlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
# m8 ]. z$ s. z% h/ NlBytAscii = Crypt(lLngEncryptedData, PrivateKey)
* J4 n$ \0 H( Z( ~+ P) M) ZDecode = Decode & Chr(lBytAscii)
. j6 l4 |/ Z0 _0 `/ ENext
& S( B2 k# e( x7 Z$ Y- NEnd Function $ B) b7 u) ?' {3 I6 X
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
5 R# G7 b# d, m) X7 m  T/ uNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) $ ~" S) M2 V: H
End Function ' n7 L+ v+ S1 l+ w
Private Function HexToNumber(ByRef pStrHex)
4 q4 L; B' `- x" f+ y" B3 PHexToNumber = CLng("&h" & pStrHex) ' M/ r0 W( A+ I: C0 D' A& l- K% s( m- c
End Function 7 T5 Q* {! B, E/ a) S5 E$ w' M
End Class
9 |4 T8 g+ K* h. b" b8 Q# Hfunction Encryptstr(Message)
" A2 L# U6 y. H* a9 P* g2 \0 vDim LngKeyE
# \: H/ H/ U* i- dDim LngKeyD , ~; I/ I6 X* z* x- S
Dim LngKeyN
' Z( `& p: `% N' A( m9 N- qDim StrMessage 8 c) l& T, A! p6 }, G4 q  y- S
Dim ObjRSA ( D5 m* w: R5 W) S& v; }1 K
LngKeyE = "32823"
7 r% t8 @" L$ G7 \( F* A0 sLngKeyD = "20643"
9 }3 W! i" T" tLngKeyN = "29893" & u( t% b& q* Y  w( m' ^
StrMessage = Message 3 ?& h/ ]  q9 K8 B! i
Set ObjRSA = New clsRSA
9 ^5 I1 ]- w" x( f4 \6 c( a1 Y; P! AObjRSA.PublicKey = LngKeyE
% X' T6 E5 H0 Y% }7 i4 ]- ~ObjRSA.Modulus = LngKeyN
% h' Q  a$ C0 x8 v6 z9 aEncryptstr = ObjRSA.Encode(StrMessage) 1 v+ D( B2 j. u# O% x3 [' z+ `5 ~7 u
Set ObjRSA = Nothing , e  ~% Y* m( W3 K8 S+ x. l6 x
end function: x- r: i) U+ \
Function Decryptstr(Message) 1 e' o! \& b" V  G. A
Dim LngKeyE 0 y/ k# u$ M3 V0 L; P7 @
Dim LngKeyD 0 G5 l0 X# Q! k0 M
Dim LngKeyN ; W8 Q! {  V2 n( U' c! \" k
Dim StrMessage - Z: u, C4 d1 T7 f) V* U
Dim ObjRSA
/ _$ \: U9 l# f0 G( `% d0 p) |& oLngKeyE = "32823" 0 t0 s. {& U" k4 Q7 B) j
LngKeyD = "20643" ' L! d* @1 o3 t  V
LngKeyN = "29893"
0 w* j/ N: K/ ^/ p" l5 [+ pStrMessage = Message 8 K+ i% W, Y8 W
Set ObjRSA = New clsRSA
4 J0 k* I5 k% O2 t' a6 O* Q! @ObjRSA.PrivateKey =LngKeyD
- y( G- V& D! _+ o& bObjRSA.Modulus=LngKeyN
# Z* z$ U) [' ~% Y! Odecryptstr=ObjRSA.Decode(StrMessage)
, S/ ^' z# N, M) g; @) C" dSet ObjRSA = Nothing
% i, E1 j3 `8 `end function - P& I6 k' \% t/ K% P
%>; U/ ?+ t% ?. n2 z" r, n2 S/ a; ^
===============================================
8 g' x6 R. `. i
$ ^& N5 B5 r- S5 m7 o$ v还有一个用于测试这段代码的test.asp) m0 G( T  o8 w1 j0 S- @5 S
有兴趣的自己搭建个IIS测试下4 U/ L3 W1 {: C3 e7 f& w
<!--#INCLUDE FILE="RSA.asp"-->
5 t/ L0 G7 H9 M$ ]<%6 f/ j0 B8 j( p4 v) b7 [
function Encryptstr(Message) ' {' z2 k5 E& U. U
Dim LngKeyE   w8 T  \$ e( f. Y
Dim LngKeyD 0 N8 _( \& S) H  ~
Dim LngKeyN
& B; D0 w- m, }* B9 I) G" vDim StrMessage ! A- b/ T, W( X( F1 h
Dim ObjRSA * J' q' p  k6 ?0 ^
LngKeyE = "32823"
0 E4 S0 d# W6 B4 O. b0 ILngKeyD = "20643" 4 m$ v: `3 \6 ~
LngKeyN = "29893" % H6 Q+ L/ W- e" D
StrMessage = Message
' g# J: c3 I# p5 V( \Set ObjRSA = New clsRSA
7 S' t# L& @% |, K7 j! G% QObjRSA.PublicKey = LngKeyE
) Z- Q, d; U8 {7 ^" `7 f) d3 wObjRSA.Modulus = LngKeyN / Q) |5 I! U) k7 g+ Z4 F
Encryptstr = ObjRSA.Encode(StrMessage) & Y" ^5 h: X- H7 q
Set ObjRSA = Nothing 5 h2 A1 ^7 r+ r" c% C& X
end function 7 N# h+ ]% |- n; l5 y: Z
function decryptstr(Message) 1 I8 e1 `; o2 B# h
Dim LngKeyE
0 n- n; h+ {; ^# jDim LngKeyD , t/ v' Y* O( E$ f5 R# ~$ Q
Dim LngKeyN 5 t( U  N2 E2 c2 L
Dim StrMessage - ]9 O9 v$ Y! V, V% ~! ?$ J9 c
Dim ObjRSA
3 M" ~& a* M5 dLngKeyE = "32823"
6 K/ q- A8 {' y$ S0 e( u: nLngKeyD = "20643" ' C0 t  u3 g3 F
LngKeyN = "29893" 6 f% W2 p1 F8 @& A: \/ Z
StrMessage = Message
. ~2 a4 j. l& q* }; H3 Z2 xSet ObjRSA = New clsRSA 7 J+ O8 w& O$ `6 B3 F9 v4 l7 N+ Y
ObjRSA.PrivateKey =LngKeyD
+ S: Z; J3 p$ o  FObjRSA.Modulus=LngKeyN
$ c: @- Z6 r9 T: C- p4 Vdecryptstr=ObjRSA.Decode(StrMessage) % U3 D- g, L) _; f, l- |" ~
Set ObjRSA = Nothing 5 u/ C6 I9 N) p
end function , F1 }" c1 U/ Y8 X& ~
dim last,first ) M) B( g8 |/ s+ [/ t! K
first="!@#$%^&*()" 7 V" }2 D! |$ c2 F% H3 K( b
Response.Write "加密前为:"&first " Q! o0 p0 y' K. I
last=Encryptstr(first)
' _3 ~7 k6 Z8 O# X7 Y% H# C8 ^Response.Write "加密后为"&last
/ }# j3 {) z3 ^+ t% c" G4 rResponse.Write "解密后为" &decryptstr(last) ' K8 a/ f6 ^, [& n% s5 L$ B
%> ==============================================
' {3 _; A2 j! L! b+ s! j* S剩下的就是字符的对照表了
- \  o* P0 D1 s; I/ A$ l  p===================字符集================& t; a0 p: h. V/ x% g
1_____6EBB
6 |- z% L4 f) ?' ]# V' M3 Y2_____5C1F" h2 v6 A: ]  p: u5 L& b( h
3_____4D752 W6 W- `- D. V8 |& t/ d0 p
4_____26CC4 R0 d. Z1 e5 n4 O
5_____4F88
& v; o2 t" P& E7 F3 k# D! s6_____3F4E
1 V/ ~' }9 Z. v4 r( ~+ f7_____0A9D
. u2 R' j8 v) e3 A1 ~8_____1A1C
1 n& n/ W0 e$ e/ Q+ K- ^9_____6D205 P8 f  `; W! I6 ]
0_____1089
8 e0 ^6 T: S' W! t6 ma_____0F3E
8 a8 U% \" R9 t+ Bb_____3159
" p" H% i: W; N( Z1 t+ n0 ^* L# `c_____3517
- W  _1 k- K3 Q% i  C( [, bd_____419C! C7 g/ H; x# F& m
e_____615C! s) R- V& i, K7 |( Q$ `7 C7 ~
f_____556F) ~. m* n: O3 u" q$ `3 F* D
g_____2B7F- o8 i4 q! \3 G" ^* }6 W% x
h_____0F9C5 y  L! a$ q2 B2 j2 ]  T) a9 u
i_____00FA: F' n# F  D' x( t  h2 w3 f% u
j_____5A50  l1 w" u, G' ^# V( k" }' p
k_____2850
* Q, \3 h" z" a& ll_____3E7B' o; M! h& g0 v5 h- T3 V
m_____71C5
- F1 C$ R& _' o5 [" o, Kn_____1FC8
; r( F# d: Y1 ^; W3 xo_____74C1* r! _* l( l# e. x
p_____5FB8# w( i+ ]! t( W1 p5 }0 [* l
q_____6085
0 j; M& f6 A/ P2 tr_____3AC4% |6 _' X4 e- t3 b9 g* v/ b7 i
s_____2F50
  L1 f6 H4 b) ct_____36F8
+ U0 R' K6 K( u  B5 o& uu_____7010
# N( P, b) y7 f# R5 {1 c0 Kv_____0B42
. A+ w: h8 h  `. @7 x( E! zw_____1C7A
; I$ R# J' M* {' yx_____16F8, U* A- f% h; R" A6 d8 m
y_____2EE7
, r5 d% ?: p! z! E4 A+ d7 A) lz_____5CF3
8 v- d9 `& r' O0 L!_____6233
3 s% |" ~- \/ t@_____3A45
4 Y% f, e$ _" L; I' r$ M#_____22918 P% m. |; |  W, F' V
$_____5D5C2 M  E  x3 |, P$ u, @# M$ G1 a% E
%_____09B92 d4 m- M) ~9 v( o2 E: t
^_____43EA
& x8 H" H% y- h- t1 M&_____62B9
2 L1 `/ J6 n1 u. e+ \6 c; G*_____6301
8 D5 j9 n7 L: |- W& o(_____4659! j6 D. A/ b" C
)_____5C82

鱼儿无心

收藏了。。。。。。。。