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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm, e; Y: R% Y4 x* U0 I0 [
原始出处：http://www.3ast.com.cm
& h1 U1 ^' f, T8 l) e# \0 H4 ^) b
9 r) j" s& m, j& Y  @- z% u0 q2 m. l看不懂的直接绕过
" G; C; \' d  K, |  n4 C加密前为:hwy1234560 E) x- c  y! S4 s. t! b2 \& U
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E, H& m9 _/ P& X+ D* Q
: {  _9 ^- ~- C& _5 n1 |2 \: N
============================================
, a% _& I' ~+ \; J, a上面是当时自己校内的心情。现在已经解破出来了，分享给大家
0 _  p* h! s; X: H3 ?也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
  \$ r0 i8 G9 j3 N以下是RSA算法文件
! |  p+ Z- I7 \5 ?; G8 C" z" k
/ x+ g1 l, H, r文件名RSA.ASP) Y9 V, L4 M$ a) F3 y' O  ^
===============================================+ R: J# t6 `- }5 D
<% : _% [# g6 Q  L9 `
Class clsRSA 6 F' k4 ?/ v! F
Public PrivateKey * O% B& I, g6 P& G; i) U" W1 s
Public PublicKey
& ]5 V2 J! E3 f# Y* @8 PPublic Modulus 4 `4 S7 @9 j4 `3 O; `* f" d" z
Public Function Crypt(pLngMessage, pLngKey) - n* p' E# _' ]
On Error Resume Next
& F' `: B4 D8 ~6 q" L2 c1 p& JDim lLngMod 2 @3 j4 D6 I$ C7 B5 \
Dim lLngResult ' }1 d5 T  ~9 b" F
Dim lLngIndex
6 e9 j5 l& ~1 V+ V' U  MIf pLngKey Mod 2 = 0 Then
+ f6 }: E) h0 D1 [lLngResult = 1 6 Q8 N  f$ I% R% b# r( {! w8 \
For lLngIndex = 1 To pLngKey / 2 4 t  ^! ~- d" z6 F! a# Y$ ]+ m
lLngMod = (pLngMessage ^ 2) Mod Modulus
- J  V- F! N  h, g* r' Mod may error on key generation # B9 k# ~& t7 |/ S0 j2 ?
lLngResult = (lLngMod * lLngResult) Mod Modulus
% s5 `" _$ y) H5 }If Err Then Exit Function
$ Q0 k) J6 i& D: l/ h! T0 c/ z$ c* J' p/ KNext
- k  d) D# H7 w4 f# B$ fElse
$ g( u2 P4 D2 _/ WlLngResult = pLngMessage 1 M4 \8 _% R# t+ s3 m( f" i# |. Y
For lLngIndex = 1 To pLngKey / 2 : z+ c# [  r8 Q  _/ I/ I3 |8 s0 j! D' C
lLngMod = (pLngMessage ^ 2) Mod Modulus & \( i9 H5 C, e6 b% e: S) Y
On Error Resume Next
" _: Q5 F, W% q, z' Mod may error on key generation
2 H! g5 x; U/ y1 Q: G2 JlLngResult = (lLngMod * lLngResult) Mod Modulus
0 h3 B4 Z0 @( G8 D: f6 V! ^If Err Then Exit Function
2 n5 [, g9 j1 H2 e% ^2 N+ n7 WNext
( a8 w% E& ~' k; g. xEnd If
; q( q! B' F( ]: yCrypt = lLngResult 6 P4 g+ N  _0 _! Z3 e+ @6 e6 \3 I
End Function& E# q9 d- F6 o
4 I. D3 K4 d, \- M  Z
Public Function Encode(ByVal pStrMessage)
! _* e% j) v+ A; `+ c. m0 ]Dim lLngIndex - i- |$ ?8 @' O- N* s+ B- ?0 i6 w
Dim lLngMaxIndex ) b* H* f1 P6 d* N
Dim lBytAscii 2 n0 G( Q) }; G( O, I$ q( ]
Dim lLngEncrypted
6 X+ P1 J. `( \" c1 S) |- FlLngMaxIndex = Len(pStrMessage) ! p6 W7 R, q1 d/ T" F$ R0 R& ]$ u
If lLngMaxIndex = 0 Then Exit Function   V0 [$ \& y: u% F! o. c
For lLngIndex = 1 To lLngMaxIndex
7 h  k7 D  T3 \8 \, d0 ylBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) , ~, x( u8 z# M$ W5 ~
lLngEncrypted = Crypt(lBytAscii, PublicKey) # P% k& h6 I0 `7 K
Encode = Encode & NumberToHex(lLngEncrypted, 4)
* k3 p3 X9 H2 UNext
, ^+ c' {# b, {/ BEnd Function ' _& C. d0 b7 f# O; Y( ^
Public Function Decode(ByVal pStrMessage)   T  y. F; g0 y: O6 Z
Dim lBytAscii 3 j3 k! s+ k: d4 K, P
Dim lLngIndex 8 X5 m$ a. e& I' T  O1 X( X! x
Dim lLngMaxIndex 7 e; H, _- S5 _% R
Dim lLngEncryptedData # C# G% ?* e: W8 `- R# h" ]' W. R
Decode = ""
; ~, G8 v% L+ _( i  _# C5 f! w2 qlLngMaxIndex = Len(pStrMessage) 4 r1 t# T5 w2 C6 t0 W. d6 A2 W
For lLngIndex = 1 To lLngMaxIndex Step 4 ' v7 L% a! s# r5 V
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
- q, v# X7 v3 b* V* {lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
5 q  c" A1 ]4 @0 j" x$ G" u: C! KDecode = Decode & Chr(lBytAscii)
3 Z) C$ v6 @  KNext 4 p  |5 \: _5 P7 D# R. R4 ?' |4 a
End Function
6 m* U7 d: c8 m6 a& p# Y% c7 |Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) + J1 _+ F* M2 `& P, ]
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
3 O  Q1 k& d/ VEnd Function
1 F4 c0 R3 j7 K6 }! |Private Function HexToNumber(ByRef pStrHex) # D5 e! X9 |: _7 k/ l) n7 X) ]
HexToNumber = CLng("&h" & pStrHex)
. H! L& {$ u4 xEnd Function
# D4 w: b3 Y  B( F: f* F/ bEnd Class 0 ?' h( Y  _" f% [) B8 B
function Encryptstr(Message) ! \8 b- p: q7 i* P( i
Dim LngKeyE 4 U5 Q7 b5 y& {2 N: ?
Dim LngKeyD ( S0 f- x) D. d/ X
Dim LngKeyN % E& |2 Z, `5 [2 v! x! |5 ~- G
Dim StrMessage 2 F$ g! ^' A' f& V
Dim ObjRSA
. [  u. E. ]" c4 n* ~LngKeyE = "32823"
. Y9 V. Y$ {5 e, bLngKeyD = "20643"
3 ]5 t+ w% Q5 o  g; L$ C3 RLngKeyN = "29893" 1 e& t# C: Y+ t7 C/ h) A
StrMessage = Message
  J4 x' ~$ i* |  }4 mSet ObjRSA = New clsRSA
7 S" @8 u- u7 A8 R# c. i2 |ObjRSA.PublicKey = LngKeyE - ?% u. o7 G/ r/ G2 S9 }! X' N
ObjRSA.Modulus = LngKeyN
) v; |% a% C6 U6 S; U; ~, x2 cEncryptstr = ObjRSA.Encode(StrMessage)
. r/ o- o: |% l7 q& b7 M3 W1 gSet ObjRSA = Nothing
. f- G8 s! i9 A5 Q- _& Z. \end function
# L& H! s. I# O" \. E: |  a# RFunction Decryptstr(Message)
& z: [2 C. n% l; Y) U; A6 u; NDim LngKeyE ) u( h* m: d2 O) |. w' m* y
Dim LngKeyD 6 I: V# \# \2 A9 p5 k) m8 r& P* _
Dim LngKeyN # Z4 o) F8 T( Z5 A! [( I' g
Dim StrMessage
! b2 |0 T. {3 A* z. H' ~0 IDim ObjRSA
& M& e6 W0 e& k4 ?3 x5 `0 ]/ d" g2 oLngKeyE = "32823"
* |* x- w  g/ h% r: TLngKeyD = "20643"
+ z  w3 H4 V5 i0 C, w: u- e0 MLngKeyN = "29893" 3 t8 i5 Y- _& U: o% [8 F1 c
StrMessage = Message
7 k7 o9 T1 s# m& f1 U# YSet ObjRSA = New clsRSA & f1 T( H2 m0 P( |. K
ObjRSA.PrivateKey =LngKeyD
! i: f' U8 o5 e& V. W( |( N* uObjRSA.Modulus=LngKeyN
" H1 l2 U! u6 P7 y+ Adecryptstr=ObjRSA.Decode(StrMessage) 9 @. y5 Q  \1 A5 J
Set ObjRSA = Nothing , Q4 l% T9 F1 P( e: ]
end function
% b' Q; f4 t/ b. y5 o%>
! x8 _9 c; I- V! l1 Z===============================================! `9 x% N' w7 T1 d: b- Q3 B, m
& B. j; M0 P; t3 }
还有一个用于测试这段代码的test.asp
& B$ Y& t, e3 V3 a6 L* ^. {有兴趣的自己搭建个IIS测试下6 \  D1 _' v- f' a. x/ L
<!--#INCLUDE FILE="RSA.asp"--> ; y4 W' B0 V: n, }; t9 M& b6 F
<%
5 w1 D+ ?2 }# b- A2 ^/ t2 }' mfunction Encryptstr(Message) 3 r" g: g, F: ~0 W: |6 x  D( m& W# ?9 Y4 y
Dim LngKeyE   t+ t8 P- k) U; d
Dim LngKeyD
* w' r# a2 G! J, q" nDim LngKeyN + h# _+ i/ _! i/ N0 D
Dim StrMessage
+ j( n% Y, D9 x# i0 R7 p: S5 A  aDim ObjRSA
* L& D+ s) K; m, `LngKeyE = "32823" . O# `( |/ W7 R" ]
LngKeyD = "20643"
5 D1 V2 ^  n8 k) V, q1 s$ }LngKeyN = "29893" % b( _5 t; ~5 f2 q& l
StrMessage = Message
1 ?7 C- o- G4 ~( S. B) _Set ObjRSA = New clsRSA # ~- P! b& U$ K' J; `- T' e  z
ObjRSA.PublicKey = LngKeyE
& Z% |  _/ j. ?4 gObjRSA.Modulus = LngKeyN ) {8 R0 u  Y- j( S% \: e
Encryptstr = ObjRSA.Encode(StrMessage) * u6 x0 s( }$ P% z( I
Set ObjRSA = Nothing
9 b* L1 t/ q1 L% Q) O2 zend function * Y" c* ~$ n( E1 e+ u
function decryptstr(Message)
* w9 Q$ o, w- @3 `) NDim LngKeyE
' E# e8 i* i' o9 H% K* g  CDim LngKeyD ! a6 v# y# l! Q/ l/ I# X
Dim LngKeyN
1 d5 m  U9 B5 }( g: U4 fDim StrMessage
* M2 R; c0 o6 P# [8 }: T0 uDim ObjRSA
+ I; \" U( l: k. j/ R: oLngKeyE = "32823"
. d+ M$ o) q( }/ [/ ALngKeyD = "20643" $ ~, x  r; C# K* ?
LngKeyN = "29893"
) [$ w& q) z" |8 D) b% V. g: SStrMessage = Message
9 D' @1 S* O$ l: f) P' H( TSet ObjRSA = New clsRSA
; A8 }" l& q9 R: x8 Q7 v# E: DObjRSA.PrivateKey =LngKeyD $ l/ m' ]  u. l/ @8 d0 l
ObjRSA.Modulus=LngKeyN $ b2 W) D. K, l  n' v! H
decryptstr=ObjRSA.Decode(StrMessage)   I$ M5 L3 Z: C! A0 ~
Set ObjRSA = Nothing
! z) q3 J- h" X4 D3 B. S. d) o) eend function
& o9 y, ~+ h  k' K0 Bdim last,first
8 {: j% a# m- v" o% |* rfirst="!@#$%^&*()"
% C: y1 p! T' a' m2 m( e& U1 |* }Response.Write "加密前为:"&first
$ p' h8 X: Y3 g' G5 S' Elast=Encryptstr(first) - x% ~+ @" m( c, ~( I$ ?: k
Response.Write "加密后为"&last 3 }+ D' |/ f" @
Response.Write "解密后为" &decryptstr(last) + x- r# ~+ n  _: G2 o' o# i
%> ==============================================+ ]: c8 a/ @( L3 @5 `* e
剩下的就是字符的对照表了8 H, g5 L/ O4 s6 g8 Q$ k
===================字符集================
2 a9 r" n; d+ E; o7 J1_____6EBB
# v. d( F  M3 z2_____5C1F; M, N8 h' M5 h6 I
3_____4D752 H. [+ m  v- L, R" Y3 j7 r
4_____26CC
: N5 f; y$ c4 h8 V# x8 U5_____4F88, {4 I6 M! u  C1 U$ h5 E4 d2 _$ J
6_____3F4E" E3 t: X, n9 g5 {
7_____0A9D# \" t& {; W/ J( z5 k6 N4 C/ `
8_____1A1C
$ L2 J( [# X& }9_____6D200 n1 x/ R) O8 ^' ~- b5 T4 O% f
0_____1089
) J7 Z- {5 j' O" \- ^$ {a_____0F3E( s3 N+ V/ D* O5 m/ @7 W* [
b_____3159
( H0 Y* a/ \& F. ac_____3517$ W6 L; Z, C9 b
d_____419C8 U9 k  K5 {9 e$ G) N5 O1 r3 K
e_____615C
% Q) g) q5 i- ?f_____556F
* R0 I, L! F# n' K0 p3 }g_____2B7F
. Q% q5 e) Y# ^6 @h_____0F9C2 z! q) P% Z6 m" ?! C3 l
i_____00FA
6 W7 [3 _: u6 Pj_____5A50" H9 d5 Q- N9 N% C2 x* A
k_____2850# J& D+ h5 P$ I  \" `
l_____3E7B% F/ H) K( v$ L) P% M
m_____71C5
, _1 Y+ L1 r3 w6 b1 c/ `7 Bn_____1FC8
! B3 M5 }+ w8 m6 Lo_____74C1
' h- f, E/ @& W3 g/ zp_____5FB8
% e& Y# J7 ]9 Jq_____6085
" W$ F- A( j3 H* Y% yr_____3AC4& }* b2 [% @: z/ p, n$ ~- ^7 A. g+ G
s_____2F50
* [' k( {+ L2 s1 kt_____36F8$ P' V) Z; j6 `) R' B$ H
u_____7010
/ p/ C, b% c4 o3 T9 V  o- ~  L1 lv_____0B422 |: {6 ^3 p2 ^
w_____1C7A
) o2 ?. O9 T4 D/ @9 Qx_____16F8/ G/ @& e# F. Y) f0 f
y_____2EE7
! R  a: O- L1 \z_____5CF3
( x3 k) P; G# o5 t!_____62330 o. X8 b: K& Z4 t, C8 L
@_____3A45
' N0 z( u8 E' E$ Z" R+ D) r, Y#_____2291
& U/ F+ I# R0 g, ]. k7 ~! e1 O$_____5D5C" o& w# j# h4 ?- o
%_____09B96 |! |: q& Q! j( I2 _
^_____43EA" G! [/ ^* s: w; f3 }  h
&_____62B9" S5 X* x0 a. V  O6 U
*_____6301
& @& C" a* T$ e7 E& |! o7 `7 B, H(_____4659
& ?* [. L5 Y: ~; L3 Q5 F)_____5C82

鱼儿无心

收藏了。。。。。。。。