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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm7 `' z. q5 H2 Y; {
原始出处：http://www.3ast.com.cm: k2 D1 K+ {, F7 L

. K! z- ]6 A3 w) k8 t1 G. o看不懂的直接绕过" k+ H- F0 u5 F6 q
加密前为:hwy1234567 Z. q! M! @2 W& Y
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E5 n* W; @( Q$ w1 L
& j, i) p1 s% Y! M1 c6 W
============================================
8 i6 [0 Z* G! }$ d上面是当时自己校内的心情。现在已经解破出来了，分享给大家* x3 x1 r( ?1 o4 D
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法, z" F4 j$ [. h, \" R
以下是RSA算法文件2 ?  ~1 E, }: _1 W( L# ~: X

. E5 t. K  c7 }- ~( w文件名RSA.ASP& N5 O& S* b0 y
===============================================
2 F4 P+ Z" _  o: {<%
+ T0 t& G' n, Z0 L9 s: q. rClass clsRSA - N6 M! J9 k3 x5 E* g
Public PrivateKey
6 h& z2 Q+ c$ ~9 v& [. V7 ^Public PublicKey ! U$ G" r' r1 C) O! t
Public Modulus 1 Y8 U% F1 j+ \: k, o
Public Function Crypt(pLngMessage, pLngKey) - r: J' Z2 R3 e7 f& W
On Error Resume Next
2 _; d* m# R1 u+ m; c" PDim lLngMod
# q7 r1 B& ?) W. I- PDim lLngResult
- r/ K+ ?* Z/ L( f* ?$ t$ j* k& n( cDim lLngIndex 2 n# O# U8 y7 h  g4 v3 J  ~
If pLngKey Mod 2 = 0 Then
" `/ W, k, f/ T. S3 s% [lLngResult = 1 ( V! U; I1 ?- N5 h% D
For lLngIndex = 1 To pLngKey / 2
) Q( S" S& |# j6 I4 D8 alLngMod = (pLngMessage ^ 2) Mod Modulus % n  [# E, _% ?! `- L
' Mod may error on key generation ; R. i  [2 w9 B& S. k" `4 I# l
lLngResult = (lLngMod * lLngResult) Mod Modulus 5 m3 Y2 a5 v( T* g7 ^; V! ?6 c+ F
If Err Then Exit Function 1 q& R8 }; I5 I/ P
Next 7 O- T. `1 U+ g7 B1 c& d
Else
6 [5 K: h0 ?2 _lLngResult = pLngMessage
; A8 B9 H3 A) {3 a& {3 b; iFor lLngIndex = 1 To pLngKey / 2
2 {) y2 `+ \0 v; z% g8 u, M; @lLngMod = (pLngMessage ^ 2) Mod Modulus
% X$ p: C% {1 _0 W6 b  COn Error Resume Next
# z. |, x* G9 Z1 o& c* o6 h' Mod may error on key generation 6 x) i2 q/ G$ e- c
lLngResult = (lLngMod * lLngResult) Mod Modulus
; b' W5 u& s+ |& q' T) [6 eIf Err Then Exit Function
* g: F! p: c, VNext
1 G6 a- T" l* q6 WEnd If
# M) s. [3 s) Q7 a5 {Crypt = lLngResult & g3 k+ r( G% R: y' s
End Function
, U1 N7 r, o6 K3 s# x  E6 c0 O* j2 B* s" A$ e
Public Function Encode(ByVal pStrMessage)
+ [9 h- l6 h; P: c8 t* U' NDim lLngIndex
. A: r+ b* ~% b, j. ?) u# jDim lLngMaxIndex 0 R5 H  u! y2 ?4 e
Dim lBytAscii
) }3 P" g) k6 d# K: C- ^: N, C# ^( ^Dim lLngEncrypted
* v9 {2 F8 H2 G  n; g: RlLngMaxIndex = Len(pStrMessage) ; g3 {  M* j, u  u. t. f
If lLngMaxIndex = 0 Then Exit Function 0 }& R! K* F3 \, j3 L8 p8 y
For lLngIndex = 1 To lLngMaxIndex ' o" Q4 F- J: |( |) ]
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ( V7 }2 a/ C6 ]' B1 {# u& Z7 b) L) {
lLngEncrypted = Crypt(lBytAscii, PublicKey)
; Y  b) ^' e) l$ D7 v/ IEncode = Encode & NumberToHex(lLngEncrypted, 4) 8 m( a) ^5 f  s$ C
Next
) V2 W5 @& j) j+ B: N- ]* XEnd Function ; b/ t" @) h/ {2 r, Z
Public Function Decode(ByVal pStrMessage)
6 s) b- _+ Y0 a9 Z2 Y; eDim lBytAscii
, B( C6 _; z- z- `! U/ k" IDim lLngIndex 6 H. P4 u& b# p) m; M$ W
Dim lLngMaxIndex ; l# k' U# K5 U- ]$ [$ X, X
Dim lLngEncryptedData 8 ?% B$ `) f' f+ B2 W9 {* K: p
Decode = ""
: C! f: y0 r2 P  R6 hlLngMaxIndex = Len(pStrMessage)
' w7 Y: V: q, w% v, w% s4 yFor lLngIndex = 1 To lLngMaxIndex Step 4
& @6 {* B/ _; JlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) / h' o+ q7 P0 m, n8 T
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
. {. I! i8 U6 ]# h9 yDecode = Decode & Chr(lBytAscii)
8 Q) C# @1 ^( y$ @) hNext ! Z$ a" N. K' n( R* ?. Q
End Function
: a# O( G5 m! h4 {Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 7 s0 u0 B1 k) f% N2 D1 x
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
; f) y5 w3 v4 VEnd Function 9 ~$ t: a$ A' V# W2 [. k
Private Function HexToNumber(ByRef pStrHex)
/ H; i, s& p  |/ ~0 a; A$ V$ ^! oHexToNumber = CLng("&h" & pStrHex) + z. @' I/ T6 ~/ ^9 b5 W
End Function
) c  ?3 ]+ ?6 s" cEnd Class $ ?6 |+ x* t1 N! s, L$ O, X8 A
function Encryptstr(Message) 5 v: L  L  F: o8 e# H/ I
Dim LngKeyE
3 B: k/ ~- i' BDim LngKeyD
3 E) e! n( _# G+ r3 W$ gDim LngKeyN % c+ `2 S8 v+ C! b3 ?# L
Dim StrMessage
: T0 M# a/ ~( E1 \' D8 }7 ?Dim ObjRSA # T! {9 M  g& N; V
LngKeyE = "32823" ! P, o: g/ Y" a3 o4 o
LngKeyD = "20643"
: R& r! r8 Z4 a" Q" U- P& nLngKeyN = "29893"
! |0 H2 Y$ O/ C7 c% K9 b5 T8 DStrMessage = Message 3 N0 D/ Q7 X1 w0 f* A
Set ObjRSA = New clsRSA 4 Y) ?8 a' ^4 s4 B) H. N
ObjRSA.PublicKey = LngKeyE 5 {/ d" o$ w2 |% u" i1 `' t' t
ObjRSA.Modulus = LngKeyN
' v, X: G& R: t- @, ^- xEncryptstr = ObjRSA.Encode(StrMessage)
7 w/ b' |  y/ OSet ObjRSA = Nothing # j) l; q% \1 c3 Z
end function
& ~2 c: D- B9 ^- }# J3 n: VFunction Decryptstr(Message)
6 N2 K1 {' Y# D7 MDim LngKeyE
8 |" Y4 \  R) R- }( g& wDim LngKeyD + i8 c: l  c8 [2 j  W6 D' F
Dim LngKeyN 3 D' E3 d: G) o2 B0 k
Dim StrMessage
8 X5 f# o. d$ t1 R# W7 Z6 p( jDim ObjRSA
" D4 K( g5 i8 S& |8 mLngKeyE = "32823" . c$ @4 }6 Y, A
LngKeyD = "20643" % U4 U4 K% b- N+ v
LngKeyN = "29893"
- i! m3 _& @$ A, P. H* GStrMessage = Message 0 J" ]$ l) ~' x
Set ObjRSA = New clsRSA
5 J8 q# W( X, @2 m" V' DObjRSA.PrivateKey =LngKeyD
7 f6 c9 ?& u8 z% FObjRSA.Modulus=LngKeyN
1 U% X  F- m0 l4 J$ Sdecryptstr=ObjRSA.Decode(StrMessage) # C0 l: t+ Y1 R6 Q0 R6 I
Set ObjRSA = Nothing 8 I9 L) M( [! I( ~
end function
& L; o$ x8 m9 s% f1 c# a2 X%>
4 ?& I' ~' ^3 h===============================================
( \9 l: |/ B6 _9 K2 @0 l' b" R0 p, B4 F# ^# r2 \4 N
还有一个用于测试这段代码的test.asp3 G& D1 B% D4 R
有兴趣的自己搭建个IIS测试下3 ]* z$ W) H* A* g1 R1 }
<!--#INCLUDE FILE="RSA.asp"--> ! e- D! I$ p) t4 q
<%! E* Z4 j+ c: u
function Encryptstr(Message) . w" L) T1 H8 M" |
Dim LngKeyE
% r7 {% B0 p( e8 N  PDim LngKeyD / d; s. T3 r0 `/ D( w' X) R
Dim LngKeyN . Q  i  b$ x- w
Dim StrMessage : g( Y! s6 F. a4 }9 p' @
Dim ObjRSA 9 ^3 x# b# E# i
LngKeyE = "32823"
- E" w2 s+ B/ D& z" Y0 xLngKeyD = "20643" " z, p  k; m" w" X5 f& I" K
LngKeyN = "29893"
$ X) a* w. ]/ b( p  k) L5 TStrMessage = Message * E! j. \, S  `6 ~- }
Set ObjRSA = New clsRSA
" k- \1 _1 E' T( [. Y' VObjRSA.PublicKey = LngKeyE ; T% }% H- ^% _9 ]+ q3 O1 J
ObjRSA.Modulus = LngKeyN 6 `* A; O7 I! s. e
Encryptstr = ObjRSA.Encode(StrMessage)
5 _/ o- Y9 m5 L3 oSet ObjRSA = Nothing % A% l9 T+ m( J
end function + }. R( ]2 w1 P
function decryptstr(Message)
  y  B3 N2 T; y' EDim LngKeyE ! F& }+ K$ q1 g
Dim LngKeyD 9 d. ]% r  E- |" E# E3 Z1 Q4 R
Dim LngKeyN 5 K! v; c+ K6 k; S
Dim StrMessage
) i' \9 D# e$ PDim ObjRSA
! m4 O* T+ m) p" j0 p/ `. XLngKeyE = "32823"
# p! A. M- Q2 g9 s9 e  G+ kLngKeyD = "20643" 5 F( G$ S! m2 c% k. q  X3 q5 `
LngKeyN = "29893" / \% k: G& M& L# E3 G
StrMessage = Message & E" b) k2 K8 |5 W
Set ObjRSA = New clsRSA
% j  r  q- q& L1 ~) l! a% xObjRSA.PrivateKey =LngKeyD
0 ~* c" c: ]8 q$ }6 y$ q0 g3 xObjRSA.Modulus=LngKeyN
$ i; v0 t, y' S# C) V" Tdecryptstr=ObjRSA.Decode(StrMessage)
# o5 Y' n/ s$ ^* @/ nSet ObjRSA = Nothing 7 q- C. I' Q& o/ V; m; ~6 p  w
end function
/ ]' I$ o0 q; q$ j+ k7 ~# kdim last,first
; v% c( G  i% _  v4 u7 M$ ufirst="!@#$%^&*()"
! {( H: v) A- o+ r3 @; aResponse.Write "加密前为:"&first 6 p4 P: i1 m1 Z$ t% B8 l* F2 ]
last=Encryptstr(first)
% M4 \  z* y' @0 a0 lResponse.Write "加密后为"&last " ^- {6 Q; O3 h  o
Response.Write "解密后为" &decryptstr(last) % n# ^! F, b# ?6 {0 h/ D  r
%> ==============================================* `9 Z+ L4 e* z7 F* Q- \
剩下的就是字符的对照表了
7 O  G' |6 q: |: E===================字符集================. Y/ p* H9 A' G8 x% i$ n
1_____6EBB. C/ Z5 j8 s4 t. h* G7 e3 g
2_____5C1F
( n4 p/ }" c7 [7 Q1 l3_____4D75
% _( B1 _$ n3 I5 R4_____26CC
0 C" W9 n, s/ D3 A5_____4F88
1 V; r0 M0 x0 u: W/ p5 b. G  J6_____3F4E
$ ]) x7 s8 J+ `  j+ b& r% `- O. u7_____0A9D
7 f) ]; m, ~* p( H. {% ]8_____1A1C- D' p9 _7 E0 }# p* P
9_____6D20
7 s- n) R4 t. G4 U0 n0_____10890 _. \/ ^5 L$ S3 D" `. c  }  O
a_____0F3E# P$ m5 ]# O5 \" t
b_____3159
5 |% O1 W" z* O, L! i( dc_____3517# \$ v, x0 u* r( I! d9 e
d_____419C6 t* a9 \" O7 S" R" j6 X
e_____615C# X  Q$ P& l/ t7 Z/ l
f_____556F
; U& ?2 i- v8 X  t. eg_____2B7F* V# g4 X* M) B4 z  n- q
h_____0F9C8 i$ k! b# k5 f: y" S' W
i_____00FA2 v7 @6 C& ~( \- d! }
j_____5A50
: m# q, d2 J: |$ mk_____28501 c: x/ O. o* E2 ~: w% ^, N$ c
l_____3E7B$ p+ ^/ K" T: K- K8 E
m_____71C5  _  G* H' ]! S! l
n_____1FC8
- T4 |0 i  U2 z; qo_____74C1$ G4 E- @1 X2 C
p_____5FB8: F% l% ^0 O1 b# i
q_____6085* w  M  B8 ?6 R, x4 k3 Z# |
r_____3AC4
2 r2 [, b' U  T$ v& B5 @s_____2F50
" T" j( R+ V% t# [4 m, j6 `t_____36F8
( [9 Q' p: v1 w* d+ K5 A; `u_____7010
. ^2 Y0 I9 h( x7 n8 J* Yv_____0B426 k& W* N2 X- ]
w_____1C7A$ q: W6 _7 X8 W/ w6 _6 |
x_____16F8& k* O, \! D- l" t" c
y_____2EE7. i# S& ?4 K7 z& B' h+ q
z_____5CF3' O9 H. _2 q0 J9 H$ F" F' ]" P. F9 |# U
!_____6233
! f4 Y, y" O( }- l- g) k6 M( W@_____3A45! Q1 \, w6 h4 a: N2 D6 ~
#_____22919 R1 r3 P. z( O/ k
$_____5D5C; G9 [) s! U. P7 f6 C
%_____09B9
& w3 a5 ^0 ^( {6 d& @^_____43EA" p0 p0 g9 P7 `. ^2 j% i
&_____62B9& G0 w! H: p, @, G
*_____6301
# i6 t: L8 M7 B$ n' t; A/ y5 @/ m(_____4659
+ Y/ B& q& ^0 g7 s6 d)_____5C82

鱼儿无心

收藏了。。。。。。。。