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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm7 A$ @- |" h2 o6 v6 C/ z
原始出处：http://www.3ast.com.cm
9 m1 O) }1 S" z, y
7 |! g0 g' ?% G7 L# I, O看不懂的直接绕过) I1 K( }, c4 P, o
加密前为:hwy123456
0 x) l  n0 \0 ^% a3 A  O/ v( A/ [1 D加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E) j! r4 g/ `/ {8 p; r- G
; Y# _# ~: B3 N- o8 l. V8 b
============================================) t) x* w  h5 ^- O- e5 D1 p0 e
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
* d+ p1 l( r" S8 m; l也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法) }1 P. P7 T  |- T1 W
以下是RSA算法文件6 M% k6 t* G' N
( s1 Q+ X8 N. c7 l' R# R+ A* o$ K( W
文件名RSA.ASP- s0 u! Q. \3 U* C( i
===============================================- W' x) m- O. q5 Z8 ?0 q6 y1 F
<% $ N+ M: _, M3 k: q) L0 }# I/ _- P" H. M
Class clsRSA ( P) G6 t5 I0 n! p0 y6 M- q
Public PrivateKey
4 r1 g3 l" |. J: ZPublic PublicKey
; Q$ U3 E, l! xPublic Modulus
3 F6 ?9 h& M  {0 f1 \) f6 d3 vPublic Function Crypt(pLngMessage, pLngKey)
2 {+ H( O. Y* C7 A# |8 C) u' ?4 O! l1 rOn Error Resume Next ! I+ [# }/ T8 q$ }/ E. Q
Dim lLngMod 0 }6 ^2 ]# z  X9 r1 x
Dim lLngResult ) d$ e( z1 I$ V  L! r; E1 n6 L
Dim lLngIndex , ]: D5 y5 d8 c1 \; v  d+ b7 `7 }8 X
If pLngKey Mod 2 = 0 Then
/ N. v9 V8 L' k5 {7 ZlLngResult = 1 ! @( O: G, l' e0 J/ U
For lLngIndex = 1 To pLngKey / 2
  \! ?! t$ A: D; t( h% L& plLngMod = (pLngMessage ^ 2) Mod Modulus ! B( k2 }+ b5 w; a$ ~' l$ ]2 q4 B
' Mod may error on key generation
4 S% O8 {2 X9 C/ j2 _lLngResult = (lLngMod * lLngResult) Mod Modulus + G) b. u" y0 m  W( ]' s
If Err Then Exit Function
! O: Q7 e/ z6 @) D9 vNext 2 I. _! _% C6 D1 q) n+ \' O- U
Else 3 g7 K# z: z, S9 F$ H3 y; T
lLngResult = pLngMessage
/ N& Z5 F% B4 V' _+ c/ Z- pFor lLngIndex = 1 To pLngKey / 2
& Y: _9 w; Y9 A$ W/ ], X8 e( G0 QlLngMod = (pLngMessage ^ 2) Mod Modulus
/ X1 H2 K% ?$ ^( Q8 `: oOn Error Resume Next
" b1 A% K( G* j! }, _1 f  d3 x* Z, W' Mod may error on key generation
' @: s" c( N: XlLngResult = (lLngMod * lLngResult) Mod Modulus 9 u8 Q+ f0 H8 H+ `/ d, }# d- a
If Err Then Exit Function , D7 c9 ~  K% G5 x' s) i0 a2 ~
Next 0 @; ?8 I! O! T1 G
End If
. I6 c/ Y* d0 y! ^! UCrypt = lLngResult ; q& [. O) X7 N; y
End Function  @" ]! J* O' A) [2 B
9 u& K  @  e7 T, F7 p7 z3 B
Public Function Encode(ByVal pStrMessage)
9 F, a% b1 H' tDim lLngIndex
- |, k# ~$ Z( CDim lLngMaxIndex 0 f! ^8 f# U" x! W$ g$ I" Y
Dim lBytAscii # ~, ~: J8 X$ ?( f; ^* J4 ^# c' }
Dim lLngEncrypted 2 L+ m- a3 M1 Q% W* b7 m
lLngMaxIndex = Len(pStrMessage)
) D2 ^* |& O9 L% N3 nIf lLngMaxIndex = 0 Then Exit Function $ l; F- U! V. Q; g: F
For lLngIndex = 1 To lLngMaxIndex 4 D$ M0 @/ o' T! b
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 9 E5 w4 Y  T1 Z5 Z
lLngEncrypted = Crypt(lBytAscii, PublicKey)
- [, c  s5 g* U( uEncode = Encode & NumberToHex(lLngEncrypted, 4)
3 S- r" ]5 G2 y) LNext / e' F  F/ o# u# O- Q& R, T
End Function 8 t, P: U1 b# I6 C" @
Public Function Decode(ByVal pStrMessage) ( P: x0 D$ t* Y% ]% E
Dim lBytAscii
  k1 T% H3 m" [5 WDim lLngIndex 8 S& b2 I. ^1 c. z" o, W9 @9 }
Dim lLngMaxIndex
4 Y  m3 l: p' i9 p! b. ?& t0 sDim lLngEncryptedData
& w9 [9 B! ?6 G# U2 bDecode = ""
1 r* j) _! `* Y" Q9 elLngMaxIndex = Len(pStrMessage) " D5 K/ f, o  A
For lLngIndex = 1 To lLngMaxIndex Step 4
. k/ Z$ x9 e9 h+ N% y3 HlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
2 n/ u1 ]; n1 }( J9 LlBytAscii = Crypt(lLngEncryptedData, PrivateKey)
2 [4 }' y$ {* g2 F9 _3 T0 [, H; F* aDecode = Decode & Chr(lBytAscii)   ^; z3 y, @2 w7 c
Next
, q5 \6 i9 M3 n5 T- R& F! KEnd Function 6 M: r! ]0 j$ ~* F
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ( k9 W0 Q  v3 d
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
( J# I5 C9 n6 n' |% s4 xEnd Function
) J# q6 @. c, N) v, L5 ~* `. IPrivate Function HexToNumber(ByRef pStrHex) ) b3 L% F/ Y  o  E8 k& @% G$ O7 Z
HexToNumber = CLng("&h" & pStrHex)
" p' T$ d. \! P! @. ?6 P% rEnd Function 3 N  e9 v. q9 Z5 V
End Class
" O4 i$ \; u& d" qfunction Encryptstr(Message)
7 k+ T9 t; f; `2 f, [Dim LngKeyE
  W6 f7 f( _( r& |7 z# IDim LngKeyD
' @5 M# W  H  Y+ @( dDim LngKeyN 0 Q! V+ A- F, @" {" K
Dim StrMessage ; V0 b% T1 j4 c8 t8 G
Dim ObjRSA 2 h  F5 v; r- e% M; @
LngKeyE = "32823"
! i9 `- I2 |2 D. PLngKeyD = "20643" $ M1 w, h; @0 U
LngKeyN = "29893"
5 Z( ^4 N# C9 M' q  n8 C. {StrMessage = Message
" t) a6 T( o; N. ~Set ObjRSA = New clsRSA
$ f% q! S+ j! x4 R4 W. T& s1 a- ?+ VObjRSA.PublicKey = LngKeyE
& @9 N; u$ n  ?& o1 b( UObjRSA.Modulus = LngKeyN ' [9 @& H0 g! r0 }; z; Q# u6 n
Encryptstr = ObjRSA.Encode(StrMessage) & @5 r3 C: |# k4 H. r
Set ObjRSA = Nothing
1 H5 i- B  o* u9 y' i: cend function
" d3 p0 ]6 y) A" T% Z# Y' ZFunction Decryptstr(Message)
0 Q0 q7 U% Q; h/ `9 HDim LngKeyE
5 P# O; j: `% z" @$ U! \Dim LngKeyD % |4 l* S# m- q# o
Dim LngKeyN
" L/ k* ~) @5 G4 z) o+ d$ A$ r3 ADim StrMessage % H, r: D9 |/ w$ t( S
Dim ObjRSA
: |. A, u+ O/ d5 lLngKeyE = "32823" 0 V4 {, G+ y4 M1 \
LngKeyD = "20643" 9 {, f4 M; N1 u  f3 ~! g; h
LngKeyN = "29893"
9 Y; D6 k. B/ i: t2 [! WStrMessage = Message
7 L! v7 [. k! _  z2 ?- Q+ nSet ObjRSA = New clsRSA
; v4 g9 J% ~% ]5 H0 A- nObjRSA.PrivateKey =LngKeyD ( e! x9 Q6 _( E& g
ObjRSA.Modulus=LngKeyN * b0 n4 g2 Q1 S
decryptstr=ObjRSA.Decode(StrMessage) ' K' M6 H/ f( w! ~. ~) J% i
Set ObjRSA = Nothing
8 J( u' B7 [: Tend function ( F2 X- O6 ^+ g. ^2 b" a, q
%>  J' X3 N! B/ Q5 d7 F% c  x' v
===============================================
* }8 U' Z' K5 l. H+ x* i- ]5 O$ m. a4 `
还有一个用于测试这段代码的test.asp* W4 g) L( H# q/ p. r* E1 P
有兴趣的自己搭建个IIS测试下
6 G& V( S4 Q; X+ G<!--#INCLUDE FILE="RSA.asp"--> * B, B6 v5 F& T/ ^0 y" x  E/ X
<%- ?6 P7 Z( I3 J! |2 q
function Encryptstr(Message) " K! U1 w% L& a4 I4 k7 l: q
Dim LngKeyE
3 p( Y& Q( D- g  mDim LngKeyD 6 C/ p2 s9 C8 C# v1 Y  G
Dim LngKeyN ! J) f* Y- g$ t8 ~# Q8 R  Y' l- J+ f
Dim StrMessage
$ H* ^/ }+ @, j1 @# aDim ObjRSA
2 ]5 s, l1 U3 w& w9 m8 I! m. ~! xLngKeyE = "32823"
, S( z% m/ q7 {LngKeyD = "20643" ) _. v, c) h2 x2 s: X9 O8 X
LngKeyN = "29893"
  r9 K+ g* P' g% W; n0 ]5 DStrMessage = Message 8 H9 N- E0 [) R
Set ObjRSA = New clsRSA , t3 Z) j  _! J& \9 u$ x
ObjRSA.PublicKey = LngKeyE
2 r! Q. t* F1 v6 j7 l/ nObjRSA.Modulus = LngKeyN 0 d& o& Y* B  Z. z7 A, Q5 {
Encryptstr = ObjRSA.Encode(StrMessage) 0 d/ N8 }1 d( _
Set ObjRSA = Nothing
; M1 T" g5 I1 U: E0 A! g/ pend function # y3 V* ~( q7 h8 R2 T) D- g+ Q, z
function decryptstr(Message) ( D7 i( O# m6 V6 U( ?
Dim LngKeyE
& T6 E3 Z* m! Q2 jDim LngKeyD
0 S# i  a  P/ @! u  L, HDim LngKeyN 2 {: \" ]! a1 W! C
Dim StrMessage
# j# ]3 d9 n& J$ L: H# |Dim ObjRSA
8 B. i; Y6 ^/ e) i! i3 PLngKeyE = "32823"
3 n* C/ W/ C: K. o" U% u3 GLngKeyD = "20643" # O5 `# U0 Z: w3 h! Z
LngKeyN = "29893" # D7 R7 Q* h. C2 d5 i7 i
StrMessage = Message
# p6 \) p1 L& n# r8 }7 A' jSet ObjRSA = New clsRSA . M1 l# s$ b; F6 w' I" z$ R
ObjRSA.PrivateKey =LngKeyD
. O& s* X' |9 ~2 M+ ]! R" y3 @ObjRSA.Modulus=LngKeyN ! d( C9 ?0 n. x* m9 W% y
decryptstr=ObjRSA.Decode(StrMessage)
! P! o1 n  i/ }9 n* a& TSet ObjRSA = Nothing
* k8 t6 N9 }' O! S! C1 U6 z+ [5 tend function
+ B* A- s* g1 @. c! _dim last,first
5 p. \4 d/ w  C( d) Afirst="!@#$%^&*()" 0 ~5 c" ]( c+ |' ]
Response.Write "加密前为:"&first
3 N/ h- K$ \: s( ^0 e/ [" T) A0 Slast=Encryptstr(first)
5 m% A: j' f5 k: eResponse.Write "加密后为"&last
: \( w/ e2 P5 U* BResponse.Write "解密后为" &decryptstr(last) ) T6 r3 ^8 h! D0 o; ]
%> ==============================================- \( V+ {4 I2 Y3 n
剩下的就是字符的对照表了3 Z, h# y0 Y' `& n. n
===================字符集================
9 j. n) H3 P3 d5 v( S+ L1_____6EBB! {' z6 C4 y/ z: d7 V
2_____5C1F% R2 }4 t6 A4 Y. M' h( k! l$ }
3_____4D75
' A3 C; N) Q4 r" h  @4_____26CC
8 G) @5 @/ J2 j( @* N5_____4F88* E( g. ?5 i* o( S  e) r* P9 g( `; v
6_____3F4E
1 v1 b. V2 k, ^  `7 S( ~+ U7_____0A9D
" Z7 R# [) o* |8_____1A1C9 O$ f) {5 a: ^% r3 u
9_____6D20- \6 I/ g: O' P6 J
0_____1089
% A& i1 ?6 f2 v+ B0 `0 \a_____0F3E
: V- J1 t9 |" G& z1 lb_____3159
" W8 d$ }! X2 y( L! V" r+ ~c_____3517
% _: C- Q; m; a1 v& _7 Fd_____419C6 K" `4 `+ l" x
e_____615C
2 V: X/ k2 G. b) O; Of_____556F$ h: `6 N1 \" d; b
g_____2B7F7 f7 l# }5 J" f  R& e( k
h_____0F9C
! s3 Z) f  ?! s+ p* d; Y2 D  A! Ki_____00FA2 r' L' d# s# n4 A1 J( Z& g9 |7 E
j_____5A50
8 O. @7 M; ?' r1 G, g* tk_____2850
+ D- F( e5 `7 d0 `5 A' hl_____3E7B# S7 A: x9 o$ P/ U! {$ s
m_____71C5
5 k/ M) A$ n0 D9 V& zn_____1FC8
) E" N. D; ^, e' D- D1 r, yo_____74C1
% o" C$ y1 U, x! y" O# r* e7 ?0 np_____5FB8
9 s% |! s" F# \3 j8 ^q_____6085" w* x, K4 M. J- X& @/ J7 A( i8 u
r_____3AC4
( x8 ?3 s: U9 z, y" a/ m$ cs_____2F50/ q" L4 v, q4 h* m! l# T
t_____36F8
! C3 T5 `% R1 S/ G/ d" g& Uu_____7010: e7 Q' e9 ~" d
v_____0B42
( S. r# [5 l3 Dw_____1C7A0 H0 X9 w4 a5 j8 T
x_____16F8
7 ~  z# g: `* x% K) M. ly_____2EE7
9 a! n" |" ^. q; ^+ U" Zz_____5CF3
0 L0 d0 G6 j$ b5 k) C!_____6233! z" U8 t% |: _9 H5 V
@_____3A45# u4 y4 L* n1 b' Y1 ?! M$ B
#_____2291
( M0 N+ N7 c, T) L' Q8 R$_____5D5C+ p+ E$ g, d( P( `3 P; ^
%_____09B9
, @5 Q: Z8 x8 r4 R) X$ X( F^_____43EA
% E. A( b# K& W$ r4 ^' z&_____62B9
) p2 f3 f. J8 U3 `*_____6301
) k. X, M7 e0 p7 D5 u(_____4659
2 e  g8 }, O: X)_____5C82

鱼儿无心

收藏了。。。。。。。。