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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
0 Q2 U1 i7 D0 i, m5 b) t& Z( N) C原始出处：http://www.3ast.com.cm
! v6 t3 p, W4 J$ ~( G4 r9 g! h+ }
看不懂的直接绕过
& B7 I8 O  v; L加密前为:hwy123456
8 P- |# n/ f7 J3 E  f) _' j, r: C加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
$ @6 _  `( j5 e, x7 V
, H% W' x; ]! t- M* m! w# j  p============================================
. o. G) O9 z( V上面是当时自己校内的心情。现在已经解破出来了，分享给大家, N2 W9 x# B' K& W7 j1 K9 L
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
: Z0 z5 \" y$ o6 S3 ~' g& K以下是RSA算法文件9 D4 n3 _* J' h9 X1 b7 H9 h
: e% A+ C, T- }' Y: L
文件名RSA.ASP
8 p/ P2 X5 z1 O8 N4 ]===============================================
- [6 Q$ }# u0 ~1 _8 Y* _+ b<%
" ?, p# k7 K& \: b  KClass clsRSA 0 |, ?0 \8 ~4 _/ {0 a8 f2 S
Public PrivateKey 3 z6 X3 h) |( C$ a$ Y3 x! d
Public PublicKey
" B, M0 {% x% z! \% PPublic Modulus
2 w4 z3 i- ?* bPublic Function Crypt(pLngMessage, pLngKey)   P  ~& T( [. r- }4 M! j. S
On Error Resume Next
9 P% s" S3 T# V- SDim lLngMod 2 }% z  U( e6 s! q! x
Dim lLngResult
, g0 D" _8 z: L; ]$ M2 F2 p7 zDim lLngIndex
; G  ^3 [1 U3 B; U9 p- x% o. uIf pLngKey Mod 2 = 0 Then
1 D: ]' J" d# G- ?! h8 }* klLngResult = 1 9 R; J  H8 k; p7 H
For lLngIndex = 1 To pLngKey / 2 7 {# m6 Y$ O5 T9 c# f) O
lLngMod = (pLngMessage ^ 2) Mod Modulus
2 M. n* \- F2 Z9 R1 E' Mod may error on key generation ! w' q) F- ]8 `8 x+ |
lLngResult = (lLngMod * lLngResult) Mod Modulus 4 Z' n* |6 R. f1 P  ~  N5 A
If Err Then Exit Function 7 A; k, Q+ C$ A9 F+ Y% @* `
Next
7 ]1 p7 U& J1 H1 }" p" [! Y* [Else
0 H8 ~' y% N7 @9 k# llLngResult = pLngMessage   G/ n% B" x7 a) `3 [6 Q
For lLngIndex = 1 To pLngKey / 2
3 G, ^$ z3 W; Z* a: B% Z) x- H7 H/ UlLngMod = (pLngMessage ^ 2) Mod Modulus
' K/ E. m5 F  QOn Error Resume Next
6 G# g$ u2 \& w/ P; D" F- A' Mod may error on key generation * T6 \! H( D7 Y7 v3 d- @
lLngResult = (lLngMod * lLngResult) Mod Modulus
- ?2 h7 X8 ?* W2 `If Err Then Exit Function ) O/ e! x" c( t' d
Next   x2 }1 C9 A. w9 C; `. c
End If
" F0 b0 {0 u* k5 x' sCrypt = lLngResult
: G" s9 Z4 ]# ?8 wEnd Function
2 N. U8 I* [8 i) W: I1 q% Z( n; N9 s9 k: Y0 `2 n2 k/ T! p
Public Function Encode(ByVal pStrMessage) * C2 y2 g( C' ^7 n+ [+ T
Dim lLngIndex
' x* X1 d" Z& C1 {' ]! ^$ `Dim lLngMaxIndex ) a3 F7 B+ i8 ~
Dim lBytAscii
! T' z1 s4 P, R8 a- H& A- m7 zDim lLngEncrypted
" C9 J5 ^6 w4 ^1 v4 z+ ilLngMaxIndex = Len(pStrMessage) 0 f8 g& \/ o1 i9 [6 M( O; V1 q0 s
If lLngMaxIndex = 0 Then Exit Function + x& I4 y4 |$ I) w* I
For lLngIndex = 1 To lLngMaxIndex
" W& t! d; k" a" {2 \lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) / a7 y7 l% N3 V# X9 q& k3 P
lLngEncrypted = Crypt(lBytAscii, PublicKey) ; D, G2 D, p/ g) [* D0 H' E
Encode = Encode & NumberToHex(lLngEncrypted, 4)
  y7 T4 `! t9 `) O& [. V  {Next
' {9 }2 j8 P$ c7 z' z' _" dEnd Function , f2 Z4 J. t# P6 X; J
Public Function Decode(ByVal pStrMessage)
/ a% S# ^/ o0 o# D! v5 ^Dim lBytAscii 9 M2 r: E, i) f" L  [
Dim lLngIndex 6 }* R; ]2 }0 `6 P2 k
Dim lLngMaxIndex 3 y. _. ^% O# f1 u
Dim lLngEncryptedData ' h( M* m; T% a# O8 O- {
Decode = "" ) s2 `/ p0 f, B* w' c' N5 F
lLngMaxIndex = Len(pStrMessage)
1 T+ X# j+ ]- `6 S$ i8 MFor lLngIndex = 1 To lLngMaxIndex Step 4
; c6 H( o+ `) f) q- ZlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
/ z" I2 G4 e7 ^, L! M) G. Z  plBytAscii = Crypt(lLngEncryptedData, PrivateKey) 5 P0 f: m& d  |6 [% E) Y0 u
Decode = Decode & Chr(lBytAscii)
& d& `) C0 m3 ~1 I* d5 l' V, WNext
& _! q- y* B( E4 T) CEnd Function
7 Z; l7 p9 R$ I* X4 a: b3 DPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) % e1 k/ r* A% ~3 \. T  q! _# B
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
! R% F' M9 w  lEnd Function
2 o. ^* ~/ c& Z5 d# [# oPrivate Function HexToNumber(ByRef pStrHex)
$ U$ W; @$ C: X4 fHexToNumber = CLng("&h" & pStrHex) * G, M& A& u: x( W/ D
End Function
9 ~! a1 f3 p! d0 F. j' p/ h4 hEnd Class
* H3 T4 T3 ?: A: X! Yfunction Encryptstr(Message) ; f" [; W( m8 Q% Z
Dim LngKeyE
% l$ }  r7 B0 t, }Dim LngKeyD , I) ]9 [" W# S! r& J1 c
Dim LngKeyN
4 d, }# |& d" PDim StrMessage 4 @/ O" i, k4 [: D( G- R
Dim ObjRSA
7 e% J. ]! b, x4 T0 VLngKeyE = "32823" 1 P' t! E# y' H% m- B* A+ a5 `* ?9 t3 @
LngKeyD = "20643"
+ `( ?. w" y2 j6 z* eLngKeyN = "29893"
7 x" h9 K7 ^* ~/ H; LStrMessage = Message . i* S9 L- P9 Q& s  A6 E( }9 c9 Y" L
Set ObjRSA = New clsRSA / l" p5 x$ s( ^/ U3 U7 v
ObjRSA.PublicKey = LngKeyE 6 X, M' ]8 d1 `' q) f8 m* |
ObjRSA.Modulus = LngKeyN / ^+ h2 G3 q* D' q  {1 V" w. o
Encryptstr = ObjRSA.Encode(StrMessage)
9 Z0 R9 r0 D. p; ~Set ObjRSA = Nothing
- C( j, |' W' {  ]* `+ o, Nend function
2 D2 Z' E9 [& K6 c; DFunction Decryptstr(Message)
# A0 j; ?+ S- [1 c, g/ |  qDim LngKeyE
# g7 N8 P  w, ?- `5 wDim LngKeyD
: X' F" W& {( NDim LngKeyN
) E$ X* Q9 ^0 D- q* cDim StrMessage
) m3 k$ n7 O# i  c! `3 g1 XDim ObjRSA
! P/ v, c: U* ]4 t- t2 O( eLngKeyE = "32823"
/ ~, L, ^1 ]9 o) ]LngKeyD = "20643"
; N/ X$ \4 y- p/ `1 qLngKeyN = "29893" 8 L( _$ a3 ?  [; C" c; @
StrMessage = Message
- Y+ g  l4 O% gSet ObjRSA = New clsRSA
7 b9 Q" j3 k3 m8 \% m- eObjRSA.PrivateKey =LngKeyD
5 n5 Z* X& k2 _  U5 iObjRSA.Modulus=LngKeyN
5 R# W$ d: |- R- D# R- ]; Y" A2 F8 hdecryptstr=ObjRSA.Decode(StrMessage)
: M  d( U& ]; g( K5 F0 V' bSet ObjRSA = Nothing 9 Q3 r( q" Y# E
end function
# l$ r9 Y5 |! n7 P, g4 X$ @%>. v* `2 F" z' A2 `. r
===============================================
# u. u* L. p  N4 X1 {4 u/ [6 z6 H/ Q' g
还有一个用于测试这段代码的test.asp
8 f- r6 T: y  B/ y) K" y有兴趣的自己搭建个IIS测试下
: Z. R% p4 d7 S) A! }<!--#INCLUDE FILE="RSA.asp"-->
, E* m2 }: R8 O+ p: D3 p<%! u: g9 Z- w1 d; L$ w& |' L9 @
function Encryptstr(Message) 9 n: ^9 p4 s: h5 p% _) B
Dim LngKeyE 1 f8 u- t1 e$ q0 X
Dim LngKeyD 1 c: K. n2 q5 v
Dim LngKeyN , |% k' X( w3 K) H. x3 a& x7 E
Dim StrMessage ! @; [6 w: \3 o9 k2 B  n2 i7 Y
Dim ObjRSA
* b1 _: m6 y1 c$ x" ULngKeyE = "32823" ! F8 c/ [. G) C  n' J" R& M" i, d
LngKeyD = "20643" " W! Z- a/ n" o0 L% h( q
LngKeyN = "29893"
/ D  ?+ P9 m2 C0 P: B( Z1 ?StrMessage = Message
, n3 N2 x1 y6 l5 ?Set ObjRSA = New clsRSA 3 {! s* `- M0 B- J$ P
ObjRSA.PublicKey = LngKeyE
# k7 N' K0 Q' ]4 z( j) AObjRSA.Modulus = LngKeyN
: o& O! s4 M: T/ t. E+ [( aEncryptstr = ObjRSA.Encode(StrMessage) 9 c5 t0 n9 T8 ~" F9 a
Set ObjRSA = Nothing 8 i" F0 X0 F2 z& X( b' n9 `
end function
9 L# m( c' O$ i+ u( u+ R* @, ^function decryptstr(Message) . h6 |2 d, q6 J( n8 P# A
Dim LngKeyE & x- U& s; i: U8 L- B# g/ g& K
Dim LngKeyD
- U. w% V# [9 x; f7 BDim LngKeyN 5 c; W! A& N; I( n: n: y. A
Dim StrMessage # {7 i2 }5 l+ t
Dim ObjRSA , O# }) ]1 d: p+ T
LngKeyE = "32823"
  n+ B$ O  Z) b% O; }LngKeyD = "20643" 0 x+ T% {. q; I
LngKeyN = "29893" ) i  A9 T' \. W) B
StrMessage = Message
4 J& V, W* X! f) A: o2 e4 WSet ObjRSA = New clsRSA
% h. @2 H6 ~; LObjRSA.PrivateKey =LngKeyD
# D/ F8 F3 x* K& ^9 GObjRSA.Modulus=LngKeyN 3 b. G- O0 a5 G4 ?$ z8 \
decryptstr=ObjRSA.Decode(StrMessage)
2 t2 c2 o# t1 O/ p( |Set ObjRSA = Nothing 1 P4 g+ D2 e6 V* y
end function & f% T0 y- ?8 g: }% h+ l2 x
dim last,first 3 p8 X- S2 o, W, X0 g
first="!@#$%^&*()" ! R( N$ D0 v* o0 e0 q' p. X
Response.Write "加密前为:"&first 6 I2 i* t& X, Z' m  U; S$ ^
last=Encryptstr(first) 3 Q$ Q+ @' A, o% u8 C% S" C
Response.Write "加密后为"&last ) \$ u$ a8 _7 a8 b
Response.Write "解密后为" &decryptstr(last)
0 p9 V+ g% v! i; O( N%> ==============================================9 ~) h* t  w5 r$ I! e
剩下的就是字符的对照表了
) U: j9 C+ C- `" Q) e===================字符集================3 `6 {0 F* B, u* Z, b7 c4 z4 q
1_____6EBB
, N3 A& J# r& s, q8 b2_____5C1F' m' }9 `: ~: d/ O$ U/ ^1 A1 U
3_____4D75
7 o: l2 C& R! Z( u" A4_____26CC
  N0 F$ G5 g4 w) J( N5_____4F88  _" Q6 x; N1 H+ ~, F# i
6_____3F4E3 Y8 q! P" Z0 c4 O; I
7_____0A9D
) w+ |! N  D+ o) o8_____1A1C
; U) _% C  l% E9_____6D208 K3 I4 T) }! D7 R
0_____10893 r) ]/ @6 E) N3 ^
a_____0F3E9 B4 G3 I0 c4 O3 V+ C
b_____3159
0 u' |. r- R, [& B* \* hc_____3517
1 N/ l+ ]6 y. j/ \3 i2 ?d_____419C3 N- o- E4 X7 R' O1 T
e_____615C
1 U$ ]% c4 B2 C7 i; z4 `: D4 O: l5 ef_____556F5 ?8 ?# w( ]  E/ ]0 g3 B3 ]# S
g_____2B7F6 Z7 s. k! R# d$ r+ O5 ]6 [7 f% t, C
h_____0F9C" j: p! H  L. p2 g# S6 D+ I
i_____00FA4 y& }$ p& L9 E2 b# Q9 J
j_____5A50, v+ o4 U% K! v$ m
k_____2850
0 d+ Z) f/ Y; m# B+ U3 H, v0 kl_____3E7B  r, j" o9 T/ ]" i# i+ k! `0 J7 s
m_____71C52 s. K8 t  L) T4 t" L' ^% M" x
n_____1FC8' P4 Z2 C# z& E. W
o_____74C1
2 L. Q: F& O$ i" g, C/ ]p_____5FB8& B+ M0 b6 Z7 t1 Q, s
q_____6085
. o# }0 u1 G% V2 f+ r" h& or_____3AC4
! p6 X2 y1 a4 E+ }s_____2F506 O% M3 I8 M+ `" j' b) M
t_____36F8
; Z" \+ ?& J/ l; R$ G7 s: R, Mu_____7010
+ N; V% I( x+ j/ ~0 D# z- wv_____0B42
, ^9 c9 i. u+ n, \7 }0 c- qw_____1C7A
! ]1 d4 t- `1 \x_____16F8
3 j  n, I* W! y$ \; G; ?0 \9 My_____2EE7! m4 G# I9 e, S( e
z_____5CF3: f! V6 H. b" A$ B
!_____6233$ }: J0 X/ D. A: b3 o
@_____3A45! d) z) x. I0 I+ z. R
#_____2291% C5 ]; n# R( y7 C
$_____5D5C  R& w7 b) K$ d1 Z8 o
%_____09B9( h+ \( Y% |: ~9 K3 L9 ~- ?2 x
^_____43EA, o9 Z  g! k$ l2 p$ r- |5 L' I
&_____62B9" c: x5 P8 C9 \7 ^
*_____6301/ I6 `3 X  r* S+ g
(_____4659
0 S) |. i& j6 t* }+ C( l)_____5C82

鱼儿无心

收藏了。。。。。。。。