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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
' ^: |9 E" X) ^" R原始出处：http://www.3ast.com.cm/ K1 g# u* q0 S

1 J: Y; t9 D. D; M% U3 b看不懂的直接绕过
- e( P8 `5 a6 p加密前为:hwy1234568 z8 ^+ n7 Z4 m# p
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E) }* B- L% H$ M4 A* i& t0 d

# E; R4 \6 i0 v. E" ]============================================. u" J+ d: N' K  X/ O7 z( z
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
& |) F6 k4 P8 Y9 n. h- \2 B也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
) K. B$ V5 ?5 y. n1 z以下是RSA算法文件) q- S9 G8 m7 U' T
8 b- s- V; Z* }4 ]  M1 o/ X7 ~
文件名RSA.ASP
  R. E+ F( N, h8 }1 M7 Q===============================================
1 l0 y' c6 W" ]' O+ i<% 8 h( x. v. [7 G; D$ T, [( L- F
Class clsRSA
* h; `. Q2 r, H2 |0 t5 m0 {+ u' tPublic PrivateKey + [( z: n- }; j$ P. W& @" `  n
Public PublicKey
% J) r$ z$ H; z( N: wPublic Modulus
6 m6 P6 J# W# \Public Function Crypt(pLngMessage, pLngKey)
$ |6 I4 Y3 E( G' e8 G% tOn Error Resume Next $ ~& z+ J2 i6 W5 T5 O
Dim lLngMod
  k7 _; L& U: T7 e- ?% d; q* eDim lLngResult / e$ @1 b/ `" U7 h% Y9 e. ?! z
Dim lLngIndex
5 v. n% m$ M& k9 U4 ^* VIf pLngKey Mod 2 = 0 Then + J. n& u) n; i, W+ M
lLngResult = 1 " R  u( I, m9 B. F$ Z
For lLngIndex = 1 To pLngKey / 2 5 y3 S7 W5 |8 {, g9 K/ F# e3 ]6 C# H
lLngMod = (pLngMessage ^ 2) Mod Modulus ) t# V2 Q8 ?5 a. u- h* K# e
' Mod may error on key generation ! _' S$ V6 h- O: `
lLngResult = (lLngMod * lLngResult) Mod Modulus ! E4 }% Z1 t& R  ^9 `2 T. z
If Err Then Exit Function
/ c+ D5 @$ W! h7 Y( T! sNext
9 g+ W9 g, l7 w+ W7 ]5 p; zElse ) j) R* e0 }3 C3 u, l
lLngResult = pLngMessage   `1 v' n1 z# A- ~$ X( ?
For lLngIndex = 1 To pLngKey / 2
; ^  T* K, C- i, d3 glLngMod = (pLngMessage ^ 2) Mod Modulus / ~! _5 v$ m0 |; L/ P6 v7 J
On Error Resume Next ' x( n$ L+ k0 h! J5 {! N
' Mod may error on key generation
( ?1 `' g4 Q$ P1 F' \. b" C/ HlLngResult = (lLngMod * lLngResult) Mod Modulus
5 Y# h: ^. R2 K, f" }" j: p, CIf Err Then Exit Function ' X" Q9 h0 F6 [/ {2 h
Next ) T/ D: D' C; g; l7 V
End If
1 ^6 K0 ]) @0 FCrypt = lLngResult
' }& Z( K- B4 D. @# gEnd Function
& `1 c  p$ {, g, P% [: z6 w* E9 E1 ?" I; W0 E" v/ ?- f
Public Function Encode(ByVal pStrMessage) $ m/ {' R* O; m" X4 P) M. Z
Dim lLngIndex   V; B5 H5 R: G' h* `  ]6 h# c# P! z
Dim lLngMaxIndex
- ?0 C& _4 N/ g* @3 X. r4 y8 I. HDim lBytAscii % }& }! Y, \8 g: x& i" |
Dim lLngEncrypted 4 N- j, Z/ T" A  H' @9 I
lLngMaxIndex = Len(pStrMessage)
0 ?  m3 V6 P9 ZIf lLngMaxIndex = 0 Then Exit Function
% p  a5 w7 A0 R2 d5 E1 Q& q/ UFor lLngIndex = 1 To lLngMaxIndex $ m0 R0 U) H5 Y  z2 R4 I% J
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
: F: I  C- v, x# q' O7 D+ H4 llLngEncrypted = Crypt(lBytAscii, PublicKey) ' {7 Q+ P4 k. G7 e
Encode = Encode & NumberToHex(lLngEncrypted, 4)
6 R2 c5 n. n; T4 O; `! _Next $ W: |+ z3 z' ?4 W- q4 T+ q8 v5 L  O
End Function # n( @3 m- a8 P: t4 \
Public Function Decode(ByVal pStrMessage) 7 E5 K9 F8 t& L) t
Dim lBytAscii
3 d; A: ]/ v0 E- j$ x: QDim lLngIndex
! f5 U0 V! K: i4 J  X( C5 l) qDim lLngMaxIndex 6 `# W2 f0 ]2 Q) P2 _1 t
Dim lLngEncryptedData
7 X1 K# q" ]9 ~& ?Decode = ""
0 O5 h% o, Y1 j  g# JlLngMaxIndex = Len(pStrMessage)
$ k8 a9 s( c4 o! QFor lLngIndex = 1 To lLngMaxIndex Step 4
) d( \% U) g# ]8 zlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) * x  B/ M; m; b- ]* i+ i1 o
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
0 X5 a8 A* }9 G0 V( y, TDecode = Decode & Chr(lBytAscii) ! {- m3 \5 a( }4 f1 v: U
Next
$ n1 @$ j7 }! ^+ yEnd Function
- p2 V: c. C+ M7 o- ?Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
& m' \9 Z, r9 j* n* I) M3 i: DNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) % ^' a4 c  P) Q. H: |. ?$ E0 v% {
End Function 8 Z' p0 i5 {3 w
Private Function HexToNumber(ByRef pStrHex)
# R' P4 J: @' L: w8 I0 h* yHexToNumber = CLng("&h" & pStrHex)
# _/ ~4 k& j3 \8 LEnd Function   V" C; Q' s  L& X
End Class + U+ S  f- y8 R( P' V1 W
function Encryptstr(Message)
; u, o# \5 X( O: B% RDim LngKeyE % Y9 s8 h& z2 W$ u) B# i" Z$ W
Dim LngKeyD " O# k4 N; ]' X4 q- ~* W
Dim LngKeyN
& r1 X7 g, {8 ~+ fDim StrMessage ) p' ^) c- n, h
Dim ObjRSA , S7 u4 v+ y- \9 ^9 H
LngKeyE = "32823"
" a: t+ v/ B, E0 ALngKeyD = "20643" $ }) R" A4 g7 M1 E0 D1 [, T
LngKeyN = "29893"
2 R- w! W& E7 tStrMessage = Message ' Y) \/ I. f/ `/ }1 k
Set ObjRSA = New clsRSA . D( n: a, \% z4 a+ q9 v
ObjRSA.PublicKey = LngKeyE
/ _2 W9 x& T7 s$ v6 z+ h, o6 gObjRSA.Modulus = LngKeyN 3 D; G' P" u* p6 K& ~
Encryptstr = ObjRSA.Encode(StrMessage)
& E4 [  j. k( DSet ObjRSA = Nothing % G4 x( T& c0 R+ W# L% c. B' p9 ~
end function) d- Q+ N! |& N
Function Decryptstr(Message) % ^: @7 E: ~) @( [2 x
Dim LngKeyE 3 K! |9 C" y+ k. B; r' ?
Dim LngKeyD
. p+ }. p1 l  W4 {) K# k9 bDim LngKeyN 8 I! v' q1 P# x1 r- Q* A8 m
Dim StrMessage - v% S. @, X" y& s( P" l% T* {
Dim ObjRSA
( r  i9 @& L9 i8 a4 `0 D  jLngKeyE = "32823"
0 X4 Q0 y) U) X! Z% oLngKeyD = "20643" + o+ n: K* K; q3 W9 z
LngKeyN = "29893"
' G) M6 C- J* c# M) N8 E8 D6 X8 yStrMessage = Message ) V8 O5 s( A& j  p. I7 A( {) S
Set ObjRSA = New clsRSA 4 m9 m. H( Q7 ]) E/ E  r8 O
ObjRSA.PrivateKey =LngKeyD 8 V2 O3 i1 t1 c) @
ObjRSA.Modulus=LngKeyN
2 [; Q- W0 m( ~. o: U% \+ Q/ \decryptstr=ObjRSA.Decode(StrMessage)
1 I2 m" p" J3 s6 W$ r$ lSet ObjRSA = Nothing   }* c3 E3 s5 M9 u- {2 M
end function
- U: u( R7 ?9 V/ R9 o%>6 C1 a3 o) }3 Q, L
===============================================  `) k2 O2 R3 o, ^& Q

6 K2 y2 m9 a) P2 Q+ K' \; Q还有一个用于测试这段代码的test.asp
/ L2 m! e5 O$ K3 @有兴趣的自己搭建个IIS测试下
! x' J! B, n, Q. [; w3 {$ V" W<!--#INCLUDE FILE="RSA.asp"--> ( D2 `% c: J$ G# K" f; D/ S- z
<%
& f1 K; G" w) m. f$ ?* Jfunction Encryptstr(Message)
( N9 l" c. ]% ^Dim LngKeyE
$ L# ?0 z: @1 {. [3 [9 i/ ADim LngKeyD 3 b0 K$ \/ `+ C7 T
Dim LngKeyN
, L$ {: f7 J* t! C. s$ A; H4 ~# \Dim StrMessage
% m0 s" }+ ~" W1 W' }( {- ^4 C% QDim ObjRSA ! C" C* g6 d* w2 }
LngKeyE = "32823" % r/ ^( M9 ~+ ]0 u3 h- F
LngKeyD = "20643"
! ~& X+ B7 B: w3 x0 P  OLngKeyN = "29893"
9 x9 a4 f- `( D; j3 n# JStrMessage = Message   j, c; U% F6 z' @, ?
Set ObjRSA = New clsRSA 8 K6 }* t: V) N7 s$ m# `
ObjRSA.PublicKey = LngKeyE   y/ O' h2 S! s* e4 s: G  F
ObjRSA.Modulus = LngKeyN 3 X% s+ z2 J: h0 a+ r+ r
Encryptstr = ObjRSA.Encode(StrMessage)
) G! H5 D4 a+ f' \! QSet ObjRSA = Nothing 4 m# y; |4 Q% g' I, S# l& N8 Q' A# T
end function
) A( C9 W# v" x1 w9 ?function decryptstr(Message) 0 O9 e8 R0 |; N3 ]8 D
Dim LngKeyE
- l* K* s0 [# j5 EDim LngKeyD : p5 V& g# Z$ f5 z- s
Dim LngKeyN - z5 c1 h9 E1 Y1 p, T* T; g
Dim StrMessage " ?: d, Q. N% w& X0 V$ p1 m$ |% L# V
Dim ObjRSA
; i" N( C: r3 z; |LngKeyE = "32823"
6 O( B' X' o3 m2 _! ~# K' FLngKeyD = "20643"
* w8 d- v' D& nLngKeyN = "29893"
$ }- `9 ~9 C0 s- b$ Z7 b) F# P& WStrMessage = Message
8 G/ x, `: }: o& g. G0 K) w0 oSet ObjRSA = New clsRSA
8 n: k' ]( Z# Q% p% m7 {ObjRSA.PrivateKey =LngKeyD + m3 }: l7 R, \" i, ^; N! ^
ObjRSA.Modulus=LngKeyN 3 U& r7 G5 X2 f7 p
decryptstr=ObjRSA.Decode(StrMessage) 8 K* k3 c0 ?* ~: k- o
Set ObjRSA = Nothing 2 n: D; s# ^  ^7 s
end function
* u, n$ J$ l4 {5 h$ pdim last,first ( @* q4 P2 ~$ \, W0 ?0 N
first="!@#$%^&*()" 2 V' E6 T7 K4 {- ^
Response.Write "加密前为:"&first
" k. L) y* u) {, |" qlast=Encryptstr(first) - t( L/ v  f6 Q, f5 l; h1 r
Response.Write "加密后为"&last ( s! y/ ?6 v5 w3 D: i
Response.Write "解密后为" &decryptstr(last)
! _$ I( @) c; o6 y: ^: L2 U& `1 r%> ==============================================
: E' v  Z, a% S& p剩下的就是字符的对照表了4 @. ~" J, B6 O
===================字符集================
6 X+ \( e7 o) X6 K0 X3 A2 v- r. _! v1_____6EBB7 F( X) V8 g9 k5 A, R1 Q: E. d
2_____5C1F
1 W5 e2 H' H0 l3 H3 Q$ Q# e3_____4D75
6 V* k- ~) K, d9 j7 B9 f4_____26CC
7 ]# K+ o+ {1 B% Y) r3 d& T5_____4F88! \$ o3 \! C, X1 v
6_____3F4E
5 _' h6 l% }* J1 d2 o7_____0A9D! V  |6 F# a8 e! t
8_____1A1C/ ^8 H  c" f; Y& r5 n  e9 C& s
9_____6D20
: E$ ]$ n# T3 Z$ T0_____1089: s6 `/ G  [$ U$ z3 H7 R( z/ G( }$ a+ x
a_____0F3E
0 \7 ?( R& f3 |1 wb_____31593 ^% y8 q/ \5 w; ~' E" j4 p/ u
c_____3517- J' n: u. Y5 A0 f& L
d_____419C
( P2 F4 X+ y8 d# |, i% C. d' le_____615C
0 F0 w3 i7 B5 r, o, N# cf_____556F2 I: b3 H/ ^& M
g_____2B7F4 N" i: U+ a& X2 D+ c7 R
h_____0F9C
$ l/ N# W" J6 _& ?; wi_____00FA$ |* x: ^3 H7 r8 i& X( ~0 r
j_____5A50
8 e. F4 K" s: p& X) @8 ck_____2850+ G; B4 P( Q, ?4 A8 h2 |
l_____3E7B7 a. |4 E8 \, T( c5 B
m_____71C5; }! q1 A) q+ L- Q$ V
n_____1FC8
- L5 e. g+ x4 H9 `! y& M5 to_____74C1
- L; y1 Z* j' X; g% lp_____5FB8! |3 X9 _0 C* `) \; _& K2 ~
q_____6085
0 K. k' }3 \3 T4 ~9 T8 L5 kr_____3AC4
7 ?" q& W' S, ?  ps_____2F50. p$ \2 p& ^$ j+ s7 e8 M
t_____36F8  g% W* R9 A* ]9 {3 M/ [5 K) f+ _
u_____7010
0 x& z) z  ?, |- w% Qv_____0B424 C4 {6 @2 x. [. L! O
w_____1C7A
& X7 v1 p# m2 n7 L( y# ux_____16F8" w7 o, S2 B" x4 l2 i. n4 j1 @
y_____2EE77 |& A+ X% K8 q9 Z" [
z_____5CF3
, {6 o4 P" I& d! b; u7 e!_____6233! c9 n& h; v! D5 s* o
@_____3A45+ U$ O" }. \. G$ p$ {5 x
#_____2291( M1 V7 l9 N2 s$ f" [% A1 R2 H
$_____5D5C" U/ f6 o/ ~' S$ w
%_____09B9% R& t4 J* R9 {9 g
^_____43EA; X6 W4 ?+ d/ w! n% x" l
&_____62B92 N: @& `- J) \' L: _' b/ x
*_____63019 k$ W5 ?2 v/ C: g
(_____4659
" @0 J, i- E2 ]  B2 O% j)_____5C82

鱼儿无心

收藏了。。。。。。。。