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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm2 V1 o/ b6 z  p% ]' J4 `! c
原始出处：http://www.3ast.com.cm% @. g' ~  m/ f: \" p& X

! c& p( A+ [3 e6 z4 J( {8 l& T看不懂的直接绕过7 Q2 H4 c4 V* [6 x( O- C+ [
加密前为:hwy123456
7 I/ J& b- b$ k  b加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E) a2 v: v3 Q) Z; I

  Q' D. |4 k* ?/ M( ?. r============================================
, ~& r1 R+ i2 E% n& [上面是当时自己校内的心情。现在已经解破出来了，分享给大家6 ^, _8 [) e$ L% t
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
2 R+ r! Q) a. Z+ a9 y以下是RSA算法文件
: {, }* F0 g9 t1 O. i1 g, ^! |$ v
0 |7 C/ ?& Z- `3 z% f5 z! V6 G文件名RSA.ASP! ]' E1 L& Y' [
===============================================
2 O" a/ q/ v% N8 m$ K<% , C& t: r! @- T# g7 G" h- I
Class clsRSA ; X2 t' L, n4 f4 ~$ Z! O# v, i
Public PrivateKey + a7 C/ _% O9 @
Public PublicKey
* L' j; }( r  v$ H4 J7 lPublic Modulus 3 P- h1 Y4 j) o+ p0 I: y
Public Function Crypt(pLngMessage, pLngKey)
2 _) \( |3 T$ y( G. AOn Error Resume Next
& U4 z4 U3 v& w" n9 B2 v3 }7 RDim lLngMod
* e  g1 A2 ~& Y5 tDim lLngResult 8 Y6 ~5 D9 P+ K5 u: a0 d
Dim lLngIndex
$ {8 b/ v6 g8 o7 jIf pLngKey Mod 2 = 0 Then
) c2 U$ U4 b4 W- clLngResult = 1 7 F6 x2 c! ^! `' \- s5 ?
For lLngIndex = 1 To pLngKey / 2
; u, q2 i% O; S# A& f$ V& ilLngMod = (pLngMessage ^ 2) Mod Modulus
3 ~3 p) F) F3 o8 R5 y' Mod may error on key generation
* q! k0 s' P8 TlLngResult = (lLngMod * lLngResult) Mod Modulus * c) f1 k5 Y6 e* v
If Err Then Exit Function 9 ^& ?% F2 R! G6 z; S1 c! R
Next 4 w# @* v) n( o, n4 n# s
Else
2 w# a0 c2 u$ E; v. nlLngResult = pLngMessage
2 }/ k# k, i) x7 I  Y6 `6 sFor lLngIndex = 1 To pLngKey / 2
5 A2 _) P6 L/ V3 D% U; [lLngMod = (pLngMessage ^ 2) Mod Modulus
/ c5 |  D* ?- [! b4 tOn Error Resume Next 1 B- [7 t- a" m: Y! W) _
' Mod may error on key generation
' x8 m- B  ^; hlLngResult = (lLngMod * lLngResult) Mod Modulus 0 h* h/ R$ L/ u+ _2 w5 Y3 O; |* }
If Err Then Exit Function
3 M1 q: ~1 q3 L; f9 h6 A5 jNext 4 K+ A" l) x* c: P
End If
# `6 E6 \& m5 S3 q# E, r9 A" \# ?$ M5 H1 KCrypt = lLngResult
5 @( Q( j4 d  y7 g' {/ {End Function
4 U9 U& ?  P0 B, R) ?
5 g6 T  ?, ^: d6 x8 APublic Function Encode(ByVal pStrMessage) ( y8 X8 t( r8 y4 Q! P# X  @
Dim lLngIndex " o7 A3 J- _  `8 u( ]
Dim lLngMaxIndex ; \- X/ O' s- _9 p  @* o3 M
Dim lBytAscii ! O: ?$ m, F4 ~+ C. r( N
Dim lLngEncrypted 9 U! o; ?3 m% @, y3 t3 Q1 n( F5 g( S# `
lLngMaxIndex = Len(pStrMessage)
5 F1 t% s! ?4 w* S8 H% [% fIf lLngMaxIndex = 0 Then Exit Function
) r  w8 n+ r( X3 u) NFor lLngIndex = 1 To lLngMaxIndex 1 B5 N" f4 O! }1 n
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 6 A" E8 \0 M1 i9 o& C
lLngEncrypted = Crypt(lBytAscii, PublicKey) ' I4 ~, n* y  R% i
Encode = Encode & NumberToHex(lLngEncrypted, 4) 3 l& p% h( M5 [: I* v  Y
Next , p0 @- H. p& X$ Q# D1 G3 \9 R
End Function . Y  U; R9 w  u( b' q
Public Function Decode(ByVal pStrMessage)
, P: b7 z/ T. ^% j) oDim lBytAscii
8 j4 t* d; Y0 B3 z* G8 `4 ]  k. vDim lLngIndex ' L2 p8 a; R0 K# e! [$ F
Dim lLngMaxIndex + Q& D3 B! |! s6 R0 K% f
Dim lLngEncryptedData 8 b7 a5 C* X6 K% k
Decode = ""
' N* C% P7 i$ Z( W* OlLngMaxIndex = Len(pStrMessage) 4 F7 y) j; j. C# i1 h; q- L+ K
For lLngIndex = 1 To lLngMaxIndex Step 4 . B/ N$ Y8 {; _8 Z9 v
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
  Y6 i9 t; ?: I. J6 ElBytAscii = Crypt(lLngEncryptedData, PrivateKey) ) _" X& ?$ ]: t( L6 M: l  U
Decode = Decode & Chr(lBytAscii)
9 Z( e& Z- }( i0 a( D$ QNext . [3 F: c( g; }+ O" c4 H; a
End Function # _5 e" `6 i8 t$ C
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ( m, R5 \; J' G6 e& m2 @( w7 G
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 9 s6 A+ i* @. \9 ?) W
End Function % l4 l0 y6 g0 l$ _& l' M, j8 K# [. S
Private Function HexToNumber(ByRef pStrHex) 6 n6 x9 d6 Q! \: Y+ Z& T: b1 N9 S
HexToNumber = CLng("&h" & pStrHex) & }5 _. C4 b6 _6 [% j9 P: F4 v
End Function 7 m( T: `/ _5 X. R5 Z
End Class * K* f9 b$ B, a# ]. P) g
function Encryptstr(Message) 9 y  ]* M" J8 O& ]
Dim LngKeyE
( `( T$ ^( V% f' v) _4 NDim LngKeyD ( i) b% ^* M+ }: p
Dim LngKeyN + b  V% l! m& g+ d9 r$ X, }9 S6 ]
Dim StrMessage
& O% B. ~' T! F, }* l7 ^* I( rDim ObjRSA
* b% f8 g( L4 x# @9 mLngKeyE = "32823" $ o( j4 L( W* S# U: ~3 b/ y
LngKeyD = "20643" 9 P1 ^* o+ S' _% |' U. {5 D. z
LngKeyN = "29893"
. v0 F" G9 T1 z  I1 Z) Z8 OStrMessage = Message   e& h; a) o# W8 j+ `- ?
Set ObjRSA = New clsRSA
9 S' Y* p1 W, v6 Q/ m8 D' R  F: \8 uObjRSA.PublicKey = LngKeyE 8 T. h1 D7 g' M$ M! g/ Z$ S+ d
ObjRSA.Modulus = LngKeyN
, N6 H  i+ a$ `2 q( U/ KEncryptstr = ObjRSA.Encode(StrMessage)
. J0 I; H. g, l3 [, jSet ObjRSA = Nothing / j7 E1 V" x3 y8 O% m: d9 J& e/ W
end function! n; j! ~8 ^4 H/ c- x3 u
Function Decryptstr(Message) $ l% q: _4 h- ]2 x/ d$ Z  A
Dim LngKeyE
7 ^' I, F) H; {3 E) @4 r" nDim LngKeyD
' x+ W( Z% }% B) ^4 bDim LngKeyN + x# ]- y" E* @( T
Dim StrMessage # F" o/ g" o8 Q  |. ~
Dim ObjRSA
: E. Q% A% G# l3 l! LLngKeyE = "32823"
6 O! X% G: n% H# @% w5 B$ OLngKeyD = "20643"
8 W; j7 T- v4 I: l  Y! @% b) J% WLngKeyN = "29893" 7 c/ \5 c- C  z! i* R6 K- Z) @2 k
StrMessage = Message 1 \: F5 x* n/ N6 \
Set ObjRSA = New clsRSA
+ M# U' }. U' C" e3 }ObjRSA.PrivateKey =LngKeyD
" U) u( P2 `) z% ?$ i3 y* J# z2 ?ObjRSA.Modulus=LngKeyN ) w9 Y! S; O* j/ n. L
decryptstr=ObjRSA.Decode(StrMessage) 1 ]; P: c+ S3 f3 `7 T# r' V$ Y
Set ObjRSA = Nothing
- ~9 u$ u3 Q0 X  c0 e7 dend function
" O7 `% Q8 M  L8 ?* I9 u% e: g%>/ {1 o& W2 b' O# ^9 x8 j
===============================================
) M4 D( a, @# S5 V; {, V1 f) ]1 y- [) w! {0 K
还有一个用于测试这段代码的test.asp# y% P0 C5 U1 j+ J5 B, Y& L# n; n
有兴趣的自己搭建个IIS测试下
) u+ j7 @$ U$ _2 v- w3 Q' f<!--#INCLUDE FILE="RSA.asp"--> , }8 a( [) z% M% l/ y5 @$ |; z
<%8 F8 M7 {; ?2 J4 g' @3 W  G9 V9 _
function Encryptstr(Message) 8 k4 N1 U. N, N+ P& v
Dim LngKeyE 0 O6 W) R# f, j' y+ J) \- p
Dim LngKeyD & f# d" w8 \, t4 O$ M% n
Dim LngKeyN + Y+ g# T; u1 D  q
Dim StrMessage
: X: ]+ m1 v) {  U, lDim ObjRSA
- |: y( C4 s, f; Q; f6 `7 g4 oLngKeyE = "32823"
, L) e6 t" v  X$ t+ \7 U/ w' R4 WLngKeyD = "20643" / q- H# g& {1 f" c
LngKeyN = "29893"
8 [/ ?( l3 P: h! h0 K. KStrMessage = Message : Q; ]1 D9 C6 K, [/ G$ a
Set ObjRSA = New clsRSA
' W0 X, B1 D' Y8 eObjRSA.PublicKey = LngKeyE
0 e4 Q) b" k) t8 [8 Q: ~. Y! IObjRSA.Modulus = LngKeyN
8 j. O* ?5 `: z/ rEncryptstr = ObjRSA.Encode(StrMessage)
8 Q6 G; P& K6 ?5 d) @- SSet ObjRSA = Nothing * _0 n7 J& C- A6 E9 Y  W
end function
& @+ N+ R, A. z0 E- C( H/ h! b; Jfunction decryptstr(Message)
/ k) b: F6 J5 R, |. k, dDim LngKeyE
% ~: h" a# W- ~: [7 jDim LngKeyD 5 M' u) S" r( x# d
Dim LngKeyN . m/ R2 V1 j6 U) y  g  w
Dim StrMessage - B' B0 t- I7 Y3 N1 x
Dim ObjRSA
3 r0 o! X, l# Y$ q5 S, FLngKeyE = "32823"
6 B( v2 n% N$ }9 C8 |% CLngKeyD = "20643"
3 q3 ?3 _6 J; j4 j# WLngKeyN = "29893"
) o# w" l1 q& K2 k( D9 eStrMessage = Message 3 L$ J: }" Z8 R( ]: _7 P  b
Set ObjRSA = New clsRSA
5 I  M6 M. S5 ~/ p: xObjRSA.PrivateKey =LngKeyD
* f# k2 {8 ]9 V: w" [; |ObjRSA.Modulus=LngKeyN 1 ?- G5 b( [$ e. o- W
decryptstr=ObjRSA.Decode(StrMessage)
, U& u) j' O- CSet ObjRSA = Nothing ; {3 ?, \& W- M# }6 b5 Y& t# X% e
end function + X$ K; j5 u" `
dim last,first
/ \, o* j1 Z1 Q! E8 S$ _first="!@#$%^&*()" ; u3 i6 S- R6 K2 S% T0 q, `
Response.Write "加密前为:"&first
, N1 G) s* S6 t% S) F/ z/ V! Glast=Encryptstr(first)
1 F! J/ V; \7 FResponse.Write "加密后为"&last
! u* R" l. U( Q4 K7 Y7 ]: \! p3 b* ?Response.Write "解密后为" &decryptstr(last) " A: B3 t3 A) P1 t' v
%> ==============================================
4 @, s0 |# r' ^剩下的就是字符的对照表了
$ `3 M9 b" m! s6 w2 ?) {===================字符集================
4 X: w; {% @) G1_____6EBB
4 j4 e& V3 \$ W% S8 L4 [2_____5C1F- O/ O# H+ E5 f1 O' L5 J
3_____4D75
) [* L7 w! d: f1 r* g1 d7 S7 Z$ M4 {7 z4_____26CC
/ g5 L8 Y; e- H9 d, E7 U5_____4F88" ?/ n" z* I1 V9 i0 n1 |1 t  \" q4 L5 K
6_____3F4E
, t/ F0 G3 Z6 u2 {: \! f7_____0A9D
: b' }4 J0 K1 E8 b* w' s8_____1A1C7 h% h/ V1 u) B" U
9_____6D20
* p7 ~3 s( X& B9 K7 D' ^# L2 r5 T0_____10896 N1 E% X, ?& J. o6 u# d
a_____0F3E; z; D! I, d  Q. Z- @( Z7 |1 U5 E
b_____3159
" K) I  R0 L  Z9 Q. f1 c% Mc_____3517. z$ m9 V: b9 s
d_____419C5 o; }( ?2 \* d3 p
e_____615C
) J6 _5 y" o4 Af_____556F3 t0 x5 ]% A4 f5 C
g_____2B7F
+ Q( m$ K  ?# K2 oh_____0F9C% q  e% d9 }/ ]! k- g" |( A( t
i_____00FA+ A% W& I7 J6 W; Q1 I
j_____5A50
1 ^! k3 M1 z* m5 \k_____28503 v" J3 J# w; a3 G9 N1 e8 K
l_____3E7B
6 ?! J) N( Q& L$ gm_____71C54 x) M" W8 _5 V" f9 ^! m
n_____1FC8
) v: S: e: |  ]- H7 Zo_____74C1
. r2 I* t$ R( T1 `9 ^p_____5FB8
$ o4 F: [" l1 vq_____6085# H5 O; q( _9 q& J: R& l5 p0 T
r_____3AC41 s7 d& R8 U. D4 m- H* z. n& i
s_____2F50
5 S6 Q: p1 b1 n1 J7 a0 Z. Zt_____36F8$ Z/ u% I, T, @
u_____7010
0 Q9 ]2 N6 F6 E8 m" xv_____0B42& ?  b7 m- d& O& e7 K2 n  H
w_____1C7A
9 B: P, V, ~! x- c& L- Jx_____16F8
+ ~3 u7 t9 T, Q9 V" ey_____2EE7
* L5 }- [3 v* b# qz_____5CF3
$ \" {- z" H$ @2 _  h- I!_____6233/ b1 p. `# e9 L) @
@_____3A45$ ~+ L+ u& K( ]" k. T& E, Y' A# `
#_____2291
6 E' p: b, V/ X6 y$_____5D5C
  K+ D: q/ n' _' f# U%_____09B9# u, j9 I8 g8 j" I( _1 x0 e
^_____43EA+ I$ o, F1 \& i0 E# b
&_____62B9
# o- d5 b  x- J*_____6301
+ }3 b" W' Q0 I% u(_____4659
, v- R6 f/ E# T/ X, d; V7 @)_____5C82

鱼儿无心

收藏了。。。。。。。。