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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm0 s9 z4 {1 {2 ^
原始出处：http://www.3ast.com.cm
; g! H& ]7 m3 [6 }7 ?( ~$ v
$ o! a( w" y: L# Q) g看不懂的直接绕过: [1 z' P* y5 X. v
加密前为:hwy123456
  M& B; q8 P2 P' `2 s加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
+ d6 Q* f# b, U9 y6 E. x9 R/ c
1 Q: c4 L/ l1 ^! z1 `' Z5 e3 o============================================3 a. ]5 ]' l: p" C. s+ x' a
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
  g9 P  @( y" G0 p) B5 X也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
0 ?( {6 j! {" e+ ?* P以下是RSA算法文件+ ~8 O8 m& {2 q3 F

0 M, e: G) B: q1 b文件名RSA.ASP
" H$ W$ ^" e- ~. Y: P- K5 c! l===============================================) B- F  B; u5 j% t( N. p. w3 u7 N
<%
/ s) C, E: `4 D# k. H6 l: B' u$ jClass clsRSA
6 ~3 N4 w; Q7 V3 aPublic PrivateKey
; ^( H% l9 [( O& H3 a& E- X& X! |Public PublicKey
6 I# i- l/ b& [% Y% nPublic Modulus
) Q' r1 u! y/ S6 x$ \. y! I. hPublic Function Crypt(pLngMessage, pLngKey) 2 ^# ?* g5 C) c, v2 o+ n; K
On Error Resume Next
3 J2 X& `& {# e* C% NDim lLngMod ; q9 R* j+ S. s* ?( _
Dim lLngResult
$ u7 C5 i: _1 m, [+ iDim lLngIndex
$ F  f) I  {+ z' ^' E# FIf pLngKey Mod 2 = 0 Then
5 {5 ~+ W& V  d! ulLngResult = 1 $ Q0 E! q: Z! }: b. i
For lLngIndex = 1 To pLngKey / 2 ; f5 x0 M0 t3 S0 \6 P6 x4 i. B
lLngMod = (pLngMessage ^ 2) Mod Modulus # b& N7 b; ?8 H8 n$ Q
' Mod may error on key generation
% m. S  q. y9 j  @" Q# ElLngResult = (lLngMod * lLngResult) Mod Modulus % B6 _- X2 K" e! Z5 ?
If Err Then Exit Function   C2 ~9 i2 N& p, c9 d
Next   Y+ @7 F  J7 Q/ k9 q0 S
Else
2 y+ [" t& D5 W# Y9 c' SlLngResult = pLngMessage
3 J/ u9 R& S  e, A* f! W# ]For lLngIndex = 1 To pLngKey / 2 ' W8 f+ s7 t3 g  U7 y
lLngMod = (pLngMessage ^ 2) Mod Modulus
5 J# i) r7 ?1 n8 ]* |On Error Resume Next
5 ]5 O5 ^; B0 _7 a4 \% Z' Mod may error on key generation
( |8 J$ U& C( }% A! z. IlLngResult = (lLngMod * lLngResult) Mod Modulus . E/ {4 D' v( E, R( n& U; d
If Err Then Exit Function
. x+ n: [; j" k. G5 l) W, S$ INext
2 c- x, J! O4 U$ h- HEnd If 8 s# E7 O0 y2 ?! c5 Q; ]) Q( L
Crypt = lLngResult % R4 C5 r8 Y/ q  l$ @+ s
End Function2 v; P5 j4 |$ w  u. M/ ~

. U: w: `, F& L: u, p% d0 o$ W# rPublic Function Encode(ByVal pStrMessage) 6 f9 u* X, e' A2 z- q; Q
Dim lLngIndex % L6 X; I2 n0 s* s5 j+ h' q0 S' N
Dim lLngMaxIndex . O: r5 i' e: S4 o9 `
Dim lBytAscii ( u% T9 A" Q1 |# p
Dim lLngEncrypted
1 O9 d& K' f8 `& ElLngMaxIndex = Len(pStrMessage)
4 F- J" s3 m: C0 _- p+ fIf lLngMaxIndex = 0 Then Exit Function # M( k' z& b, X
For lLngIndex = 1 To lLngMaxIndex : l- r8 i- o+ `
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ! M0 S7 `8 ]5 a+ B- S2 t
lLngEncrypted = Crypt(lBytAscii, PublicKey)
! L' l# T9 A, F1 M% U0 ?; B  X! gEncode = Encode & NumberToHex(lLngEncrypted, 4) - Y' b/ W! I" ]7 R2 G$ k
Next
; A# |- _0 H2 b0 v- V+ Y4 ~End Function
% [$ j+ q" k+ Z% b8 V; k: _Public Function Decode(ByVal pStrMessage) 1 F7 E4 d9 ]. z4 U; U2 l) D
Dim lBytAscii ! ^% A3 S& H; B& S
Dim lLngIndex & i/ |% d: D- C+ t  p5 X7 U
Dim lLngMaxIndex
7 Z/ h  V1 i3 P+ o6 TDim lLngEncryptedData - @; f* ^. y+ C' x
Decode = "" $ d& N2 V+ V" Y# O) S
lLngMaxIndex = Len(pStrMessage) $ q( P) w) y5 V3 t; P  u
For lLngIndex = 1 To lLngMaxIndex Step 4 / e, [, l3 E; S- |! I* P
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
& o' }, x: a0 V+ N7 V3 SlBytAscii = Crypt(lLngEncryptedData, PrivateKey)
' B; e+ y1 `# H/ |8 bDecode = Decode & Chr(lBytAscii) ) c( X" J" \) k$ j" R5 {- e/ W
Next
5 C& N0 u; u& b* o8 FEnd Function
2 z% q; W* [/ a) @4 a5 {: IPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
  n" Q5 o  j3 y5 B6 d; yNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) . }; D* \" s+ K% H3 w) L$ Y
End Function 6 W0 h$ Z, i# d3 ^
Private Function HexToNumber(ByRef pStrHex)
, B2 |% F. g' N% B& kHexToNumber = CLng("&h" & pStrHex)
  Q, R1 L: o1 I$ jEnd Function
0 u7 Q5 P/ X5 V" pEnd Class & }7 a% Q% [! D" u# V
function Encryptstr(Message)
8 N, }% \- G$ Z7 w* h+ Y: G* B4 w9 \Dim LngKeyE / P% r& }( H6 ]& l, ]! q* e1 r! ?1 d
Dim LngKeyD " ~& B% N8 v. ]( o7 Z
Dim LngKeyN # i) W( W, r4 W7 [- }
Dim StrMessage % ?, I  I' u' R! g7 H! |* M2 r
Dim ObjRSA
# T! v0 \7 [1 M& b2 jLngKeyE = "32823" ; P" ^' @( p! f/ L3 q1 G1 F! Z1 y
LngKeyD = "20643" & j& o9 K; m6 E9 L
LngKeyN = "29893" + p1 R: y) Z: P/ }8 j' W1 b/ U  Y
StrMessage = Message 2 ]2 ^. O/ c6 k
Set ObjRSA = New clsRSA ! A8 l/ v. q7 `1 c9 n+ Y. Y0 O
ObjRSA.PublicKey = LngKeyE 5 F& l' @, _" Q7 F% v& h- J
ObjRSA.Modulus = LngKeyN
9 \) W: s/ D0 {5 @+ v( c) P+ ]Encryptstr = ObjRSA.Encode(StrMessage) 3 T' d; ]$ h4 E, @8 q) v9 }3 l
Set ObjRSA = Nothing
3 A$ m6 K8 P5 h0 ?- {end function
7 {8 Q' e# H; d! b0 G3 W2 jFunction Decryptstr(Message)
5 ^3 R' ^  @; S, \  u3 Z1 LDim LngKeyE 4 Q- g5 Z+ C' L+ @
Dim LngKeyD   y6 X/ b8 C5 w
Dim LngKeyN
) g* Y3 J1 P# H( s* I1 E3 {Dim StrMessage & `, h7 p  Z0 z# }% S& J9 G5 }
Dim ObjRSA 6 a& _' @( x: G3 W
LngKeyE = "32823" - h( v) E# p' e, |0 `
LngKeyD = "20643"
# ^  {/ y9 B0 `* l# l8 c1 h5 ]LngKeyN = "29893"
5 B8 L( D$ Q) p7 z' ^' ^StrMessage = Message
! m' U7 X: K0 fSet ObjRSA = New clsRSA % X9 x9 ^" y3 u0 L# p
ObjRSA.PrivateKey =LngKeyD 0 _# c& ^" h: b$ O# @# E
ObjRSA.Modulus=LngKeyN
/ l% S/ Z' `: A# T1 A: q/ Jdecryptstr=ObjRSA.Decode(StrMessage)
. W" N8 a! g4 r, O# H6 m& GSet ObjRSA = Nothing
4 l8 K9 |/ B5 g3 Y( mend function   T. m' \7 L0 ?
%>1 P# Z( k; X2 D9 j
===============================================
3 @- F5 X3 N2 i6 c. s$ B( Y, @! N  ^( e/ W2 }8 j
还有一个用于测试这段代码的test.asp
2 d$ x% r* A* d) g有兴趣的自己搭建个IIS测试下% {( c. N# F2 q* j
<!--#INCLUDE FILE="RSA.asp"--> & t' T" ]" ]2 W1 D
<%% m6 K8 \: s; `- i# V
function Encryptstr(Message) 2 Z5 Y6 c) m" X" g5 i" L0 I- Y
Dim LngKeyE
+ c3 t+ N# T# K9 `! K% UDim LngKeyD " K) p; t# e7 \+ D9 s
Dim LngKeyN
, T& l; N7 H5 u6 c- ]. O. wDim StrMessage $ m' D) J) A+ p4 G0 A, P0 l
Dim ObjRSA 7 n0 R8 q3 J3 q) F; q& D
LngKeyE = "32823" ( R9 l6 q' `7 ~# a" _1 G0 G
LngKeyD = "20643" : v- y/ k7 D& e4 ~
LngKeyN = "29893"
* \1 ?* o" ?7 O8 ]) Z$ S+ dStrMessage = Message 0 R1 f/ @) S! U4 j' L4 Q* j
Set ObjRSA = New clsRSA
1 o4 M, C. d6 X) lObjRSA.PublicKey = LngKeyE " E! W5 Y" z! j
ObjRSA.Modulus = LngKeyN
: f/ f; W4 ~/ E0 F1 G  ~! qEncryptstr = ObjRSA.Encode(StrMessage)
* C! ?) ~9 a: ]% i2 HSet ObjRSA = Nothing
$ y, t4 k9 \# f' e3 n8 k! o4 Lend function 2 Q: x  E, x: j* |0 F- J  p$ r
function decryptstr(Message)
- Z& ~+ b8 g0 g& h. P8 S! I" TDim LngKeyE : N% Q6 E7 u) q5 T3 X5 _9 w7 R; T
Dim LngKeyD 7 ~  S4 K2 g$ G; `9 j
Dim LngKeyN 1 C2 L2 e) Z+ M
Dim StrMessage # ?% K5 j# v& F! e+ F" d- ^
Dim ObjRSA
) i  ], ~' L2 c% @7 t% w6 TLngKeyE = "32823"
+ Y  S# t- s" _# F: CLngKeyD = "20643"
" U$ v% _6 }" Q( D8 B: Q# kLngKeyN = "29893"
$ ^" ~, T% J0 ~& `' H8 Z: d0 D) ^StrMessage = Message
  L. Q# G1 ~* J) X5 C/ d6 d4 @  lSet ObjRSA = New clsRSA 8 e9 I$ x) n/ x4 B- w
ObjRSA.PrivateKey =LngKeyD 9 v$ S2 k: V2 `
ObjRSA.Modulus=LngKeyN
7 Y6 g. w+ O8 J. g2 fdecryptstr=ObjRSA.Decode(StrMessage)
' f( T* U3 E) l, dSet ObjRSA = Nothing
6 H  a  F" ]  I2 G. J! @' `6 b* Uend function
% H% b' V% q4 s% o! O9 d" @* zdim last,first ; b. p! p" E3 F2 M" a
first="!@#$%^&*()"
5 y1 g+ \6 N! oResponse.Write "加密前为:"&first
& |8 K7 [# G# Q2 }4 {last=Encryptstr(first)
4 \4 @- y) H9 u8 hResponse.Write "加密后为"&last # L% d/ U  Z" R5 |$ s* w0 C
Response.Write "解密后为" &decryptstr(last)
- d/ @9 v& I! }; d' \%> ==============================================
; N1 e! Z# i* N( j剩下的就是字符的对照表了) e9 I' r, S; _+ R  W* T( ~& S
===================字符集================
, D$ U2 m! s% B5 k8 a! [- z" N1_____6EBB
7 g5 B$ w9 y# X7 G3 w) o2_____5C1F
1 m, p: K' y/ d( `( D7 `7 b  n3_____4D75
" o" r9 T4 U! f9 W$ P4_____26CC
- S' o" }9 P: c1 o: t% N( X5_____4F88
: Z. H& P! S& v7 W2 H  b6_____3F4E: y7 V; P& x2 [( d4 O9 a
7_____0A9D8 F: G# V" D9 I- _7 }( q, ^
8_____1A1C
" q4 M  D& X" D. O' J9_____6D200 r" |+ k5 y) q  f) q) V
0_____1089
# D, {% T+ I+ P+ S+ w# na_____0F3E1 P! u" a7 P: k; H. g
b_____3159( `1 E, P, j! ?& V3 J2 t7 }: S2 o
c_____3517' y, a; C1 i7 f
d_____419C) z3 w- \1 J: @0 D( [1 k1 m
e_____615C
3 S: [1 m; h/ R; h0 C7 |* qf_____556F
+ I6 J9 ~$ I: B" ]0 Kg_____2B7F- k- I' N; u- i! ]* [4 t( }
h_____0F9C
! I+ h& A  q. {+ I4 m; Y: Di_____00FA' M/ F. a" g) ]* C- K. u7 z
j_____5A508 W- `' Z8 b$ O: A4 _7 {
k_____2850  R$ O6 I- c# g$ X# ]
l_____3E7B* a* w. V' Z; W- s5 q" Q+ Z4 P, ^
m_____71C5
& x: t7 P0 R( T2 }4 f, M. m! {/ W4 [n_____1FC8
7 ^  M+ `) z: ^8 ?" po_____74C1( Q, U) g- A5 M% u
p_____5FB8
0 W/ n/ \1 ]1 P+ ^& \q_____6085! R" t6 l3 C: L* I2 C2 [" q
r_____3AC43 K) j" p# J$ N+ c; v
s_____2F50
0 {2 d: ~& _; |8 Ut_____36F89 M4 m0 Q6 [% Q. C/ T6 E
u_____7010
4 X+ H- A. {6 H: z& @v_____0B42& j- ~# @/ D2 [' ?
w_____1C7A% O1 Q/ G! O* C& @; n8 S  ?  O( A
x_____16F83 b& B. w7 w  Y% I6 m* F: L
y_____2EE7: s" y0 Y2 [( s; ?
z_____5CF3# j! f/ J5 V3 j9 j* v
!_____6233* ?: E) R- b4 q' Y: g
@_____3A45! p! T# v9 {- E0 l: j# [0 E
#_____2291+ E' y2 v, i0 l. J4 Z3 r! S
$_____5D5C
& U8 V  i! V; [5 J; }9 ?9 z$ ^%_____09B9! H& V- R( \/ g  S0 w! Q$ K& `' L
^_____43EA6 Z8 ]0 N9 E, _8 ]6 J
&_____62B9
( y! M$ _8 p/ d  ^*_____6301& l* O! @1 ^( k. G
(_____4659
' s' M" w' V2 }% r)_____5C82

鱼儿无心

收藏了。。。。。。。。