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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
/ s  {' m) i% u  z5 L3 O  V! d原始出处：http://www.3ast.com.cm
5 _7 t: Z) x* L! L
: P5 x: k- J; ?! A" P. ]. N看不懂的直接绕过
( y" s1 L! x0 r" G2 @# V加密前为:hwy123456
* A5 ~& J+ W$ S加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E+ f3 z9 N1 k; p/ p' V  W
* g1 f7 b4 r  y) I, U; Y: V/ O
============================================7 w; M- |( U1 h2 R1 g
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
6 M- w! D9 P6 D/ W7 a也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法$ s" u/ i( _7 @1 T5 I( g! K
以下是RSA算法文件
7 j' t: V; ~- G: ?& T
! a5 I, _- m9 h# q9 q文件名RSA.ASP
, V- d& g/ a  q===============================================
- R* Y4 U$ N5 X7 t+ Z3 x$ m# O" D9 s2 g* ?<% ) R1 Y9 ?: L. g  v9 W1 L* ]. g
Class clsRSA
7 f1 J: @  E% ?3 pPublic PrivateKey
' E' F/ x, ?) X" D+ K6 mPublic PublicKey " ^* v, p- ^$ V5 k
Public Modulus
( d) X" `5 }3 ^" I8 |1 uPublic Function Crypt(pLngMessage, pLngKey) 4 \; n9 z" t# M  h1 @" D
On Error Resume Next
% l9 l) V& h2 m/ `& D; r+ BDim lLngMod
, e- @$ c9 W" ^% p2 q# E8 U+ S# iDim lLngResult & l' q! I0 m, Q* ^- I9 g
Dim lLngIndex
- i- A7 K# Y: u: x1 Q. A4 }  GIf pLngKey Mod 2 = 0 Then 0 p; {' b2 m: ^7 O( c
lLngResult = 1 - y, L4 @. z7 t9 y) d% X+ ~
For lLngIndex = 1 To pLngKey / 2 1 c" M: p+ g$ \: o, V+ L
lLngMod = (pLngMessage ^ 2) Mod Modulus 0 O- y# n; Q8 ^& |+ l& ?" S) [
' Mod may error on key generation 5 o  f/ X0 ]3 f5 k
lLngResult = (lLngMod * lLngResult) Mod Modulus
9 d5 Y, O% P; Q3 t; rIf Err Then Exit Function 1 l9 l' W2 p* ]0 Z) }
Next
) ~& A. E/ I! ^8 }! V$ kElse ; O+ F/ g$ I# l! ]( d+ p- a
lLngResult = pLngMessage
' L- R% @# @- B  @3 N6 }. ]For lLngIndex = 1 To pLngKey / 2
" d. M& x) z4 VlLngMod = (pLngMessage ^ 2) Mod Modulus
* U) J* W6 R6 y& i4 c3 \, [On Error Resume Next 7 O- B1 u5 b# I6 O- F/ }& W* B
' Mod may error on key generation
" [, P" q( ^& n+ l2 Y6 S! HlLngResult = (lLngMod * lLngResult) Mod Modulus
( n8 ?( h% W* KIf Err Then Exit Function 9 l, L! ]) q5 F, U
Next
# D# h( ?) Q) J# ^. D% \9 ^$ Z/ o2 WEnd If $ d$ x2 `$ Q; |; u
Crypt = lLngResult ! f! o$ S  ?; {& Q
End Function
6 p# v3 t& c) `
( e8 ]7 ?. ~/ r5 D& t3 e3 i( dPublic Function Encode(ByVal pStrMessage) # ?. J& b$ e# S
Dim lLngIndex , L3 m9 _( I; }0 k& N/ h
Dim lLngMaxIndex - A; F5 T% G7 u3 g
Dim lBytAscii ' D. k+ r! d0 t" u# q5 z$ F
Dim lLngEncrypted
4 _/ f- H8 d0 @7 S( [5 c5 alLngMaxIndex = Len(pStrMessage) ) Q0 Y  e" h+ o
If lLngMaxIndex = 0 Then Exit Function
0 ^8 D. L3 J) m* wFor lLngIndex = 1 To lLngMaxIndex , R# G2 Q' X1 }8 w
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
0 C( T/ C" S$ a7 R9 ]6 }lLngEncrypted = Crypt(lBytAscii, PublicKey)
2 d) A6 c9 T3 z3 i8 W3 f3 _9 gEncode = Encode & NumberToHex(lLngEncrypted, 4) + G0 q: R9 n8 ?9 i
Next
8 ~1 K) {( w2 y6 hEnd Function $ i# F4 F# q2 V3 Q" @0 M
Public Function Decode(ByVal pStrMessage)
+ @# e0 u0 L+ S7 a4 @$ Q+ b  d; t' k# LDim lBytAscii ! `' z# ~; ~( i- y9 p, B
Dim lLngIndex
9 y  w; {3 l, m$ H1 A6 D9 cDim lLngMaxIndex
) S5 b( w8 k$ T  V+ YDim lLngEncryptedData
- s$ V" {" o. RDecode = "" - w' u3 V9 s% @* l; W9 G
lLngMaxIndex = Len(pStrMessage) * {) {& N1 x: G- @
For lLngIndex = 1 To lLngMaxIndex Step 4 ! G' k4 G# c9 k: d1 m8 V; G
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
+ E3 Y. Z: z7 S' ?8 dlBytAscii = Crypt(lLngEncryptedData, PrivateKey)
2 N/ }2 A; O. o  A  {Decode = Decode & Chr(lBytAscii) 9 a* p+ C8 [1 q3 D) x& d
Next 3 d  K, u' Z9 t' O& W0 B( [0 ]
End Function
1 ?5 M( X" y/ o+ v: L8 C) pPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
! ~1 d2 o8 H4 r8 X* F0 ~NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ' ?: E7 |+ h5 A& l- V% B
End Function
. \: c0 N2 d! L6 B0 \Private Function HexToNumber(ByRef pStrHex) 9 ^) N  k! k+ c  }8 S9 K$ j
HexToNumber = CLng("&h" & pStrHex) # T. V9 I  x& D( y" i9 Z
End Function 5 ~; `" j. O' ^; J! a
End Class
- {( `1 X( E( k4 Tfunction Encryptstr(Message)
! n4 I8 j( K# b. |; B4 m2 PDim LngKeyE
) J& k. {/ Z0 K1 k1 zDim LngKeyD
4 s# `! `' q: ?Dim LngKeyN
( |7 \% ^6 i1 B! `" Q; i7 a# ^4 `Dim StrMessage
6 x+ g8 S- I# K# w+ t8 X; oDim ObjRSA 0 s5 D' K! U, o, Z3 \2 T1 ]3 T, X9 k
LngKeyE = "32823"
; x3 ]. |  V0 RLngKeyD = "20643" ) F) a- \( B+ g- J$ L
LngKeyN = "29893" ( o2 E) L( b- l% z- a
StrMessage = Message 4 T. |5 `& G' B
Set ObjRSA = New clsRSA
9 R) g+ [) X* ]" M" rObjRSA.PublicKey = LngKeyE
- ~9 @. \+ s! q+ I+ a3 CObjRSA.Modulus = LngKeyN
5 ^, Y2 F$ q2 Z- F( O; }Encryptstr = ObjRSA.Encode(StrMessage)   d' {' X' c9 _( I& w" t7 P
Set ObjRSA = Nothing
, Z. X# `. G" r* ^end function
; C# a0 }7 \" R  ^: D; n% pFunction Decryptstr(Message) . H: s7 m) g4 o( C8 [4 y( W3 T. `% N4 {
Dim LngKeyE
8 S# @  k" r' W( |: y& @" dDim LngKeyD : E, D* R: c! s/ I
Dim LngKeyN
: a9 A% F8 d, w- }  `Dim StrMessage
6 `& L9 j# k1 j# J% kDim ObjRSA
, E5 y9 s, q: j9 @" [1 T& a8 DLngKeyE = "32823" % u) [  B* N+ v9 g5 J* }5 ?1 {
LngKeyD = "20643"
. D3 e/ d- O; K& x9 B& JLngKeyN = "29893" 6 l& j; I! x' j: R3 v  n  Y- r
StrMessage = Message ( [5 v) n- C) J1 r' ]  R) F
Set ObjRSA = New clsRSA
% ~  P7 f2 R. j5 \ObjRSA.PrivateKey =LngKeyD ! K0 X, R! W/ C
ObjRSA.Modulus=LngKeyN 7 r# ^+ D+ }5 y% ]4 l7 T) T
decryptstr=ObjRSA.Decode(StrMessage)
# Z# m% g/ Z( z+ d) O* I7 WSet ObjRSA = Nothing 4 r1 p, B! R7 x$ Y. _5 D
end function 9 y6 q, N% e% D$ ]0 ?6 i* p
%>- W9 P! C* E3 d" ^  `
===============================================" Z( n$ ~6 w3 Y
2 X7 O6 n9 u" ~# G
还有一个用于测试这段代码的test.asp. g8 U- |# t8 N2 @2 @9 A8 E
有兴趣的自己搭建个IIS测试下
6 \( Z0 P2 g& n. a! L<!--#INCLUDE FILE="RSA.asp"-->
* L! M- \- I4 [9 i' ]' K<%/ t2 }# `  B0 p9 p- ]# T' \
function Encryptstr(Message) ( E1 X2 k4 P$ I- F3 f- y
Dim LngKeyE 6 d6 _7 Z9 P) F! x
Dim LngKeyD ! ~& w0 N( ]) F/ x- u% ?5 U5 }$ ~
Dim LngKeyN
. |& S, y1 w. u5 J5 H* Z- ADim StrMessage 4 q2 J+ G+ y  T' n- _7 A' `# E
Dim ObjRSA ( ?& Q1 w6 o5 y" I0 p9 b
LngKeyE = "32823"
+ D7 v$ J( ]) [  p2 J, P' U4 ~9 ^LngKeyD = "20643"
) J7 ^* J+ W" t& O3 C3 ULngKeyN = "29893" 2 h& c+ R$ p- ~7 |1 ]
StrMessage = Message
; i' |) `/ _: Q; N9 P! t, `Set ObjRSA = New clsRSA
/ }* Q6 Q3 x0 [6 q& {0 oObjRSA.PublicKey = LngKeyE
$ V8 T  t8 s- `4 ?: x: s3 g* aObjRSA.Modulus = LngKeyN
9 [$ h" ]% K6 }% v4 F: PEncryptstr = ObjRSA.Encode(StrMessage)
9 _- h: O% F( w! L1 v& ^& w6 W* n  s' C- xSet ObjRSA = Nothing
  d% Z. f& F. i7 H0 S* Wend function
( M! O. M/ N6 y' _0 S. v9 Ifunction decryptstr(Message)
; R- |& n9 Z* i3 o5 \Dim LngKeyE
  u! r8 O" T% P& x: ~+ XDim LngKeyD - [9 e1 m0 U) N3 _, _
Dim LngKeyN
2 H$ F. l! D5 T' h' K9 g+ D& XDim StrMessage % p- }8 d, \3 A! H3 C) _
Dim ObjRSA 4 F4 e1 }: z! @& D9 ^# S
LngKeyE = "32823" . A  w; H# u% M  M1 L& m, d8 O
LngKeyD = "20643" 0 W. @, _# x, u8 Y- A. h1 l: z
LngKeyN = "29893" ) K& @1 t2 Y- G' x: [' a: G! M
StrMessage = Message
* Q& D- c) x9 k  [5 C6 BSet ObjRSA = New clsRSA
2 B: J! ~, G* F# b2 NObjRSA.PrivateKey =LngKeyD
, _& s6 _+ q$ F/ `+ nObjRSA.Modulus=LngKeyN
" {, u2 h) w4 g" Adecryptstr=ObjRSA.Decode(StrMessage) . l1 Y) [( l% l' a, {
Set ObjRSA = Nothing
0 ~/ D9 {8 s# t6 N- U5 }' yend function $ T7 M! J: Y4 _7 d+ d2 Q# B
dim last,first
# c7 A7 x! h/ \( }# X: Hfirst="!@#$%^&*()"
9 ]5 P; {+ v$ F7 _. v) o. H: TResponse.Write "加密前为:"&first ! K: u9 \3 p  |  S' ^  a! c( Z
last=Encryptstr(first)
' e3 U$ J: z$ a) u) {" s9 }Response.Write "加密后为"&last 3 r3 ]% {7 w+ [" M, r9 W% F8 _4 w
Response.Write "解密后为" &decryptstr(last)
; t) i! e  n, e/ @%> ==============================================# Y+ D# W" w. Q$ Z7 ^! O
剩下的就是字符的对照表了
1 x1 ^* M" p2 q===================字符集================
* ]& e" f' Z0 [8 v4 @1_____6EBB
% g" S, x5 o* `  i. n' {) n$ K2_____5C1F  _6 ^: |! M% U( n
3_____4D758 {& v6 R; m1 u8 v) y0 V
4_____26CC( a2 P" ]4 ?4 O# P5 h4 [- g, k+ B
5_____4F88
+ z5 q) P$ j) r5 d6_____3F4E( H) ?3 w6 [0 S5 B1 B0 A
7_____0A9D
! |" k0 [* `8 A: U4 I5 J! d( S+ n0 o8_____1A1C
) d) N5 D$ D$ k* T) [' n0 }9_____6D20
1 q, e& B1 T! {$ ~. v5 [* d3 p& V0_____1089/ [- R& R7 w! h- g% V; y, q" D
a_____0F3E6 v+ @8 E  w7 `% P/ g
b_____3159
3 ^+ k' v- T# f) ac_____3517, q5 X+ C6 ]9 w  F! A2 p" n
d_____419C7 o8 ^  E) t- t" w( r" X& K& c0 P
e_____615C
) w. u9 p! }9 k2 Yf_____556F
2 C3 `, ^% b) yg_____2B7F
. o+ j4 P" j. j+ \! rh_____0F9C7 ~1 O5 j) r  h& q2 m
i_____00FA
, M% D$ G% }. H+ O. i  ^8 j  \j_____5A50; U$ U6 k$ Y- B* q' F+ ]5 d& o
k_____2850
/ E8 @$ l9 c/ U+ b8 el_____3E7B
- c- ^" p1 @9 I' {$ vm_____71C5
, _# q- Z. t$ v( l+ Y1 s: ~- kn_____1FC89 r  p2 `) p* Q! k" m
o_____74C1
8 a2 n! x0 P& W* r+ |# ^p_____5FB8
) ?) q8 _/ A( I" K( a7 z# t  l* X8 yq_____6085+ \3 k8 b- o. L- O
r_____3AC4
( f* p1 [1 N, r+ zs_____2F50
1 D: l% a* Y. W/ C; t0 @3 Ot_____36F8
& ?$ _- W+ ^" \" `& ]0 n4 Lu_____7010
# u! A- O4 j& ^* N1 Av_____0B42
7 j" [: |0 y: D+ T9 a0 J: n$ Aw_____1C7A# y. ^  @7 W' N" f( D1 a: x. o
x_____16F84 d# ?6 F  g& O& C0 r9 f
y_____2EE7
9 D6 p$ [" K# Gz_____5CF39 B6 B  ?! M: C
!_____6233
% X9 O- y  O" n; F@_____3A45) P; a, p* v' e
#_____2291  t- z2 x$ a6 p) l6 ?
$_____5D5C# F& z0 H& U  ~, k) q- p
%_____09B9
+ k- O8 e+ N' \1 c9 j! a^_____43EA  U# O+ N0 I5 S3 q8 x5 ?! C
&_____62B9
0 L8 k$ g( P& B' L! Y9 W*_____6301
* i& t; V  \. ?(_____4659/ u$ Q3 N# t" j! f: y3 ?9 i
)_____5C82

鱼儿无心

收藏了。。。。。。。。