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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm1 y! ?  ?, J3 ~+ B* h$ {
原始出处：http://www.3ast.com.cm
6 O- k. O! q, i* m6 e5 _, n
' ~. @+ r2 n: I- E+ Y! o看不懂的直接绕过7 n6 ~. ^: G+ m' O) V$ T0 Y
加密前为:hwy123456
9 `5 x' u9 I( U* Q4 \& W加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E) u, _  d( \  s

: W" A6 A2 |8 D. ?$ E, V============================================
) q) V' g+ x. f) {上面是当时自己校内的心情。现在已经解破出来了，分享给大家" R! c/ o4 o+ s0 r9 m
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
+ b$ {: F6 B8 d: m  X8 C9 F3 h以下是RSA算法文件
( y9 D& G. Q( m- h
3 v$ i' p+ U$ O; W9 s3 l7 B文件名RSA.ASP5 `1 x1 M6 L4 D
===============================================' P4 c% o9 F/ r* K
<%
% u8 j  }8 I; H, d2 K9 @Class clsRSA & H; J6 b% E4 B/ n# ]
Public PrivateKey
- F- ]$ f7 k% A0 V4 g! r6 LPublic PublicKey 3 y# A8 a# ~3 }
Public Modulus
0 G1 A, I& A' X; i: B  c: y9 ePublic Function Crypt(pLngMessage, pLngKey) # c: z% v4 l% |3 q7 m+ D8 }; Y& P7 i$ n' E
On Error Resume Next * ]! c# w6 W$ b6 I/ z
Dim lLngMod 9 B. M+ L9 @7 H9 X
Dim lLngResult " U0 \  R. j* b
Dim lLngIndex
& E; N; F# j5 h8 C& v# L( CIf pLngKey Mod 2 = 0 Then . ?: c* }" C+ L2 U- M* A6 c: h' Y5 E
lLngResult = 1
' Y! P6 D% D8 `9 }3 YFor lLngIndex = 1 To pLngKey / 2   T' @# M! x8 V/ @
lLngMod = (pLngMessage ^ 2) Mod Modulus . [" c, a! l1 Y" t' [( a( v% L6 A$ W9 R
' Mod may error on key generation
; }5 ]. ]3 v8 R, GlLngResult = (lLngMod * lLngResult) Mod Modulus 4 [8 T; t, r9 }, W& O* p4 a
If Err Then Exit Function ! D: f1 J& l# ^) a% Z9 g
Next ( J& L: i& X  L4 G/ h
Else % g* ^  E( D1 i( y8 ^, `
lLngResult = pLngMessage
  z) t7 C$ f" i% s/ y2 D! c, @7 J1 CFor lLngIndex = 1 To pLngKey / 2 ) n% S+ j! ]) z0 T7 t( S) I; e
lLngMod = (pLngMessage ^ 2) Mod Modulus
' T- b, S; [# P+ \On Error Resume Next
+ x& R* [3 E3 S8 o. o( y' Mod may error on key generation ; o  W' d# s: V* g, Y
lLngResult = (lLngMod * lLngResult) Mod Modulus
" i3 E. g$ @; J$ y9 O/ gIf Err Then Exit Function
3 k5 _+ z, n$ d1 n' \. MNext
' @  d: i- @. H* o% OEnd If
+ o  c! O% }1 q* Z2 YCrypt = lLngResult
9 V7 k0 s" O, E( w# O% c+ QEnd Function
2 L# P4 }6 }+ J+ f) {+ K0 O% G% H, S& Q1 u) n' x% k
Public Function Encode(ByVal pStrMessage)
/ u5 l2 T7 F: bDim lLngIndex ) i% }1 r' y! R
Dim lLngMaxIndex " a  L8 J$ y2 B. q2 [# F
Dim lBytAscii
. z/ h3 y! F- LDim lLngEncrypted . i: |3 Z! F  O) q7 V$ [
lLngMaxIndex = Len(pStrMessage)
5 P8 V$ a! o  a% OIf lLngMaxIndex = 0 Then Exit Function 8 q4 r% M: B8 V' I6 z" k
For lLngIndex = 1 To lLngMaxIndex # y( o* i; B3 O: ]( z) @8 j' _- @1 |( ?) h
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
) k* Z& {0 g/ n0 U3 b6 xlLngEncrypted = Crypt(lBytAscii, PublicKey)   s0 B/ y5 \( Z1 u
Encode = Encode & NumberToHex(lLngEncrypted, 4) 5 C# u1 u" ~' P- K' b8 P
Next
7 l6 i. M' Y4 W. e* HEnd Function
; \$ E" w* c# N7 c% v# VPublic Function Decode(ByVal pStrMessage)
6 v8 ]3 n+ I5 x% n( aDim lBytAscii 1 K, ]& q4 }0 u& T! n2 ^7 ?
Dim lLngIndex
6 b1 i5 `+ E9 T8 ]3 Y: Z# @Dim lLngMaxIndex ! v7 l+ K) ~. G- p4 f; V
Dim lLngEncryptedData # V; h: o: m* j8 k5 b& P. ?  a
Decode = "" 5 d! O2 h: ^9 A: c" j
lLngMaxIndex = Len(pStrMessage)
, H9 r1 s9 x: B) L6 _, {  ^& g2 [8 iFor lLngIndex = 1 To lLngMaxIndex Step 4 ( Z+ j/ i9 O9 @& s3 N0 K
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) $ s, m) B8 n4 I9 U
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) * H4 n% u& i" w4 b" A
Decode = Decode & Chr(lBytAscii)
' @0 {0 V7 K2 T) X0 D+ TNext 0 a0 L, H; i* x0 s5 Z- t
End Function
5 g" Q- G3 z4 t- q) L7 ]Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
8 k1 J/ U  L* e4 n8 q. X" zNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
4 q7 S+ ?" j1 t1 zEnd Function + X& u& p# B7 y% T
Private Function HexToNumber(ByRef pStrHex)
8 w7 L8 M  z' F" AHexToNumber = CLng("&h" & pStrHex)
0 }* y/ T8 |  u; SEnd Function # ~3 E. P* T) H- w
End Class ' X% V8 z: S( ]! N. y) ^5 h
function Encryptstr(Message)
& H% n% g; K; e. Y+ ?$ GDim LngKeyE
5 V2 {% F( H9 c8 z5 V  o& A/ @Dim LngKeyD , S6 R( T) o7 w3 r* W, i1 u
Dim LngKeyN 6 X* ]" X. z2 u9 R2 R
Dim StrMessage
9 Y9 @1 f0 n" R. QDim ObjRSA ) D" k: D% ?$ v  p
LngKeyE = "32823"
3 {- V  Z# @% [' kLngKeyD = "20643" 4 ^' M# c$ {/ w) l4 }3 X
LngKeyN = "29893" 7 I- ?. Y8 V9 c3 x4 d; B, p$ o
StrMessage = Message
5 M* f% i0 Y' _- b. `" G1 OSet ObjRSA = New clsRSA 0 G; d8 `+ i% W8 u6 o. O/ S/ B
ObjRSA.PublicKey = LngKeyE
' L9 ~3 ^* ^% {+ n2 H8 o2 L8 O9 GObjRSA.Modulus = LngKeyN
8 B, [( u! ], f3 SEncryptstr = ObjRSA.Encode(StrMessage) $ ^! f8 [. A2 E- u
Set ObjRSA = Nothing
* M+ s. S6 U8 z9 Y7 N& h( {1 v5 p/ _end function1 H3 R$ }0 E0 ?+ S
Function Decryptstr(Message)
) H4 n, B+ U0 K5 [. x1 _Dim LngKeyE 6 e, \: Y% Q$ n( \6 S
Dim LngKeyD 6 `5 t1 n4 z; E$ U, R
Dim LngKeyN
* w+ n8 u* r! Y: s  ?Dim StrMessage 1 ]1 f$ [3 q! w) C7 x
Dim ObjRSA
# Z2 s  Y( ]2 f# _3 yLngKeyE = "32823" , O" I& ]$ X: Y) w
LngKeyD = "20643"
* z4 g) G* w% d. t: J8 ~1 |; A( NLngKeyN = "29893" 7 h. C9 {* g( q) |% d$ m0 @6 K
StrMessage = Message   Q7 f7 \* L9 X' J
Set ObjRSA = New clsRSA
7 F7 d0 B  h$ F. \ObjRSA.PrivateKey =LngKeyD
8 a* ?+ `  f! ^9 I4 |0 v0 m  ?ObjRSA.Modulus=LngKeyN : C+ j2 T* h) [6 z* _% h* D# Y2 _
decryptstr=ObjRSA.Decode(StrMessage) * m. q0 N  B& w; T+ N9 q/ k0 |$ q
Set ObjRSA = Nothing 1 u6 k! ?( {; B& m
end function . Y5 L0 w, q4 [" l% M
%>
3 D  T( Z6 m. h9 v$ A===============================================, E0 c" q$ {1 G0 M3 v

  c5 \+ x. k' |# l还有一个用于测试这段代码的test.asp
7 B; m) }7 {4 ~, g$ k3 k有兴趣的自己搭建个IIS测试下
  s/ V+ x6 N( p4 o# V. e& l5 E<!--#INCLUDE FILE="RSA.asp"--> % K5 n4 l! t7 H8 \: c0 r5 y
<%4 K& J3 ?$ u' U
function Encryptstr(Message)
+ z- ]' S5 }) v% W  Q: g) u9 [Dim LngKeyE   p% [4 ]! ~4 p# d" Q3 O
Dim LngKeyD
" @0 y8 C* i0 p2 ~. ]( S' QDim LngKeyN + S8 Z/ ?& h% R8 U7 r0 ~( S
Dim StrMessage
/ q, Q! J( w# N% d, C! H; NDim ObjRSA
6 {. t" Q9 ]& @- [2 bLngKeyE = "32823" ! O7 D- T8 P( R4 W  p/ D3 x
LngKeyD = "20643"
5 w; F; X9 o! F3 n* y+ q; eLngKeyN = "29893" ) }+ L% I# z4 N5 q0 [
StrMessage = Message   L. k: w) M3 F
Set ObjRSA = New clsRSA 4 k' k% Y# j4 l
ObjRSA.PublicKey = LngKeyE 9 Q! R5 K0 q7 L
ObjRSA.Modulus = LngKeyN
/ _" o; [* v* B! c- K. u. LEncryptstr = ObjRSA.Encode(StrMessage) * v5 x* i! o4 y3 D
Set ObjRSA = Nothing
: w! {$ |; N1 Kend function
' ]  v4 x) s( J7 Nfunction decryptstr(Message)
0 s. r& S2 k- XDim LngKeyE ' w0 N( \1 `$ `) L) ?1 b' E
Dim LngKeyD
# s3 L: f1 B7 m2 i9 }4 HDim LngKeyN - a4 ]. q* X; s0 F# j
Dim StrMessage 8 A! ]" \- E( `, J1 U
Dim ObjRSA
% c2 p& ^# r. D# [6 nLngKeyE = "32823"
2 j9 _. E, B: K8 {LngKeyD = "20643"
8 v6 o3 T1 m. D" z# YLngKeyN = "29893" 6 F3 q6 }$ M* b( ^, g7 r
StrMessage = Message 2 B" E5 Q" t# @% U
Set ObjRSA = New clsRSA
$ m, B- [' E4 T% w' @1 YObjRSA.PrivateKey =LngKeyD
# K, D, k& m9 b6 hObjRSA.Modulus=LngKeyN
3 t/ G- ~: l9 |4 ?% zdecryptstr=ObjRSA.Decode(StrMessage) 8 C- y  P$ f" ~- V
Set ObjRSA = Nothing , w& l9 ^' n" |# n/ a2 ~5 o+ ?. E
end function
4 r4 W; _) `5 V% k1 {dim last,first 7 y3 O! U, G7 C9 |' ~5 n
first="!@#$%^&*()"
- A( X" H4 {' D: C' EResponse.Write "加密前为:"&first + M8 W" V$ e. A+ G4 f, \$ F
last=Encryptstr(first) 4 [+ g( ]: x, P& q" `7 l8 h* c
Response.Write "加密后为"&last 3 |5 M/ {) G. d+ Q/ Q( g  E
Response.Write "解密后为" &decryptstr(last) % u! u8 V: R: d2 s8 Q
%> ==============================================
$ Q+ h; w/ ~. h. r* J, j' d( L剩下的就是字符的对照表了
: b9 r' D9 j& {+ d8 ^2 x# T( q===================字符集================! L% m- j" F. b6 u$ ^) ~  C# c
1_____6EBB( P9 ]$ z" |7 h( R1 E
2_____5C1F4 L& u/ W7 Q/ X9 Q. d5 G$ E
3_____4D75
0 P& g6 n' {- @# n* \0 V4_____26CC
6 l, [0 n' a  P7 n% Z) j" {5_____4F883 P6 Z+ A: O/ z0 L! B4 Q: _6 S
6_____3F4E% J6 }: b7 e+ t( |
7_____0A9D+ h1 k+ e& h' u- B
8_____1A1C
( B/ D$ m. @; N! p+ o. e$ u9_____6D20; \: `% x3 m7 x- _& E9 d" N! S8 Q. S
0_____10895 f% `( u4 f! z- Y9 I- `
a_____0F3E
, q7 U# B: Y+ Kb_____31594 V  Y8 q! k) f1 p6 l
c_____3517) o7 N" a7 I/ b9 M- I$ [9 p
d_____419C' s+ N/ X4 `9 M' S
e_____615C
7 I1 }9 y) u7 @9 r/ b( I- nf_____556F  o  O% A# z0 o/ n9 a: S
g_____2B7F- k) C6 j  ]+ d0 Y( E3 [
h_____0F9C
5 n4 _3 j5 S6 R7 j8 oi_____00FA8 {& e2 I' H( K6 O
j_____5A50/ f. w# c! ?  ^+ x
k_____2850
1 m, Q- k3 |# G; I# [2 m# R5 tl_____3E7B
5 _  J: V$ z+ A& Pm_____71C5+ f: [$ p, J/ z/ B
n_____1FC8
8 n) J/ L+ c" I0 Eo_____74C14 [8 T1 D" P# v* p
p_____5FB8" e4 r3 F, Y6 U% W( D* |$ l- Z
q_____6085
% D' Y+ X9 S6 s  ^. o! Pr_____3AC4% E' V4 B) ?# C, X6 O& o4 C2 n
s_____2F500 E- N& o  ^( S3 J6 `& x0 r( \
t_____36F8% _" z% l- b1 w6 q
u_____70101 v' H; a1 G0 _6 H+ l+ X
v_____0B42
  `9 o/ ^3 M. ~' x  j- [  ^- _! Gw_____1C7A& V. m/ I& R& Q8 ~- L
x_____16F8
! I: g  |8 m" H5 X. n# Q: ay_____2EE7
8 P# Q* i3 q3 D6 a+ m3 ^- cz_____5CF3) I1 [4 g& G2 f+ u: |0 L& A: \, L+ ^* b) i
!_____62332 i0 S! s! H! _- J9 |" G9 X
@_____3A45- \& k% F0 r4 A) e
#_____2291
7 Y) _5 H8 @; s7 x! L. V+ H$_____5D5C& S+ H; x. Z. x: G4 W9 _
%_____09B9. d3 U( y8 c+ u$ d
^_____43EA
3 n( q3 O: {9 g2 L; o0 s0 v4 u% p! S&_____62B92 F4 H) V! a8 g
*_____6301
1 d! o  n7 `" v# D& N2 _(_____4659- T7 h9 o" U9 B1 o+ x( V
)_____5C82

鱼儿无心

收藏了。。。。。。。。