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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm8 {6 R1 ]1 ?1 U0 E
原始出处：http://www.3ast.com.cm
. I) v/ O! P5 _3 t1 i; e; E; q* ]2 V* [# f6 s8 n# U% f
看不懂的直接绕过
0 O0 N- W5 }5 I" j. u) \) g6 W加密前为:hwy123456  p; M; \6 v) T0 L0 X
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
5 o& A6 }: ~8 D: c( q/ t( W$ X' [6 s( [7 o1 q% j+ J- k& f
============================================
& J& t7 ^3 n5 t4 q8 Z上面是当时自己校内的心情。现在已经解破出来了，分享给大家
+ b1 `7 J- ]: m( i; n' r% K也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
1 [9 K% P! [* y1 K5 U以下是RSA算法文件
4 `+ J- m9 A& J# G( j6 [1 E' o$ N/ @+ Y! a6 O
文件名RSA.ASP
7 \' u& R- L* h# O' h% b# |& K# O===============================================( ~6 E% M) ?6 A- D( h
<% : ~. }( n- V  a# {/ I
Class clsRSA
6 l; S! A5 a8 bPublic PrivateKey , W: x* \- L+ S
Public PublicKey 5 p+ x" b: s" S
Public Modulus
( K5 L" ~  @8 J7 V$ DPublic Function Crypt(pLngMessage, pLngKey) " H3 n$ f: a! I2 K  n
On Error Resume Next ' @+ |; A4 [7 G7 h, }- @
Dim lLngMod
: G- [  A. z! J  S: x& X+ X7 I+ gDim lLngResult 9 a1 {, ]' C& p2 q2 N1 f
Dim lLngIndex
) i& U9 N6 `. {  lIf pLngKey Mod 2 = 0 Then
" A6 k' S( ^& AlLngResult = 1 " A& I' R# S# c; f7 E. |2 g3 k- M
For lLngIndex = 1 To pLngKey / 2
* ]' b% t! F4 }% I$ ?lLngMod = (pLngMessage ^ 2) Mod Modulus ( H2 c: X2 A$ m# W" x
' Mod may error on key generation
' J# A# j, [& c2 KlLngResult = (lLngMod * lLngResult) Mod Modulus
8 u% D+ I& O. [: KIf Err Then Exit Function
+ f$ }& o/ o: \- i- vNext # o: F  g* g4 T, T$ @  x4 I
Else 3 \+ i9 X6 O6 v- r& V
lLngResult = pLngMessage % H- Z0 L% [8 G7 _$ a7 [2 t- \) r
For lLngIndex = 1 To pLngKey / 2 # h" R( X. r- c1 o5 X
lLngMod = (pLngMessage ^ 2) Mod Modulus ) l! _$ O% E0 B# h7 W( F, ?# N* @# L6 N
On Error Resume Next   a7 t# u5 v* a6 f# V) S2 u
' Mod may error on key generation
1 C/ T- ^0 l" k0 }lLngResult = (lLngMod * lLngResult) Mod Modulus : D* p! r; [4 Z$ g9 H* J
If Err Then Exit Function / V/ g# H3 R7 O: L1 @; ?
Next
: G" i. p: M) t- t7 C' W" Z. H0 c" kEnd If
# n1 _$ Y4 N' M; v  PCrypt = lLngResult : K7 o$ q( X6 a) W3 P
End Function$ Y' L$ h+ r$ [( D$ I  N' f7 W
& K6 B3 R- h, q- u& _
Public Function Encode(ByVal pStrMessage) 9 y% d4 N- `9 F
Dim lLngIndex & n# ?2 t. f) q9 N6 s2 |7 t' N
Dim lLngMaxIndex   r6 r" t. n% n) \
Dim lBytAscii
  d( ~  A% g3 ]7 R4 [9 }, NDim lLngEncrypted ; s; u" L, W; I- q% ^! i
lLngMaxIndex = Len(pStrMessage)
5 s7 N+ d! X' \& w% P* a) G* W, _If lLngMaxIndex = 0 Then Exit Function
( Q4 u5 Y1 n! dFor lLngIndex = 1 To lLngMaxIndex
5 r0 e" `0 Z6 k& \% ?lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
) \9 @: e2 _! O3 F8 UlLngEncrypted = Crypt(lBytAscii, PublicKey)
: i* x8 ]8 O5 m+ u* u  c' MEncode = Encode & NumberToHex(lLngEncrypted, 4)
. S4 r! a* N9 P# fNext
- t  Y! y. E' d7 M& ]$ mEnd Function 0 v* y# [$ z6 I6 q/ W2 g! T* m
Public Function Decode(ByVal pStrMessage)
9 E, u# _) ^: n! ?6 sDim lBytAscii
1 G7 u/ z  S! L( o' h- r+ RDim lLngIndex
8 k$ U! n- f, O6 hDim lLngMaxIndex ) k$ y+ W8 L# k( u1 [
Dim lLngEncryptedData ) Z; c1 g+ l% L' q
Decode = "" ' b4 q# f& p9 Q, p: b; z
lLngMaxIndex = Len(pStrMessage)   d# ^5 e$ l( q: u# k
For lLngIndex = 1 To lLngMaxIndex Step 4 + n+ A5 M/ T! _+ Q* o
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 4 u' x% f& ]. _, b: T
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
6 [& A: m9 I% ~" E2 s4 U, fDecode = Decode & Chr(lBytAscii) & `& x2 F8 a8 K4 Q: U0 [4 V
Next % w' i6 T+ I5 f) g. S0 y2 `
End Function
; c( g7 R. L0 |( A" }2 a! \Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
3 P; ~- T3 B( ]1 uNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 9 y: h4 Z* J+ ~5 K. I2 p
End Function + K: z$ ~* g& c+ K- |3 z& T
Private Function HexToNumber(ByRef pStrHex) 1 R: a  J' ?" Z) z
HexToNumber = CLng("&h" & pStrHex)
+ c! U+ \* v( EEnd Function 5 l3 Q' w; z5 S: P
End Class
' c- k# ?: Q! |, \function Encryptstr(Message)
9 j+ ~+ q% w/ `Dim LngKeyE $ g0 j* h# m1 @- u
Dim LngKeyD
1 x0 z9 J' J7 {1 a4 m% @# PDim LngKeyN 1 `! o1 X9 G& }, _6 @: H) M1 q
Dim StrMessage
) `. @1 ^/ i. R  d9 XDim ObjRSA 0 u: `6 H* \; J  Q  q
LngKeyE = "32823"
& _9 W4 [" d8 |$ Q+ [LngKeyD = "20643" 0 B9 V! z. b' @7 a$ e& q
LngKeyN = "29893" 3 ^: N+ I8 |+ U5 y" m! N
StrMessage = Message
9 B: b+ D6 V% o" mSet ObjRSA = New clsRSA 3 D$ N+ X7 x, Z7 o0 h3 n
ObjRSA.PublicKey = LngKeyE
) U, U! `% J; u% r, j/ u0 r0 B2 rObjRSA.Modulus = LngKeyN 0 _/ G( m) O0 o" `) j6 t3 z
Encryptstr = ObjRSA.Encode(StrMessage)
  M! {) P1 h4 L. [  ?5 q, ]Set ObjRSA = Nothing
( k/ E" s0 D3 W) eend function
: m( o7 }3 A2 |2 J) G+ _( QFunction Decryptstr(Message) 3 @2 X. Q% ?" J9 U: I
Dim LngKeyE . _8 r% p) J) C$ y
Dim LngKeyD 2 I: E0 n7 O% N) t* `
Dim LngKeyN , G9 K! @' d& _; u, s
Dim StrMessage
0 {2 h; V' S# u6 B& hDim ObjRSA $ q) T. E/ w/ I# V* m
LngKeyE = "32823" $ u; }3 D2 L; a9 G
LngKeyD = "20643" * ?; g: Y9 ~: w  e, Z8 Q+ E" I) \
LngKeyN = "29893" # g$ o! V; p2 v/ @* P% V& N
StrMessage = Message 7 J+ O0 ^" a$ m+ s2 Q
Set ObjRSA = New clsRSA
- v0 Y: `0 B( B8 f, SObjRSA.PrivateKey =LngKeyD 1 D% E2 h& b# X2 _* E; K4 ^2 u8 m
ObjRSA.Modulus=LngKeyN & Y4 g3 {$ r+ m/ A  t9 Y$ Q3 p
decryptstr=ObjRSA.Decode(StrMessage) 6 Z' {. s4 n1 T
Set ObjRSA = Nothing " B: S) b/ g6 l! p- X
end function 5 w7 V+ [% @8 d  G
%>
) z0 e. Q5 K  J9 Y* E; ~5 P  K8 h===============================================
3 F0 }+ O; S8 r) r  ^/ t' G( p$ E
还有一个用于测试这段代码的test.asp
; d: Z" O7 |7 V6 c: e有兴趣的自己搭建个IIS测试下
0 L* ^) ]) y$ v8 [# m# h" K0 F% ^( M<!--#INCLUDE FILE="RSA.asp"-->
2 q+ W) v; d: ^8 X, U  _0 ~# r<%
. n8 J% M2 n9 V0 ^' E% M3 afunction Encryptstr(Message) $ ]/ K/ `' {, H5 W/ N5 {
Dim LngKeyE 2 {8 A6 \) U' W( u; S
Dim LngKeyD
, x# ^4 G8 p* v3 [& NDim LngKeyN ) p% E! j% E  V- K/ N4 O
Dim StrMessage
, R( Z# H  Q% v" f7 jDim ObjRSA ( o7 b0 }/ |, k# `
LngKeyE = "32823" 9 O1 f" Q1 Y0 ~# l; z: p
LngKeyD = "20643"
0 P8 ]0 ~. h6 `& ^LngKeyN = "29893"
& t% j* G" L  r' CStrMessage = Message 4 F* y$ ]; D! P9 l9 m* O2 Y
Set ObjRSA = New clsRSA
6 _* X8 }7 X5 _# V0 [9 {3 ~  fObjRSA.PublicKey = LngKeyE 9 o* Z- V8 f# P7 r  c) A9 O1 W& _% f
ObjRSA.Modulus = LngKeyN
4 F' J( w7 E, U! PEncryptstr = ObjRSA.Encode(StrMessage)
! s7 W* r( C8 U( L+ N6 CSet ObjRSA = Nothing
0 V6 g9 m+ C: r7 y5 N* `end function 5 S. i; ]  W/ q1 w- x) y# ?
function decryptstr(Message) 0 n7 e) y; z; c7 ?  l# n1 g7 _
Dim LngKeyE " D8 r( L$ C+ o4 w) i; ]) W; d8 l
Dim LngKeyD
+ o, R& J' R% `/ nDim LngKeyN / w$ ^1 |2 S, x* g
Dim StrMessage
7 M$ A3 T& I( q5 p* x' F8 _Dim ObjRSA / j6 I% k$ ], D
LngKeyE = "32823" ; J- O! p! q1 |& v* ?: s0 i! x# r
LngKeyD = "20643"
+ z# `9 k- U% E( \LngKeyN = "29893" 2 Y: T2 j  R- c& |2 R
StrMessage = Message " {7 H2 |: I1 ^* O; e* G
Set ObjRSA = New clsRSA
, k" t* D, L2 I9 N% rObjRSA.PrivateKey =LngKeyD
4 h# w5 m- c/ N9 v# O1 `" yObjRSA.Modulus=LngKeyN 1 T# [5 @. _9 W) t6 e3 o
decryptstr=ObjRSA.Decode(StrMessage)   h' R' I2 e0 _4 s* [. M% c& [
Set ObjRSA = Nothing $ h8 j% R4 p' R  F
end function
# m/ B3 _' o  r8 o& P0 L3 b5 odim last,first
' |" U8 G7 q/ [first="!@#$%^&*()" 0 h9 {. Q* c" N& j* {, U
Response.Write "加密前为:"&first * C& r% e0 }% S8 p' D
last=Encryptstr(first) : V4 g; u  L! D9 O' t  i# Q/ [
Response.Write "加密后为"&last % w+ a& N: S4 Q! r" a% R. H
Response.Write "解密后为" &decryptstr(last)
3 N( Y9 U" {. J5 A9 ~%> ==============================================' b% Z; m! _6 c5 ~; _1 B8 J5 V! i
剩下的就是字符的对照表了' r# f" q: R* E) d
===================字符集================6 k. z5 X  t: p$ b
1_____6EBB* _3 X, x1 T: \
2_____5C1F6 S' v/ b- a( i& w4 k
3_____4D75* [$ N1 e. `9 G: k" _. {7 u4 [/ ]
4_____26CC/ S* \& J, e. Z4 \
5_____4F88
( c  D2 i. b  |; v: K# q. c6_____3F4E& y$ H/ w; J) P; ^' U8 n8 r+ m
7_____0A9D
4 M% u" m- ^: l2 J8 _; I# w8_____1A1C% W5 H, z2 q  w' B, r
9_____6D20
4 w: h& n& V; h7 ^( H6 V% j0_____1089
% x. G4 y- M( \9 U( ba_____0F3E
8 T' g) n) b! S6 |8 Xb_____3159
9 R. r( M9 }1 y4 e: f# B4 b; D6 dc_____3517( i6 s  k4 `4 W  g0 _
d_____419C+ p# A, p; T" n2 E
e_____615C
. Z6 a) ~" v( s% d# Z( x$ mf_____556F3 R) x3 q' A0 Y
g_____2B7F. @! H$ V5 N5 @" w. R! l
h_____0F9C
' R- p. }' v$ V  Z, F& H. D( |i_____00FA
% T8 J. V2 I4 [: }3 _j_____5A500 ~  ^; g" P9 D. ~' }
k_____28508 c( J# s* A0 o
l_____3E7B  ^1 |% \7 o: ]* s; H/ _% A
m_____71C5, P! i$ d& z9 i' N
n_____1FC8
+ l: q1 {; d( C" k4 A" v/ zo_____74C1
, E, e+ ^2 D+ }# dp_____5FB8
. n  S# c  |- R2 f# Uq_____6085
0 k9 ]; O0 O: Q4 c2 c* Ur_____3AC4# J1 u3 V, F8 A2 Q/ R/ d7 Y0 E
s_____2F50
( g1 x" R! i- i9 z+ E/ ht_____36F88 y% l( T5 T% D. E4 e2 L& m( c
u_____7010, X! l9 [# g# c% A1 r# W  W7 J
v_____0B42
& L7 o2 H" r" y# b3 M6 X: I; Aw_____1C7A' B7 D* q. D. D) ^& |5 v. X
x_____16F8
5 y& Z) L( @( A4 _: Jy_____2EE7
# n# J$ l" H# o; _# qz_____5CF32 y) J/ d) H! P; z$ V) k
!_____62337 [9 n& M  s+ @  K% B
@_____3A45" Y1 i& D" p: }
#_____2291  G, i( a* ]- y- k
$_____5D5C6 k# ]' K+ Q# j, P; {+ i8 H& u
%_____09B9) k* ~; X' g6 \6 W
^_____43EA3 p( x2 `* S' |  h
&_____62B9
$ @+ Z5 l1 {) \  o7 z*_____63014 P3 X2 [7 }3 C% j7 E, \
(_____4659
3 R+ Z* B+ ~4 e% i) @2 s% z; b)_____5C82

鱼儿无心

收藏了。。。。。。。。