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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
- ~0 c& R8 S  g2 l; I! Y原始出处：http://www.3ast.com.cm
" v& H7 H, c  N+ C. C" |9 B* k0 X
看不懂的直接绕过
! [$ N! _+ w3 C' {5 n0 N( e加密前为:hwy123456( L$ G* r- R# K' u3 l* d) Z7 V
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
3 r$ m5 J' Y# I* G4 D. H3 A( K0 j% u% P: {+ }* w% g
============================================
0 {0 [" K0 g/ G' _! t' Z上面是当时自己校内的心情。现在已经解破出来了，分享给大家- w0 [3 p& V4 b8 \& r5 W# G3 ]
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法. I! a) O; ?" {/ X
以下是RSA算法文件+ g/ l  C. A5 q: t
6 H" h% q- t: w/ `5 r6 X6 u  r
文件名RSA.ASP
$ v9 M' }8 p0 H===============================================
0 |' Y4 e. t% l# S" m% k* R<% . o4 D, b7 A* a( v" t4 @. Y" x
Class clsRSA
/ ~, U: d5 O6 y, a3 Y3 u0 ?8 ^Public PrivateKey 9 V- X0 W! Y/ d2 V% }) D1 X  H
Public PublicKey ( P# S- P. X" A1 h5 q! \  s) B; j. \& e
Public Modulus
) G0 ?0 z/ l% H0 S/ KPublic Function Crypt(pLngMessage, pLngKey)
6 ]" @+ N% u8 J6 L* cOn Error Resume Next 8 q7 }% h7 }3 O( J3 [) @
Dim lLngMod
  q, f1 {. I* }: f% z# ?5 RDim lLngResult
* x; i" t1 ^# X; t2 M! _% p8 rDim lLngIndex
5 |. m. i1 V4 D+ F. U( i& x; qIf pLngKey Mod 2 = 0 Then
( B$ a+ M, G/ h. \6 ]& N$ VlLngResult = 1
  \7 i$ A" g6 I! c% Y6 ~3 TFor lLngIndex = 1 To pLngKey / 2
3 d+ l  z9 d: A' R5 Q% `2 _lLngMod = (pLngMessage ^ 2) Mod Modulus 5 U0 P6 @) W2 B# N8 P; D
' Mod may error on key generation % l  D: k/ ?* _* K. n1 ~& G. [$ F
lLngResult = (lLngMod * lLngResult) Mod Modulus
1 h* r3 X! T& m' MIf Err Then Exit Function
) K+ v# N$ W1 e  f, X2 v, M! ]Next * I% W+ N! N/ @" Y
Else
2 L- B% Z' ]8 j3 z* _6 ~lLngResult = pLngMessage 5 L* v) B- F0 D8 t5 ^
For lLngIndex = 1 To pLngKey / 2 4 {& n6 O1 t0 U, R
lLngMod = (pLngMessage ^ 2) Mod Modulus
5 x8 p/ y2 U& k4 KOn Error Resume Next & ]; h# V0 W; m5 f
' Mod may error on key generation
( L8 x$ [: N- a$ s* i# JlLngResult = (lLngMod * lLngResult) Mod Modulus % u. _  N6 N0 f" R
If Err Then Exit Function - M2 b+ G% g/ U- a  F
Next ; a( S: w% D+ b% Y# F  _8 T  b
End If # x9 b7 ~: k8 t
Crypt = lLngResult % y' R: e/ m# \+ _" w. l- S
End Function
# |- S' i- {9 N6 w/ @/ T/ R+ i: _4 ]
. r* j4 u9 y! W' g& wPublic Function Encode(ByVal pStrMessage)
" f! I& l4 d* C7 QDim lLngIndex : c; D" Z0 r4 |/ W3 U
Dim lLngMaxIndex ! S! h6 y, J  a: z! p7 @
Dim lBytAscii
* e1 S3 Q4 U" y8 [0 h4 R, c3 {Dim lLngEncrypted 0 h5 E. R0 |/ n2 m, w- t/ j
lLngMaxIndex = Len(pStrMessage)
. n* E7 N: |# D( c. D8 ?If lLngMaxIndex = 0 Then Exit Function
9 q! s: b$ z9 d( L% Z3 F; ~1 G/ j: O6 JFor lLngIndex = 1 To lLngMaxIndex - |0 Y4 e* I) c  O) f, i( u
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 8 x% h# }: C8 O8 m7 w
lLngEncrypted = Crypt(lBytAscii, PublicKey)
& T# J3 Z: c/ U7 z4 \% ~" X+ h5 OEncode = Encode & NumberToHex(lLngEncrypted, 4) 7 q- U9 o' q, X5 F4 x) M% f/ ]5 [- w
Next 7 h8 G" o# Q7 x+ D0 E. M8 z4 Z% `, C. Z
End Function
. \2 G/ H3 ~3 ]* s* q' oPublic Function Decode(ByVal pStrMessage) + s$ h+ R- O% ?5 r- G/ Q
Dim lBytAscii . N; V! ~; Q! m$ u
Dim lLngIndex
" h% c% C! e" a* l$ k7 |" @Dim lLngMaxIndex " ^  Q$ V+ w# h
Dim lLngEncryptedData & W* H8 _9 c5 J( Q+ s% W' u5 @3 L: m
Decode = ""
# m0 ?! p! I, H6 [lLngMaxIndex = Len(pStrMessage) ! \" C' S5 b" |1 U  f5 C! ?
For lLngIndex = 1 To lLngMaxIndex Step 4
( H7 m- {# `/ h7 S$ [lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))   W: h/ d2 f3 ^  O$ i& d7 }
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 7 p7 f: y4 L  A! `. D7 ]
Decode = Decode & Chr(lBytAscii) - K* d9 s8 A  E, D# w1 f
Next
- Q& }+ Z, T1 m9 N; ~: NEnd Function
# o4 ]! }8 _4 z8 ~/ A) sPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) # J+ V5 R+ [" i( J
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ! U8 z& e# U3 l' X( c& i. N/ |, `9 d
End Function
$ c( W* f4 k1 _; dPrivate Function HexToNumber(ByRef pStrHex) 6 J8 O5 n6 O7 q4 t# @) j
HexToNumber = CLng("&h" & pStrHex) , a8 v) d7 `9 O1 x0 u9 X0 D7 p9 \
End Function
4 I. L* K& K. R: Q* f, X4 IEnd Class
* i& Z2 z: v3 N& D% S8 m2 Ffunction Encryptstr(Message) # j/ W- b3 g6 u* o% S; Q
Dim LngKeyE
3 Y+ u+ f- d! a$ g6 D2 NDim LngKeyD / N3 C' {1 \* u& a3 z6 q1 T7 W! J
Dim LngKeyN
% T+ ~2 j0 a5 n  R* d0 @& i) MDim StrMessage
* y( g- N& z8 @3 \. k  TDim ObjRSA
  g% J- R$ T' G; @' ?; Z+ Q! rLngKeyE = "32823"
. G: x  r# k" f1 O' ^7 |8 P; {LngKeyD = "20643" 3 B9 w; f& o1 s: g) v: S
LngKeyN = "29893"
( d/ s- I4 Y1 l# c* _( CStrMessage = Message
' K) x/ |& ^- QSet ObjRSA = New clsRSA
. z9 M" V. L! J6 x3 N  p+ oObjRSA.PublicKey = LngKeyE
! k- F$ n7 {1 |8 @) ]6 `ObjRSA.Modulus = LngKeyN
7 i( b' m9 g8 A% EEncryptstr = ObjRSA.Encode(StrMessage) $ t+ y3 ~; s  D4 M' n% I
Set ObjRSA = Nothing 7 R9 y4 ~5 i; s* Y" D+ R6 J2 }
end function7 ?* {9 W6 {- r
Function Decryptstr(Message) 1 z$ p9 |$ z6 Y1 i
Dim LngKeyE $ {/ I7 H( a8 Q
Dim LngKeyD
" q& r+ E* G3 C' s0 ^Dim LngKeyN
+ m- M4 x  v; a& z* C$ [Dim StrMessage & L2 e+ }, Z7 `9 z- y
Dim ObjRSA 5 P2 q' k) {* K- {% o4 P7 U
LngKeyE = "32823"
6 W# D2 V1 @! @) rLngKeyD = "20643" 6 q) K* V( r% T) P( P
LngKeyN = "29893"
9 j9 k6 L4 Y5 G  P' {StrMessage = Message
# i& s" i3 e+ c% q0 ISet ObjRSA = New clsRSA
9 ]$ x* w! u# v5 C# h3 JObjRSA.PrivateKey =LngKeyD ( o: T5 _# b$ v
ObjRSA.Modulus=LngKeyN ) d% A, l% H; m, w& E  N7 i) a
decryptstr=ObjRSA.Decode(StrMessage) 0 b, j% o3 H6 I$ o2 v, g
Set ObjRSA = Nothing
6 x& t) V/ z9 n; X' b/ p! ]end function 5 X: V, Z' y/ D1 @) N9 e) ?! I
%>2 G' I- D' G+ f8 W
===============================================: y. A/ |- X, z3 F- F. n1 D( ~

' B: e+ K  e0 t* P! a: _6 L# x, F还有一个用于测试这段代码的test.asp' \; A% \5 c" i* t( V
有兴趣的自己搭建个IIS测试下
0 `0 y& ]+ `# D% I, {/ R<!--#INCLUDE FILE="RSA.asp"--> 6 }  K$ {, n" |2 L6 Z+ r
<%
6 [/ l& O* C5 B1 C# Wfunction Encryptstr(Message)
. G7 w& s. K1 d7 u2 D$ vDim LngKeyE
/ Y0 q+ g0 n# P; x+ ^4 m6 FDim LngKeyD ! n5 B7 l2 i1 [
Dim LngKeyN
4 M' _: q  ^( {' }" T' hDim StrMessage
( ^# J& `+ j. g- J0 c. m4 c9 ]# YDim ObjRSA
  M  N6 J2 J) p3 a. R! C" b( yLngKeyE = "32823"
6 R' \% `2 K9 T; J3 R6 FLngKeyD = "20643" # T) c4 X* k/ ^: W0 r
LngKeyN = "29893"
6 }- b  u% p3 A+ B0 f) U4 F4 oStrMessage = Message
* b5 w! Q* L4 G+ e8 jSet ObjRSA = New clsRSA , C# O7 t# ~& l
ObjRSA.PublicKey = LngKeyE 8 ?0 e  ^3 b# m- e8 s
ObjRSA.Modulus = LngKeyN
7 j* x' T# P2 h# V; f5 xEncryptstr = ObjRSA.Encode(StrMessage)
3 D" g3 p. j. M! jSet ObjRSA = Nothing
1 s+ o) O: }+ D3 ~end function * D! W  q% Q2 g9 G4 j0 v
function decryptstr(Message)
7 w) |2 I! S8 v0 oDim LngKeyE   e/ i( G1 H/ J; m& ]
Dim LngKeyD
% w1 m1 T5 }, U: ^5 ~. oDim LngKeyN
% U% U; A$ z# H! _. ]! j9 KDim StrMessage * X8 F3 a; a" Q/ D6 Y2 k
Dim ObjRSA
' C& X/ w% [- `; y3 ELngKeyE = "32823" 5 D5 M3 s- v5 N/ i8 B) i/ W
LngKeyD = "20643"
1 Z' k) b( u. yLngKeyN = "29893" & m# r  J4 `; d: c
StrMessage = Message
7 c- x6 e1 F7 r3 y( TSet ObjRSA = New clsRSA 1 y  @6 i4 R1 B1 u
ObjRSA.PrivateKey =LngKeyD ' [6 x% L: ?) \$ K( T/ q' l
ObjRSA.Modulus=LngKeyN
, }! P, G7 `5 k2 Sdecryptstr=ObjRSA.Decode(StrMessage)
$ z' L" [% E- ?/ g9 k# |* YSet ObjRSA = Nothing & I# r$ m6 W+ q  _$ y# g
end function ) q8 N% K3 V8 P+ @; N
dim last,first ( w0 y; E& a7 h
first="!@#$%^&*()" 5 q! L) D1 j( F8 b' S
Response.Write "加密前为:"&first 3 ?% i$ `: ^! [- ]
last=Encryptstr(first)
1 f0 n5 o% b/ X9 }+ e/ j: f& ]Response.Write "加密后为"&last 6 U& {, ^1 J  M% f
Response.Write "解密后为" &decryptstr(last)
3 c6 I& \; K7 L. T. }4 k%> ==============================================
/ B0 n# d$ X: |  J. k2 F$ o- |剩下的就是字符的对照表了
7 E, \7 W; u1 [: _7 m  B===================字符集================
# Q/ d# u. h$ h8 q0 G! _1_____6EBB
  C. V9 S) \- K/ Q" j3 z/ e; K2_____5C1F
" ?# A- w/ q+ ]$ U3_____4D75
0 D  C4 M7 d* }( K4_____26CC
: y) t! q3 j, O% k( F1 R, x! T5_____4F88
5 R7 |5 e+ P. a' \6_____3F4E9 M9 {' K% E& `0 `1 Q' |7 R
7_____0A9D
2 P2 S" j( L0 {8_____1A1C
- ~" Q3 f) q2 l* ^4 y9_____6D20
& x# G6 v$ P9 }& H2 H) L0_____1089
# W2 t0 r$ U2 P5 e) i0 O! fa_____0F3E
) b2 J  b1 O% G5 Ib_____3159: W# R# o0 K! F5 v
c_____35177 n& g0 i  k: Q: J- q) i6 k
d_____419C! c1 M0 F& V6 A" w* I
e_____615C' H7 D: Q- v$ B( ^! g% H
f_____556F
6 O# R3 S; ?1 mg_____2B7F
3 @( Q, A7 E  fh_____0F9C; T7 L, M! H' o/ E; O; u
i_____00FA. V3 {3 T4 G: P! p& @1 ~
j_____5A509 \9 M' g: ^  L1 I/ S% A
k_____2850+ @# C2 J2 M# ~8 ]; A1 ~) ]
l_____3E7B8 F: V) U: W! ?8 V: M
m_____71C5% p( ~. I& i- i* l$ t7 R
n_____1FC8- K5 s+ C' |6 T* R% w
o_____74C1
3 h9 [, Y: O/ a! c1 D8 \  m6 p. {7 _p_____5FB8
/ T& q' ?/ k  R, Y  e1 Y- J8 s  gq_____6085! D" h; {- [0 x9 F$ ?8 v; a( W& d
r_____3AC4
" _9 P4 f& w6 x! _1 @) Us_____2F50
! ~. ~3 D' z' i4 `( m9 zt_____36F8( R0 j: e* i: R5 h: G  W
u_____7010
& Z- Y8 s0 T) k% R3 Y. Iv_____0B42
4 a; W# H% c' u+ P( Y. sw_____1C7A6 U( o2 t# x% J% c
x_____16F8
: `( `4 a9 L+ h3 o# A' u; ^( i4 ^  xy_____2EE7! ]2 f6 x9 ?! w( o+ \
z_____5CF3! `5 E" @9 y7 S* J9 f: y
!_____6233" B, K6 U$ u0 Q" F
@_____3A45
) D$ `9 q1 j* q" Q#_____2291
6 @. E4 s8 A9 w/ g6 |( _$_____5D5C; b8 @2 g! @6 }# M/ j0 K
%_____09B9: C+ ]4 c# g& A! v
^_____43EA# y  m" ?5 c' ^& Y
&_____62B9
# Z& Q9 Q) \$ Z0 ?$ |*_____63016 U; P+ T: Y7 ]0 o9 U$ T; R0 |
(_____4659
4 a3 z1 L8 `" A( ]; C' n)_____5C82

鱼儿无心

收藏了。。。。。。。。