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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm! l/ o7 h& B7 |6 _* M' ?
原始出处：http://www.3ast.com.cm
' [% ]& T9 L8 t4 s  l" A
( k# U( ]) l7 M" A' s9 o! p& Q看不懂的直接绕过7 L. _- }9 _7 }4 ]
加密前为:hwy123456
% P. m; V' _( }0 L+ L加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
" `; p# x% W& U# W  x8 b
; ?2 r* l' u* @) G============================================
  B6 R; u2 v3 O1 q上面是当时自己校内的心情。现在已经解破出来了，分享给大家
* j/ j  V  M% d3 P, Q9 Q也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法7 n9 S  p0 U  y
以下是RSA算法文件" b9 Y# ?6 e1 D0 h1 j2 y' }6 H+ I
" I5 J' a8 w, H5 w9 u1 ~6 Y5 P
文件名RSA.ASP
0 Q" x6 |* w! Z! H0 z! G===============================================
  \% l5 o8 \% E& x8 Y2 ~<% ' B3 N" U- p/ w% x. T5 a
Class clsRSA
3 J5 `6 o, [* w- h3 j) S3 nPublic PrivateKey
4 k' s7 ?' `) M4 S* J: sPublic PublicKey
/ O8 `& A3 W5 g. P( B# CPublic Modulus
, r6 g/ f6 r. a1 ~# W0 W& h, m3 v# n0 CPublic Function Crypt(pLngMessage, pLngKey) ! @7 J, x& ^( o% G
On Error Resume Next ; s3 K6 L1 |1 P  A
Dim lLngMod 2 g8 r; U+ X3 G3 u7 F  Y
Dim lLngResult . t; o; y' ?# d3 t
Dim lLngIndex " f+ n" Z* b7 e0 X
If pLngKey Mod 2 = 0 Then $ R1 {( k5 S0 F  ~0 }& _! E
lLngResult = 1
# F8 e+ H! E( M* sFor lLngIndex = 1 To pLngKey / 2
% z/ K  ^, O0 u# Y1 }' U3 ulLngMod = (pLngMessage ^ 2) Mod Modulus
: o/ C' d- a+ T' Mod may error on key generation
% o% y1 s+ M9 A9 ~; flLngResult = (lLngMod * lLngResult) Mod Modulus : E! P  `. B. @7 J) M! ?( m
If Err Then Exit Function ' S7 O& `; E% i1 o
Next 0 h7 o8 w6 _6 ^* \5 T
Else ; c: P6 h/ c% i1 G& w2 P+ i
lLngResult = pLngMessage / v3 Z5 \6 `2 q, I$ b, R
For lLngIndex = 1 To pLngKey / 2
. e* T6 p5 M" AlLngMod = (pLngMessage ^ 2) Mod Modulus " y' n7 g# m  f3 n. O# z! N& \" T
On Error Resume Next   [# w. Y# T- Q  ?$ U
' Mod may error on key generation
& [: ?' B: _0 f2 JlLngResult = (lLngMod * lLngResult) Mod Modulus   \+ K5 ^% f! |
If Err Then Exit Function
- }" U6 T  z+ J$ x2 {Next
1 U4 y! F2 B! ~( ~) \2 y1 p1 TEnd If
3 ?7 K1 i# Z6 b8 n6 T5 \Crypt = lLngResult # i+ }3 d3 ]) Y5 w. D5 L4 ]
End Function
, H0 Y4 ?  m1 e  }: @' H# g' P1 z( x0 E' i# T+ L
Public Function Encode(ByVal pStrMessage)
. `6 `( ~5 s' sDim lLngIndex
8 I: o8 R7 M' T2 M- B% c/ J4 aDim lLngMaxIndex
, c6 {' I$ f, l* g  h9 O1 D% ODim lBytAscii ( Y; ], h! f$ k4 K+ f: ]
Dim lLngEncrypted
! @; V3 r1 k9 s! q5 p  W1 N$ ZlLngMaxIndex = Len(pStrMessage) . _& |' B2 X1 p
If lLngMaxIndex = 0 Then Exit Function
% V. t4 F7 T) g5 R" q# f0 ?For lLngIndex = 1 To lLngMaxIndex
! {# ~/ g9 ~5 w  z: z9 k4 E& jlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 4 E9 H" q& E( {7 s( V4 [& g- B
lLngEncrypted = Crypt(lBytAscii, PublicKey)
* N2 R0 e% H; @- QEncode = Encode & NumberToHex(lLngEncrypted, 4) ! B  V7 Z+ Z0 O1 D4 Z- {9 r8 G9 n
Next
) A8 q# q+ c7 t' U# ^End Function
9 F! D" p2 p" p# x+ sPublic Function Decode(ByVal pStrMessage) 1 H, O  F! Z, Z, g$ V
Dim lBytAscii
7 Y9 U7 x) K4 p% z: R$ j7 xDim lLngIndex
+ v' g2 t4 ~# dDim lLngMaxIndex
& C# A# n2 r- Q1 `Dim lLngEncryptedData
2 ^" Q  @  n' [Decode = "" * Q0 v! _% L9 ?7 x/ q1 C8 r
lLngMaxIndex = Len(pStrMessage)
# h$ F' g2 y+ Z! d0 R7 t( |# ^! QFor lLngIndex = 1 To lLngMaxIndex Step 4 5 w, ~6 g! ~; s& b
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
3 J# t3 _9 Z( ], L' XlBytAscii = Crypt(lLngEncryptedData, PrivateKey)
- `" Y! A7 D, a$ {: j4 SDecode = Decode & Chr(lBytAscii) * R1 _8 F: A1 E6 S& T
Next 0 N3 F) R9 u( ~3 \' Z; D, j
End Function
: p/ w5 I/ n# K+ X" I* G$ vPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 3 |7 y) J3 h7 y* i5 R, G
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)   L% X7 q) R8 T" h: x
End Function
  a5 G3 h/ `* \2 nPrivate Function HexToNumber(ByRef pStrHex) # d+ F+ A& S* l. n
HexToNumber = CLng("&h" & pStrHex) " ~! F" w- }( t: W0 X) w2 f: e
End Function # k" ?) i8 e/ E9 d6 y' f
End Class
7 G% ~  Z4 T' t* x# x9 Nfunction Encryptstr(Message)
( l; [4 n$ ?6 s" X0 v( _Dim LngKeyE
' y8 {) J% a* B- ~9 p* `* dDim LngKeyD 1 r+ C, [; U2 r, e; H
Dim LngKeyN
# i0 ^/ o0 f1 d0 sDim StrMessage
: p6 E: [/ L( v4 MDim ObjRSA 1 k% S1 S" q$ x% Q
LngKeyE = "32823"   x, i/ o3 {/ Z  S1 \7 t
LngKeyD = "20643"
: j# c* |! U: t' u0 ~LngKeyN = "29893"
' n: h' Z7 F3 U. zStrMessage = Message 1 `; I/ v* ~7 {) A2 {$ k% m# i: Q
Set ObjRSA = New clsRSA
$ @! _# G4 p* V" W4 J( `ObjRSA.PublicKey = LngKeyE 3 w; m0 V. D9 u* Z8 `- B; D
ObjRSA.Modulus = LngKeyN 3 L8 ~5 g8 J9 }% f4 o7 H
Encryptstr = ObjRSA.Encode(StrMessage) 2 G1 z: k6 [) [" v$ x
Set ObjRSA = Nothing
$ p0 I# W  S4 N9 n; h9 _3 k- ?* H* dend function" O3 Z% J/ i! r0 a
Function Decryptstr(Message) 2 T% ?: ?) O( }0 ?
Dim LngKeyE
; r1 @( J6 w7 m8 V: u: wDim LngKeyD : d$ h3 b5 G# ^. ^* `$ a+ T
Dim LngKeyN
' Q/ `1 z/ P  a2 IDim StrMessage
/ J; P( e- c# j  }, A7 qDim ObjRSA % n9 r6 {1 l( h4 X1 H4 y$ t$ M  G
LngKeyE = "32823" ' m; I/ v5 J: m' g/ x: ^2 @5 A. @
LngKeyD = "20643"
6 N" g+ d& R( v# uLngKeyN = "29893"
4 W' G+ `' H0 v# ]5 H2 TStrMessage = Message
/ }- L5 t7 X) p+ B) [& XSet ObjRSA = New clsRSA + i. a" \8 r8 \, K! M+ `, P, Q# x
ObjRSA.PrivateKey =LngKeyD ) q0 Z# o0 m, d% Y3 |) }/ h& M
ObjRSA.Modulus=LngKeyN
9 l# D3 ^) ~' Q9 {' z: x4 T( adecryptstr=ObjRSA.Decode(StrMessage) 9 @9 V4 O5 z9 E5 Z! X: v
Set ObjRSA = Nothing
' r' H; V4 y; u7 Iend function
3 N, X4 \9 J, ?7 X7 Q%>5 g6 p: U- C8 w) h3 Y
===============================================
! {- a" T; q) C8 z1 B( K% S0 W: c) `
还有一个用于测试这段代码的test.asp  t( g- h$ V) a! N' N
有兴趣的自己搭建个IIS测试下) ]/ x8 F9 n( u% U/ J
<!--#INCLUDE FILE="RSA.asp"--> $ J# B# [, k* C
<%
8 P: k9 F7 ]9 K$ g2 \; {' @; ffunction Encryptstr(Message) # V+ ~: Q7 G; }" y; \
Dim LngKeyE , i0 H5 ]' M( L& U7 F" X6 |: q* O; f
Dim LngKeyD
4 V) H  h3 x5 n- R# k+ J/ DDim LngKeyN
  @+ H7 [$ }- a' R" s# ]Dim StrMessage . Z! u4 B4 W' v
Dim ObjRSA
' I, |, t# ]3 `: JLngKeyE = "32823"
3 E: M7 x& n/ o1 M, U4 Z& g" t1 }LngKeyD = "20643" " i8 @" ?- I4 E& w1 |+ K" C$ m% L
LngKeyN = "29893" : m9 F, q6 U. v; D. r7 X
StrMessage = Message 3 }, M: ]3 C! {
Set ObjRSA = New clsRSA
: Q, }+ ?, i9 x, N: g7 `# A% u: K8 aObjRSA.PublicKey = LngKeyE # L7 M: M2 S2 l' F8 m
ObjRSA.Modulus = LngKeyN 0 l% F. K6 ?! b# O0 [+ Y0 y1 m
Encryptstr = ObjRSA.Encode(StrMessage)
) Z7 _2 e$ l4 gSet ObjRSA = Nothing
5 A' N6 z) P  v) T) p1 k( rend function . y% h6 ^" W# k9 b& u2 I4 w
function decryptstr(Message)
# X0 h! D" O7 E" Q5 _6 z) h$ xDim LngKeyE 1 Z7 t- x6 a2 B& ?4 [  V
Dim LngKeyD + h& L6 m' m7 |  |9 L0 l3 t  Y( I
Dim LngKeyN % N4 ^3 P; w0 R8 T8 h
Dim StrMessage
. P9 I6 K% f4 @3 jDim ObjRSA 0 ~% E4 b& H; }9 n2 y
LngKeyE = "32823"
: Z( \: k, P& N% E, Q& `LngKeyD = "20643"
  W; T6 j# K, m% ?7 vLngKeyN = "29893" 3 S8 H/ X, x  z, e; w- p, _
StrMessage = Message   r$ W( q  D& ~' K
Set ObjRSA = New clsRSA ' n" `" z# C) I& _
ObjRSA.PrivateKey =LngKeyD
/ Q& `' G. S8 t2 d$ ~% zObjRSA.Modulus=LngKeyN
4 O. S0 {% n* }; W; D8 g; Rdecryptstr=ObjRSA.Decode(StrMessage)
" s3 y6 ?1 U+ Z  M  @  |- {Set ObjRSA = Nothing - P* ?  |3 W/ l3 S
end function
, g* f8 p7 [% l9 D1 T+ _dim last,first
1 X( T% I! O+ r# o2 tfirst="!@#$%^&*()"
( L- z' p: {0 W/ ~! T" XResponse.Write "加密前为:"&first
" X- F0 k) p% x& T* plast=Encryptstr(first)
! I5 s  u/ f* j% J! u) WResponse.Write "加密后为"&last
" H8 r. y% U0 ZResponse.Write "解密后为" &decryptstr(last)
( U) a/ ]& S3 d3 h" X7 v8 K%> ==============================================
6 j/ l6 R2 h) b6 d剩下的就是字符的对照表了" K! Z  ]- [2 X& N9 `2 B
===================字符集================* N9 Q6 y: W! z" r3 s3 _4 }2 i
1_____6EBB3 N+ g# A. `" c& R2 T
2_____5C1F
& X, ]$ v3 k/ q* G3_____4D75) z4 W+ _2 |* v" S4 x! s
4_____26CC
) ?) t; ^" L4 g; U5_____4F88
# g8 `8 H3 n4 l; l1 ?6_____3F4E
/ H: l6 p& v' o7_____0A9D
1 M8 j; ]; C5 ]8_____1A1C2 A' `3 a7 z- d* z- p5 y( z
9_____6D20
7 q% `- Q# f1 n" C  N0_____1089
8 t' N: H, F8 `( [% O$ Q4 ia_____0F3E8 z" p7 ~: I7 r  m8 u, Q2 I
b_____3159
- J- N" r. d( S! Fc_____3517; K& [6 ?+ a: L% a9 F
d_____419C
6 T$ T4 y/ L* ie_____615C8 T5 e) C. b. N2 o
f_____556F' T& [$ I8 k2 K: [; B
g_____2B7F( ?1 e# k: C% D1 F" M
h_____0F9C! Y2 E( H5 X- t- Y1 i( i
i_____00FA
0 D. T+ [! m8 g5 w# z& r6 fj_____5A50
2 h) @! \+ N- T  G  Sk_____2850: }! m) U0 o2 Q3 l/ C, g( ^
l_____3E7B
  d* m. V7 @8 o' }( Dm_____71C5' s* O) M; O6 _/ v4 `% v1 Y' h
n_____1FC8: w5 o0 D1 A* S& w; E6 i  }" {6 Q
o_____74C1" z/ n, l9 \: R0 Z. w  B* N' y
p_____5FB8
5 ^* K9 a. z! k, W$ Q* M# E3 \% fq_____6085  O$ F9 A3 {' N( N) p2 ?, \+ W
r_____3AC4' g. K  e; f' @; U
s_____2F50
4 P: f& d5 b* S" F7 Z: p$ St_____36F80 B& W! K5 m" D# Y
u_____7010) [% V, y  i# J- c: N6 v% j
v_____0B42
7 a  j6 u" v- Vw_____1C7A
# V+ p4 a. V( Sx_____16F8
* m4 K: H) O7 S/ y# |1 g( vy_____2EE7# z0 ?. X6 E0 S5 [. t7 F
z_____5CF3& U) `2 D# V& q/ u1 p
!_____62335 {: ?8 U5 t* W
@_____3A45, ~+ f: E8 Z# a" D
#_____2291
3 V& _+ K+ @9 j. u5 J# \  K$_____5D5C
  Q. A: o8 T/ ^2 c! C%_____09B97 I6 s. f& Q  e) H( X* m: y/ s
^_____43EA
8 I* F. x0 u1 f% ^8 R. q&_____62B9
) u* i' `! `& m*_____63018 M- Q. T: L; }( f
(_____4659
2 u0 X7 O$ K) z# s8 I, O" C& g2 y)_____5C82

鱼儿无心

收藏了。。。。。。。。