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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm9 f$ ~; T- K$ n0 E) r- K2 H: P3 R, R
原始出处：http://www.3ast.com.cm) j) V8 Y+ y% f

- q) ~! u$ x! i" \* ~: B看不懂的直接绕过' D6 K3 W, ]6 c8 r7 B9 S5 K
加密前为:hwy123456
3 D0 N, ^4 t: O! D3 |加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
# V2 Q1 O) R/ v% o' T. D9 v
; q8 V4 |  O9 |6 W& ]& d============================================. ?$ K: r( b: b% }
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
2 ^5 ^; ?7 }! f, P也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法5 M5 S3 x( {) J0 d7 E
以下是RSA算法文件
' Y+ U# z) q7 `) R
& O1 c5 ~5 l  O  k文件名RSA.ASP
8 Y4 ?. p7 \% z===============================================
- e8 ]8 A  }/ x% B<% 3 a: D2 e  I1 j  w8 A
Class clsRSA
- H8 H) h2 ?7 X( GPublic PrivateKey
' G( L" w2 q- OPublic PublicKey
' q9 \1 v8 {2 G) y6 tPublic Modulus - m: w$ e% f( o/ \
Public Function Crypt(pLngMessage, pLngKey) 9 X/ v) E0 K' c( m
On Error Resume Next
& L, [6 F5 Q0 m1 jDim lLngMod
6 _8 ~7 W1 R0 [Dim lLngResult
6 B/ {' @, H2 l  h( y" t* C0 h; _( FDim lLngIndex
' j% a; b# ~% hIf pLngKey Mod 2 = 0 Then 6 s3 i5 F1 J, U8 e
lLngResult = 1 1 ~& r& O" I1 t  W. h6 ]
For lLngIndex = 1 To pLngKey / 2
* b0 P, m4 q4 O/ C, HlLngMod = (pLngMessage ^ 2) Mod Modulus
  f5 {/ @" Z% i( `' Mod may error on key generation
! s" H/ V$ B" |0 O% NlLngResult = (lLngMod * lLngResult) Mod Modulus
& T: ]$ n7 u6 D0 E6 S$ mIf Err Then Exit Function $ m$ z. V% Q% S* E* j: Z; C. D$ z
Next
0 `0 v& k/ G8 T* [3 s* J$ y2 Y0 c2 kElse
7 k6 C2 c$ Q. elLngResult = pLngMessage ) a3 a5 p( s0 Z! X! b2 T/ Q
For lLngIndex = 1 To pLngKey / 2
' D2 U1 f* x( m2 B. x2 e% ylLngMod = (pLngMessage ^ 2) Mod Modulus ( U$ v/ y$ H3 K8 T1 S& G/ t3 {
On Error Resume Next
2 [1 j/ ^3 M% G$ q9 \' Mod may error on key generation $ K+ ], L/ ~1 s& \9 z; v
lLngResult = (lLngMod * lLngResult) Mod Modulus # ]4 s5 h( K  |2 @( F3 p9 o$ Y
If Err Then Exit Function
; @' G9 \5 f/ w& b+ m1 S2 [% tNext ) p  f* q: ?! `: D' c
End If 9 a; T2 p1 v3 U6 E1 T
Crypt = lLngResult 2 k1 s8 e7 i- W$ Y
End Function
9 b7 i- z* L8 u1 f: d! ~/ l3 O/ |3 R% L5 R' ?- v
Public Function Encode(ByVal pStrMessage)
& n6 I; V7 l! q% v7 R. H7 WDim lLngIndex 6 d" R$ [; {+ Y! B4 a3 y7 y
Dim lLngMaxIndex ) h! j! @  Q; Y/ G+ G7 Q) J: |
Dim lBytAscii $ C: f+ s" w. @0 w
Dim lLngEncrypted
" m1 z( Z# j" w4 k, R5 X! V: olLngMaxIndex = Len(pStrMessage) / g2 ~3 W$ A& L- P' s
If lLngMaxIndex = 0 Then Exit Function ! c. h. v$ I/ ]/ W6 p# C
For lLngIndex = 1 To lLngMaxIndex ( v( M9 I, Q8 K" A* X, X
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
' ?2 s; K, f9 H2 e$ r  zlLngEncrypted = Crypt(lBytAscii, PublicKey) 5 {' b# f! ^: r" L+ @/ J
Encode = Encode & NumberToHex(lLngEncrypted, 4)
3 g: w! g8 H# S* Z# f. m& o9 w: fNext ( c  i( L2 [" u
End Function
8 [' g& n, x2 `- m9 cPublic Function Decode(ByVal pStrMessage)
: b/ i5 U# M9 Y) rDim lBytAscii
1 \/ N. m* Z2 i0 `' n( l: uDim lLngIndex 5 Q, j4 H# ^; g; p
Dim lLngMaxIndex
0 [& i! h1 Q- k/ ]9 M3 o# u' rDim lLngEncryptedData " {3 r( c+ H* D4 N: o
Decode = ""
( M# V/ S$ b5 @lLngMaxIndex = Len(pStrMessage) $ c- }  q( G* s0 i; H* U9 p' v
For lLngIndex = 1 To lLngMaxIndex Step 4
% h. n$ q. X) c0 |lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
9 e: H3 p: u: l2 K, FlBytAscii = Crypt(lLngEncryptedData, PrivateKey) : y1 |+ T# ]7 j' A7 u
Decode = Decode & Chr(lBytAscii) : z/ s/ B) N: v
Next
+ Q2 V2 v/ S& ^3 b/ REnd Function
/ Q5 s9 K/ m' UPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
. b2 g+ i: {2 E. TNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
* {+ X7 B4 P  s' J1 _, S8 v) H' B/ XEnd Function / u1 e0 g0 h5 @% n
Private Function HexToNumber(ByRef pStrHex) 4 @' I. z& q8 A- n2 D3 A) b; t) X
HexToNumber = CLng("&h" & pStrHex) 7 ~( Z3 ]' v; g1 w
End Function
) q- n8 F7 m8 B( }. f; s5 U+ @End Class
  T! J5 _7 i5 Jfunction Encryptstr(Message)
& q8 L' a! O4 t2 C6 L" \5 DDim LngKeyE 8 X8 U0 {6 X9 ~- g
Dim LngKeyD
" R# ]# `: C+ B" R( TDim LngKeyN 0 \2 N- |$ o- c2 v7 P3 \9 y  B, R0 k
Dim StrMessage ' V  m- F& \' p1 M' i& M  t
Dim ObjRSA
5 f* z( d- F+ @: ~- ULngKeyE = "32823"
% h$ d5 p4 A) y  U7 x" ?5 c- qLngKeyD = "20643"
! H  Y+ q! L7 C6 @LngKeyN = "29893"
$ ?% {+ d& t, o% a1 N8 K9 WStrMessage = Message 8 i2 |3 e0 E: U' j: t
Set ObjRSA = New clsRSA
; P8 C" h% r; i7 t1 oObjRSA.PublicKey = LngKeyE 3 u3 C6 C3 h7 M& W, R$ B# z
ObjRSA.Modulus = LngKeyN
3 C% g+ o9 A2 p/ \Encryptstr = ObjRSA.Encode(StrMessage)
$ i+ o1 M: `' n+ R5 J% q- `Set ObjRSA = Nothing
& R. Q9 w9 I5 ]  H, ^- H" t, v0 gend function
( p) K0 b2 _7 ?$ X) t8 CFunction Decryptstr(Message) 2 J$ X3 K/ a" _; S" U
Dim LngKeyE $ M+ G. k: T, E  p$ w5 P2 X& r
Dim LngKeyD 4 _; X* Q4 w2 S5 H3 [, {% r, `
Dim LngKeyN , u: F, \" a% F# x) C- S
Dim StrMessage
6 W, P6 a$ p% `+ b& R( I8 ADim ObjRSA $ r5 I7 a. A/ V" T# s
LngKeyE = "32823"
4 f" P( _/ W! E2 w, FLngKeyD = "20643" % f, A+ K. X% @  Q1 D
LngKeyN = "29893" * [  N, [( ?! O4 f8 h
StrMessage = Message + d. p( w1 r. P* @8 X* Y
Set ObjRSA = New clsRSA * Y' P( i. y2 O& v: c7 S7 X+ x& a
ObjRSA.PrivateKey =LngKeyD
/ H8 K3 i& h3 g; |$ a! sObjRSA.Modulus=LngKeyN & B" B1 L: v* D
decryptstr=ObjRSA.Decode(StrMessage) ' ]4 Z# S1 G) |8 u: s
Set ObjRSA = Nothing $ `( M3 f9 n. Y: K
end function
! d% m9 L1 ^! W! H+ a4 I%>
* f- Q+ {. G* F2 ]9 n: }8 t===============================================
( \! v: K5 T5 k2 u; T. ^- m$ D* ?# r0 F2 n+ J
还有一个用于测试这段代码的test.asp
7 N5 V# K: Q( a9 u+ O4 _有兴趣的自己搭建个IIS测试下( `3 n9 Y4 b* C
<!--#INCLUDE FILE="RSA.asp"-->
6 h  p1 |3 T6 M# `8 p& {# [1 ~<%
0 n5 `4 Z4 ~" B% }5 w1 J/ Tfunction Encryptstr(Message) : X. j* z: [2 _1 k  s* g
Dim LngKeyE % d6 A6 M' U2 w
Dim LngKeyD ) k# F( ]% c  i; Q4 t  o
Dim LngKeyN
+ }: k. H- S: e- tDim StrMessage ; y5 S; ~7 U& w% F4 Q
Dim ObjRSA
  l: \1 p4 x  r) r7 JLngKeyE = "32823"
  S! Y# Q/ G6 u3 f) tLngKeyD = "20643"
8 Q$ L! @3 s1 gLngKeyN = "29893" + b; @& C  e( r+ D
StrMessage = Message + _! f2 A8 ]: A: l1 m9 N
Set ObjRSA = New clsRSA 4 i% ~: |6 j. q# X# R) R
ObjRSA.PublicKey = LngKeyE ' d" b/ m5 ^, S1 X: Q6 r' p9 p
ObjRSA.Modulus = LngKeyN
' ]! H( i) s" U3 r& p% YEncryptstr = ObjRSA.Encode(StrMessage)
3 w6 E% @! U4 D+ e6 ISet ObjRSA = Nothing
% J3 E/ [0 y- w9 i: W0 C6 uend function   I6 A$ Z. q- o% o$ g
function decryptstr(Message)
- x" w4 W9 T2 LDim LngKeyE ( V0 G2 k0 F( T
Dim LngKeyD
7 V6 @2 o- @/ TDim LngKeyN . W" Y4 F4 }1 J+ r8 j$ B, G
Dim StrMessage
# |* H; B$ f* [/ y- T" FDim ObjRSA
5 T, Q  o1 A6 ~. |: lLngKeyE = "32823" ) w0 n: x8 W, W5 V# ]
LngKeyD = "20643"
1 M7 X3 E6 z" f; v- K# ^8 L+ XLngKeyN = "29893" $ ]) Q9 Y" W7 }) h+ K% w) L# ?
StrMessage = Message , @3 i0 s* Y) n, _, v5 r
Set ObjRSA = New clsRSA
1 U' t0 W. r5 P1 `; Y# n3 \( l) EObjRSA.PrivateKey =LngKeyD $ p' ^8 I2 T/ r$ X8 ~, R. K
ObjRSA.Modulus=LngKeyN
- V& R. D9 t$ U8 Vdecryptstr=ObjRSA.Decode(StrMessage) ! I, H$ r5 t# n7 W2 C& [, x
Set ObjRSA = Nothing
. m* O% r/ d$ f! |2 g$ p* jend function ' V3 V& Q' \8 j
dim last,first 8 {% k5 E0 H) Q" r* v" ]
first="!@#$%^&*()" 2 B5 h; k5 N4 O! H7 k
Response.Write "加密前为:"&first   i/ D# m9 {5 Z0 C" {; x- {1 p
last=Encryptstr(first)   B# e; G7 T1 D
Response.Write "加密后为"&last
, h/ C9 y& p. @+ f$ ~+ bResponse.Write "解密后为" &decryptstr(last) . F6 ?+ \* [8 s( p" c  [
%> ==============================================7 [# B( q& C1 D
剩下的就是字符的对照表了1 A$ g2 p1 Q/ }
===================字符集================
* B& i8 E8 q2 a1 Y+ w1_____6EBB
0 h4 X+ t% e4 D2_____5C1F! u  G* E0 S' c8 E* j
3_____4D75
; z  \! s8 {6 m( X; T4_____26CC& _. m$ L* S: y6 D
5_____4F88
0 ~; \$ R( {# N- Q4 e6_____3F4E" w4 y4 i2 d( C
7_____0A9D
& @: A- R) ?* N- T- {8_____1A1C
4 M) g$ `* n* e: s2 c4 p0 k9_____6D204 e: r# u  w) t' b$ h
0_____1089# l9 m$ J+ t3 \9 U4 g
a_____0F3E' e) M7 W0 w- B4 _% D7 R+ T+ n! h) ]$ D
b_____3159% L- P- E9 K' k/ i7 f/ _
c_____3517
6 I9 P1 R! n3 B) A2 N8 q% g. ?7 G' `$ nd_____419C
8 F# f; E: e, M4 r3 q/ r5 @e_____615C" E$ z( i# L, t; }  b9 r
f_____556F" O: \; E; [2 d) |& z, h
g_____2B7F
0 B1 B; |9 B: A) ]0 K& k4 u$ uh_____0F9C6 Q7 P% T! E7 D9 A
i_____00FA3 r) B7 ]# Q6 r0 J+ [. E8 z' U
j_____5A50
# {; @, P" H, ]4 ~7 d% zk_____2850
+ x- b2 i; S+ ]5 P* Z) r& ll_____3E7B1 ]6 ]* L2 r. D2 V4 @
m_____71C5" l1 q5 z+ L" A
n_____1FC8
% Y% P; @6 c1 k% w$ U, ]( e, `o_____74C1$ ^! l, @: x! Z, A9 R( f
p_____5FB8
& M; D$ G4 r$ a9 ^$ h3 fq_____60857 Z& o7 r! m) G/ p2 `
r_____3AC4
2 ?. y8 [0 j, G. [) a' o) b" R- \: }s_____2F50
- @8 |6 h' @+ ^7 Ht_____36F8, P1 ]# Z& t! k3 L& u9 Z3 l  \
u_____70109 G0 e, v* }- B5 ]0 b
v_____0B426 Q: B$ s, R1 I
w_____1C7A7 P: g) G" I+ Z! W
x_____16F8* M! y- a' e  C4 o6 ?, h
y_____2EE7
$ _4 ?* g9 Z! kz_____5CF3  k* d" W& [# C  O1 `+ l# l" x
!_____6233
9 ]! V1 Y; h0 }# x6 F- K; ~@_____3A45
/ K. U; z6 r# f+ @; F7 a8 S#_____2291- r6 X. W( \) N
$_____5D5C  ]" B+ S2 c& i
%_____09B9
0 u! a6 x: r6 O5 `" S% ?^_____43EA
7 b; _, g6 W5 G8 s' c% Y. _; Y, e&_____62B9
+ y# Q/ f1 O5 d- o*_____6301' \) v# Q$ w* p5 G' g
(_____4659" Y4 [" C9 H& _' t. V% f
)_____5C82

鱼儿无心

收藏了。。。。。。。。