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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm7 {5 H: X, z( n! ?, B9 F1 ~" B
原始出处：http://www.3ast.com.cm
' N$ v! f) m  e  l
  T8 w$ F& H$ f4 e' r5 Y( d# U+ o看不懂的直接绕过
, A# M( s) }) }) D- V加密前为:hwy1234561 W. O5 V' \9 F) f/ `! J
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
/ z" d& e+ M$ W: S, |) Y
/ W, f0 m% t- L9 C& j============================================
3 d% m( p' k6 d0 \" D. \9 }上面是当时自己校内的心情。现在已经解破出来了，分享给大家
$ S, V5 v2 v. |2 q& c也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法4 N8 f7 H- H6 v+ D/ W
以下是RSA算法文件
; x/ n& O  u! ]3 |  k/ {, ^
! }, v8 b& u4 ]6 Y! k文件名RSA.ASP
$ I* R5 O3 X9 v9 d; j: P===============================================
$ W& w  i0 B& p& I! V4 k/ c% f8 p1 W7 x8 f<% 8 Y  f9 o6 F9 O- V2 ^1 f, P- k
Class clsRSA 8 C0 |1 |0 S7 U8 T7 |  l# ]
Public PrivateKey
* ]( O8 s1 P1 ^% ?Public PublicKey
! p8 J, F; m% L6 \9 }. F# dPublic Modulus
0 P# {5 r1 |' N+ `0 bPublic Function Crypt(pLngMessage, pLngKey)
$ z, {1 N0 _7 F1 I8 {On Error Resume Next 2 }2 c7 V- i) M5 W/ x: G' \3 v+ p
Dim lLngMod 9 A  u3 ?% t" d! s" N  K
Dim lLngResult
% H' T0 A7 p7 D  U6 Q; s* Y4 JDim lLngIndex " y; G. t( ]" R% Z$ Z2 Q( `# Y
If pLngKey Mod 2 = 0 Then
% Y1 L" N6 a' y5 qlLngResult = 1
. D# H6 R% K  F# }4 `- sFor lLngIndex = 1 To pLngKey / 2 ) K- d8 l! @! u2 N3 _/ X- ~
lLngMod = (pLngMessage ^ 2) Mod Modulus ' a1 D* e2 ^. i2 U/ x! M/ ]# D
' Mod may error on key generation 9 f  X1 v2 D1 N7 `/ P; S8 R: I' y
lLngResult = (lLngMod * lLngResult) Mod Modulus
% k$ F* V4 @9 X; `If Err Then Exit Function & s5 c; m9 \3 s& r. n, X
Next # p0 j; d- M7 Z- M
Else
) L* G* x7 V0 f. i3 LlLngResult = pLngMessage , d/ ^6 M5 P4 g# h, L$ ~: ]5 V
For lLngIndex = 1 To pLngKey / 2 5 |; J0 }7 T. a
lLngMod = (pLngMessage ^ 2) Mod Modulus 5 x0 m# ?. c8 ^* N: k3 D
On Error Resume Next
: ]% A- a4 U% I( v; N" O6 C' Mod may error on key generation
0 v8 |) I  f' KlLngResult = (lLngMod * lLngResult) Mod Modulus ; z; n! {9 O. \1 N2 U7 g
If Err Then Exit Function
6 t6 D/ s; y# k% b( pNext
# D5 |" C* ?6 JEnd If
7 v" |9 K: {2 V3 D- nCrypt = lLngResult % f$ p0 r! ?7 n5 ?8 ], K4 h1 x
End Function
- _8 |: }, ]! x+ ?
  h" o; W4 O# {- C+ x  j5 x. U5 }Public Function Encode(ByVal pStrMessage) & d5 u- O3 T$ f8 |( E
Dim lLngIndex ' m- _+ \( C9 i  s+ ~
Dim lLngMaxIndex
6 a8 Q! A* o3 G' G5 k8 Z. s* ZDim lBytAscii * m+ S9 g: H0 S, B
Dim lLngEncrypted $ G' b& x3 {) c3 b4 ?7 Y
lLngMaxIndex = Len(pStrMessage) ) T7 i4 Q7 G5 Q! g
If lLngMaxIndex = 0 Then Exit Function
  e7 W9 v" a! N  ?6 `For lLngIndex = 1 To lLngMaxIndex
; q! @% K8 `8 [& b' MlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 9 j' c. F, M# m
lLngEncrypted = Crypt(lBytAscii, PublicKey) 9 C. Y2 u% B# E$ d% v. j+ ?# u% b
Encode = Encode & NumberToHex(lLngEncrypted, 4) ) R* Q3 f$ z. F  m# e* U: n
Next 5 _# Z4 T0 O) K4 ~0 g
End Function $ S; S; t$ \& m9 _& H0 o  K
Public Function Decode(ByVal pStrMessage)
( ]+ q4 M, W+ a5 A+ v# lDim lBytAscii
# x7 E  K. H6 ^' @, _Dim lLngIndex
) h) v. b- W: v2 P7 w) {& mDim lLngMaxIndex # x6 V" s2 ]2 N3 W
Dim lLngEncryptedData
" e- _' Q  m/ B+ b7 d/ Q6 g3 s1 dDecode = "" 4 S* h  ]1 ~/ p# i. O/ g
lLngMaxIndex = Len(pStrMessage) * B* Y; i5 t# a8 M) a$ {
For lLngIndex = 1 To lLngMaxIndex Step 4 1 ~+ R6 W* C5 }& P( r5 W8 w$ {
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
& s0 u! H5 Z8 S) r/ P% d, |lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
2 a0 h$ |6 u! m9 X1 y7 C4 rDecode = Decode & Chr(lBytAscii)
5 }% d, D; S: ]* w/ U+ ^% tNext - v5 }8 t& ]3 j& o# [' }; E5 r5 P
End Function : G5 N8 O2 V; X; W, w
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) " `1 X. D. T' L1 o( V. e9 g
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) % B' m( |7 E) S: I  s+ }+ G
End Function
& K5 v: F- C' s3 F: ?' V: ~Private Function HexToNumber(ByRef pStrHex) & a/ _6 j2 @. X5 A& o. o
HexToNumber = CLng("&h" & pStrHex)
1 r! l  Q7 U: U9 W+ v$ E" Y; B5 c& oEnd Function ) @/ p+ g( F! r9 B2 A* r
End Class : P; \* N0 L0 B  X: O& q' z$ p9 A
function Encryptstr(Message) . k8 Q( ?: u  w" a2 m1 {
Dim LngKeyE 2 T& F! k5 r2 ^. Y, o3 N
Dim LngKeyD 9 m# C% l7 B8 k& m* i3 L* x4 q& r
Dim LngKeyN - h( _5 O  a4 F9 z) c/ M& o# v
Dim StrMessage
- x  c7 W; K: _8 @5 U# U9 ADim ObjRSA
1 m4 J8 c3 z  C3 Z6 s3 u0 Q) d5 yLngKeyE = "32823"
4 u) I! F6 C4 S, d3 B" jLngKeyD = "20643" ( C/ B& v4 }, o  I' }- I/ I6 ?
LngKeyN = "29893"
6 H' `; ^5 L% m6 I6 XStrMessage = Message * h, _' B: M0 c
Set ObjRSA = New clsRSA . N) b7 ~/ U* q, |& B- H4 i6 |
ObjRSA.PublicKey = LngKeyE
# o( F4 x, y6 tObjRSA.Modulus = LngKeyN 2 g" c; V" z9 u9 ^; j5 e, k
Encryptstr = ObjRSA.Encode(StrMessage)
; ?7 O, ^5 o/ n) _Set ObjRSA = Nothing
0 o7 M% u4 B" X9 Iend function( N5 {" `* c: `+ H3 Y5 S( Y* ^
Function Decryptstr(Message) : H; A7 W7 c5 A9 r
Dim LngKeyE
7 D) G" Z: Q3 I6 Z8 j2 CDim LngKeyD   @3 x  ]7 r% \9 l$ p
Dim LngKeyN . o. {' E) B. p7 u2 \6 c
Dim StrMessage 3 X' l4 q! Y1 T# A: v' {
Dim ObjRSA
, k1 A& A$ h) F( d% {" @LngKeyE = "32823" 0 e5 M$ |$ y9 p$ B- D. Z
LngKeyD = "20643" 2 t6 I0 ~, H) v6 \
LngKeyN = "29893"
4 l+ {! Y( A6 f7 ~& n% w/ R+ _StrMessage = Message . c7 ^2 u$ M( ^+ }7 T4 d1 t% I5 f) X
Set ObjRSA = New clsRSA
. E0 @. m4 x/ e5 U! K% HObjRSA.PrivateKey =LngKeyD
0 ~2 O6 K% j! k& [$ sObjRSA.Modulus=LngKeyN
7 X) G' h' a9 [5 u0 O) l( }decryptstr=ObjRSA.Decode(StrMessage)
. M; O. g; J" v& {; h6 v( B  Z: iSet ObjRSA = Nothing
( t, j5 C6 ^+ H" D/ ^+ i' ~8 dend function # l6 T; D6 M$ {
%>- ^' y" Q1 G; w+ _7 v" p2 @- c- E' ?
===============================================
0 q' l" {% M1 `, h- D5 S* j* w
( ~: r7 f3 Q4 X3 ]3 ]& x: `还有一个用于测试这段代码的test.asp
% [/ u* w. k9 `  h7 M有兴趣的自己搭建个IIS测试下% ?$ {& E6 U% b2 @3 q6 w
<!--#INCLUDE FILE="RSA.asp"--> 0 @8 v8 i4 _" \! d5 r4 O
<%
! F  r! D; s# O8 b# \6 ^* tfunction Encryptstr(Message) & U9 s4 t7 g8 y4 ^: G
Dim LngKeyE 0 d( a1 w6 }$ O4 Z3 W. X( }0 v
Dim LngKeyD . r8 I: _1 x* B% J7 F
Dim LngKeyN
- O! m6 J' J* IDim StrMessage + n9 C% x- S+ F7 f
Dim ObjRSA * G% R5 O0 g  W( T. ]' \& f: K5 C
LngKeyE = "32823"
4 U7 `$ A: e& w0 U6 xLngKeyD = "20643"
& |' Q; a6 t# {( u1 R* WLngKeyN = "29893"
, \, ]6 ?2 l0 N, BStrMessage = Message # a* j: _) W5 e1 d& u3 E. W/ I4 n+ x
Set ObjRSA = New clsRSA
3 A" @$ I" x+ f$ T/ X9 V! dObjRSA.PublicKey = LngKeyE 4 Z7 G. a( r3 M) {! |
ObjRSA.Modulus = LngKeyN 8 q, V4 Q5 E# i! F) Y6 Y
Encryptstr = ObjRSA.Encode(StrMessage)
- {5 \1 e4 d- l4 M- Y8 d5 xSet ObjRSA = Nothing % A$ y: p6 Z2 ^: I4 G: k) c$ f
end function
7 [5 f! q/ G$ N5 qfunction decryptstr(Message)
! T0 T; x! Z$ B9 tDim LngKeyE
6 n/ r( x  g# [. a8 ?) g0 ZDim LngKeyD ) U0 [, {( R  F; F
Dim LngKeyN
% C2 x0 L& Z. o! c5 \Dim StrMessage 1 u/ j# |, C$ x5 @5 `8 o) Q- @
Dim ObjRSA
! f9 `9 @3 u/ Z- Y) X. q9 {LngKeyE = "32823" 5 k( O1 h1 Q+ z* V. A
LngKeyD = "20643"
! N4 }& V. d' B( N- A- G& {LngKeyN = "29893" . c6 d- z+ o9 M( b
StrMessage = Message
5 A+ m* R4 k3 \5 b7 X$ B0 }Set ObjRSA = New clsRSA
3 }5 c* j5 v6 X- o5 j3 D! HObjRSA.PrivateKey =LngKeyD + H$ D. F: c! J6 X
ObjRSA.Modulus=LngKeyN / J* w0 J, c9 h' s- A3 k
decryptstr=ObjRSA.Decode(StrMessage) * a: j. g% ]% X: b) Z# L
Set ObjRSA = Nothing
) B  L6 ]! p2 \) J3 tend function
& [; x6 L+ H. {/ ]dim last,first # X8 _/ G( u2 i7 S' U
first="!@#$%^&*()" 0 Z0 B* G# ~9 u. ~" |
Response.Write "加密前为:"&first - j  B8 C9 P( m
last=Encryptstr(first) 1 G; z! x  i+ w5 {
Response.Write "加密后为"&last : z! ^1 v2 S5 l, R) e; f% b8 ?
Response.Write "解密后为" &decryptstr(last) 9 }& A. E& s( n6 T8 b3 j5 w
%> ==============================================1 U- l# a* L! C; V8 `
剩下的就是字符的对照表了
7 U8 n* R: s7 l0 H6 L+ B===================字符集================
( |; J2 |, q# a1_____6EBB
) t0 u- j) N/ Y: ~& x! D& b0 U2_____5C1F
8 D& R9 r2 Q3 P+ s4 K* I7 ~3_____4D75! `/ D  a7 |9 C# J: a
4_____26CC0 J1 U# Q6 H4 G6 \( h7 W" N  W
5_____4F88
! ?# @$ m, H. q; {. k9 i6_____3F4E& K8 K7 z1 B% ~! c* k" O: H
7_____0A9D' \, l* H! O$ y
8_____1A1C
. z7 d  F( R; p" K9_____6D20+ ?- M) Q6 ]# |& X' v9 w
0_____1089
" g" X2 g- l- `a_____0F3E; e6 h! X$ W; a
b_____3159$ Q  e3 c% c6 b; A
c_____3517: Z* ^' N0 z6 p4 Q$ s4 q% A
d_____419C
) k% r7 |( B) j# z. Je_____615C  D* m& Q. H, Y) C0 |3 w* L' S
f_____556F. L7 G8 n6 M& F- T5 p, v
g_____2B7F
  a; v! ~" N% I: [& O* bh_____0F9C  j9 {3 _  R) d& h0 b- g" W
i_____00FA
5 }6 @- F% K& Y: c; Uj_____5A50* h2 q) p' Y5 V* @" ^3 W
k_____2850
! d+ k& F: H  e; Al_____3E7B& D* c' \7 m6 G0 V7 ]3 M
m_____71C5& m: I6 P' L/ m
n_____1FC8
& }9 t- \7 ]( r3 p% V+ x$ N2 Bo_____74C1
! o1 o7 n  ~8 O' Q. k! i& {2 Ep_____5FB8
8 K3 Y8 ?/ E8 H5 `6 aq_____60857 W' b- s2 o0 t- `. \/ F
r_____3AC4) p9 N8 g# `- u2 q( w) ?$ U2 E
s_____2F50- x* s( r6 P5 b. p/ S6 M0 V; k
t_____36F82 p. A1 _  t: O
u_____70101 g- P5 X3 M; s/ S+ O! w
v_____0B42" O0 ~, g6 Z: Q9 D5 }
w_____1C7A& e( U0 x2 b/ l/ n( c* N8 m8 f
x_____16F8
7 J0 N0 x7 b8 K2 x. Iy_____2EE7: \) B' [# K& r* k  _
z_____5CF3+ E! I+ U1 D2 Y4 X
!_____6233& p  Q# Q& ?- _0 ~) b. s8 P
@_____3A453 d' A7 x  [! K9 F
#_____2291
+ S4 i8 N8 u. T9 g, Q! C- T, |$_____5D5C
: X- e4 F6 {! q2 V! V/ x# t%_____09B9% b5 b. m' \3 [
^_____43EA6 Y* s2 m2 D5 f3 A9 o
&_____62B9& x# K/ v& }7 X& x  B( d+ A4 U; C1 W
*_____63011 _, @- A# n. B
(_____4659, U. ~) ~% b- M4 U7 _1 B& n' z
)_____5C82

鱼儿无心

收藏了。。。。。。。。