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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
* z2 t: J  A# N5 g/ P; O% B7 P原始出处：http://www.3ast.com.cm
7 f' ~& F* y  d! ]* W' j* z, u+ Q2 t- E/ p
看不懂的直接绕过6 {  K; \" i1 j$ s% N7 R# j+ n7 c
加密前为:hwy123456; o; z. Q, g: z" u5 [0 Q0 r
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
! Q! u8 ]* ]; e4 l' P6 A
4 q* ]" }7 f$ a) W============================================
% C8 ?: V3 C/ n  g6 \2 n上面是当时自己校内的心情。现在已经解破出来了，分享给大家
: v$ j4 h! ^; n' p2 b% O: t, Z也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法: W9 J: m9 k; A: ~3 I5 _/ P
以下是RSA算法文件
) T/ Q. l( {, X7 k6 [/ ]3 C- {0 l3 n3 L" R
文件名RSA.ASP* Y+ N% x: [! Z) W7 K* Z' F
===============================================
" R: c& ]0 ]: p' n& G6 }; z<%
6 A- t# G8 K1 I5 RClass clsRSA
* P1 K$ ]* T: P, i8 O6 T9 wPublic PrivateKey
. T/ d  {# k8 v* u9 Z. Z: BPublic PublicKey % Y) E" |9 i0 H9 B& W
Public Modulus ( _7 A" W3 s3 r
Public Function Crypt(pLngMessage, pLngKey) 1 _# G/ C! r5 Q& c5 D& o: G& P
On Error Resume Next . E1 _' V+ I5 j0 Z
Dim lLngMod ! D7 Z  Q$ l: e$ |8 c, v# J
Dim lLngResult
7 L" ]. o! v+ }$ r5 k. WDim lLngIndex ) q, n& Z4 ?  t' J
If pLngKey Mod 2 = 0 Then $ m/ C9 `- J$ d& B% r4 {- B4 {
lLngResult = 1 ( v2 B( G# x. ?$ [( q, b
For lLngIndex = 1 To pLngKey / 2
, c- X3 Y0 f8 x2 [5 QlLngMod = (pLngMessage ^ 2) Mod Modulus
- M/ v0 s4 D1 B' Mod may error on key generation
9 K& x- x* Y5 QlLngResult = (lLngMod * lLngResult) Mod Modulus 0 i; J3 M  l" B7 c/ R& ]
If Err Then Exit Function
0 d( Q# ^* T/ ^5 T  `Next 5 }+ [; `4 P" B" b7 a
Else   W$ ?0 I9 l- H7 ?6 [  x
lLngResult = pLngMessage
8 D' k8 w+ {9 [For lLngIndex = 1 To pLngKey / 2
% m( w6 R$ m) T0 w; {  P. `lLngMod = (pLngMessage ^ 2) Mod Modulus
6 {/ ]+ k# I" h3 H( A& p4 a# GOn Error Resume Next
. |5 m* D# j, Q. ^. S3 @- `$ h' Mod may error on key generation - W$ u: j. U4 A  N' v
lLngResult = (lLngMod * lLngResult) Mod Modulus
) X; @& k. m8 j/ S( QIf Err Then Exit Function
- t6 G- }: S; V5 qNext
% a* L5 r" G% {6 s2 k( m. pEnd If
' _: G/ S9 Q3 R; h2 L2 cCrypt = lLngResult
, J% b* L6 y4 m2 x( qEnd Function3 H! F4 o5 P8 O" j, h
, L/ j3 e2 d5 u2 J; V: a& ^0 U
Public Function Encode(ByVal pStrMessage)
: P! d+ [. D* [9 y" [; XDim lLngIndex
2 [# O6 A$ h2 uDim lLngMaxIndex
' x( ]5 z, f; p7 WDim lBytAscii - }; a( e. ]# d  ]3 m! \) V1 n
Dim lLngEncrypted
; r/ v) ?3 b" MlLngMaxIndex = Len(pStrMessage)
. B# ?- D( a1 g% N0 K$ O- ?% ]If lLngMaxIndex = 0 Then Exit Function # N6 Y' |+ m4 c- y  J7 n; p
For lLngIndex = 1 To lLngMaxIndex . X' u+ M, R9 J0 R# e9 x) i. m
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
, t' X" h- g( C0 q9 {2 F) n$ blLngEncrypted = Crypt(lBytAscii, PublicKey)
( b9 [$ d" u1 s$ t, [2 xEncode = Encode & NumberToHex(lLngEncrypted, 4)
( r5 E5 c. a& Z2 |5 ]+ e8 qNext % R0 Q& @) q% u/ A: ^
End Function
. l# D" ~0 v' y( h0 T2 p& PPublic Function Decode(ByVal pStrMessage)
2 H3 `. K' W; P( kDim lBytAscii 6 h3 _* N9 s5 Y+ w3 Z9 X4 X  R
Dim lLngIndex , V5 x4 z1 x  P8 ?% z3 m+ M2 k  ]# X
Dim lLngMaxIndex
1 R/ `+ h. I% z9 W$ R. hDim lLngEncryptedData
/ M' V7 d. N5 y, J. @: @3 JDecode = ""
  H7 ~. f! ~9 f4 J3 v7 zlLngMaxIndex = Len(pStrMessage)
; b! S$ x6 A; A. W+ U! sFor lLngIndex = 1 To lLngMaxIndex Step 4
5 [. Z9 N, |) I% H" Z" |lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
6 P! u1 U" l5 u+ p  ElBytAscii = Crypt(lLngEncryptedData, PrivateKey)
% r) L! k5 F: }0 ]Decode = Decode & Chr(lBytAscii) ( v/ I; Y" f) {* Y$ A
Next   V, W, |4 }; Z! _# ~! P6 P9 X
End Function
5 |! P% b: j7 L6 u. k9 JPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) - V1 B1 |# |4 X5 k% e2 Z' z9 k
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
: |/ c# G3 A) [" z; C4 \3 I- q/ v4 GEnd Function ! p' ?4 R& t- g0 e! H  z
Private Function HexToNumber(ByRef pStrHex)
" S8 v7 D5 ^3 |) D3 a+ zHexToNumber = CLng("&h" & pStrHex) ( W) h" b  L) M: G
End Function 3 U6 d6 H; G" y# V! R5 c
End Class 7 R. p  a1 u4 y4 l' m; R6 ]
function Encryptstr(Message) 6 f. R: i* W" f, v' b# \# s- {
Dim LngKeyE 7 p) t, c0 ?$ G, q
Dim LngKeyD
0 @" M3 k8 A" V8 u3 sDim LngKeyN
. ]! W) `2 o, C8 IDim StrMessage
& `+ Q8 y* c5 \  b& jDim ObjRSA
% \5 X& M% j& S* [' B$ l2 u: x; tLngKeyE = "32823" ( g; R& t' Y6 {$ p  G* j, s/ {/ S
LngKeyD = "20643"
; O' d- S- \7 x- a. dLngKeyN = "29893"
$ ?$ r6 R4 e9 I  Z0 TStrMessage = Message : t+ X- m0 Z, Q! f+ n' U: W# d
Set ObjRSA = New clsRSA 4 t% x  ?$ @3 l/ h$ z- C+ X* ~# ?
ObjRSA.PublicKey = LngKeyE ) \7 c& ]) p' z8 Y' ~# ]
ObjRSA.Modulus = LngKeyN 4 s# F5 g$ K+ ^: s. g- x" n8 s: ]
Encryptstr = ObjRSA.Encode(StrMessage) 5 R* R5 ?% k$ u( @
Set ObjRSA = Nothing
& w2 |! \2 l4 y( d' \* i: zend function
8 {; T$ H# c/ T+ HFunction Decryptstr(Message) 7 s) Y4 |5 c* z2 t4 _& E! F
Dim LngKeyE 2 F3 V1 z/ }" r1 q& A
Dim LngKeyD # R+ ]1 j; U; m6 \$ G) g
Dim LngKeyN ( t6 W' Z9 |$ L5 J
Dim StrMessage
4 n" ~: L# X+ G! N% D, MDim ObjRSA
2 V6 |, W9 D% m7 pLngKeyE = "32823"
6 u. Z' g8 |5 R& t8 [# j+ iLngKeyD = "20643" ' |. U; A* @$ L( H/ ~( \
LngKeyN = "29893" - z9 O" v* @4 I4 q( _8 g  Q
StrMessage = Message " o: D8 Y1 o3 s9 p+ M) z9 j
Set ObjRSA = New clsRSA 2 ?8 Y5 i( j# L& r# W
ObjRSA.PrivateKey =LngKeyD ) C5 r2 Q( u( i; c+ m- j
ObjRSA.Modulus=LngKeyN
0 B3 T; I4 c' N7 ?' edecryptstr=ObjRSA.Decode(StrMessage)
0 P* h1 _: J6 p% M& BSet ObjRSA = Nothing
* ?' s/ ^6 H. `( ]1 ?9 _6 A+ c4 {end function % L8 j$ _' e% ~. y; M
%>
2 c$ V0 q( L2 Z0 x+ S/ _' u- A===============================================
$ O. a* _& o" A, l0 k) }0 A
: a: o% ?; W& y- O还有一个用于测试这段代码的test.asp
* d% i) l5 u( P  Y9 X2 v* k5 t有兴趣的自己搭建个IIS测试下
0 E3 g. T% @/ y4 m<!--#INCLUDE FILE="RSA.asp"--> 0 N' b# t/ ^) Z5 n. K
<%# n; ], {1 _5 M3 @4 E( G
function Encryptstr(Message)
- l) l, `; Y' I  ^) Z* J. e7 ?Dim LngKeyE
* j2 o3 G# l  q' |# d* t8 ^6 ~Dim LngKeyD " V+ h+ U( R9 a7 d/ w  A. ]9 C% y
Dim LngKeyN
+ p6 Z" M" X! _! dDim StrMessage 9 w% R& q6 t8 T$ \* q
Dim ObjRSA
8 ]; ^9 j1 S" ?LngKeyE = "32823" 3 ]7 }& H7 ?0 Q' X* v
LngKeyD = "20643" : C. `# v% R7 I  d0 o! ^" U
LngKeyN = "29893"
% I/ x, o5 C6 C. f- v% Y$ r2 SStrMessage = Message
) M- R. G& b& s' r+ k" aSet ObjRSA = New clsRSA / |: y" [# O* ]' C2 N5 p9 g
ObjRSA.PublicKey = LngKeyE
" D: L! x$ s8 ?3 A; [ObjRSA.Modulus = LngKeyN
" ~6 r2 W7 i4 eEncryptstr = ObjRSA.Encode(StrMessage) ; g" ~7 I5 d% P7 ?
Set ObjRSA = Nothing ; M/ |& ~: o4 _$ b. D3 F
end function * q, w& N0 U, J4 m* n
function decryptstr(Message) " f& s: ^% r  T/ u* @5 t* O
Dim LngKeyE . L2 W0 H, l( Z, ?
Dim LngKeyD
+ n; G( J! _  k$ hDim LngKeyN   g' X9 _; p  [# S) Q2 ?
Dim StrMessage
( j" ~6 q  Z' N" M) A1 b. M; i: WDim ObjRSA ) v( @+ n5 G+ Z5 s& ~  X+ Q
LngKeyE = "32823"
6 t6 N  L  K/ \* uLngKeyD = "20643"
. m0 X1 ^- g& V+ Z9 iLngKeyN = "29893" 4 O. {0 {, k- p$ |& y
StrMessage = Message
! i5 m5 H6 j$ q' aSet ObjRSA = New clsRSA % \+ h5 l& u/ ~8 h- q
ObjRSA.PrivateKey =LngKeyD
5 B% M9 R' d# A! b: P( uObjRSA.Modulus=LngKeyN 9 ~4 ?. Z" p" \$ v
decryptstr=ObjRSA.Decode(StrMessage) 2 W" X. V- h# y: ~
Set ObjRSA = Nothing
( _( @$ \" ]' h' U  gend function
8 n5 R# h8 ^8 n2 ndim last,first
: y) G8 [: X# X7 Z& ~& tfirst="!@#$%^&*()" + w" k) u7 k- f* g' Y4 U) y9 P2 d3 ]
Response.Write "加密前为:"&first ( n2 k( V* @! S1 q0 }9 |5 ?* F2 d
last=Encryptstr(first)
% C* p) i2 s' Y2 j* n9 X9 x: m4 k& OResponse.Write "加密后为"&last 0 j! D! T) G6 z) o9 g2 i: J! `5 w0 U
Response.Write "解密后为" &decryptstr(last)
0 s1 c( R8 Z! S- Q) l# R% M. B- b%> ==============================================! d0 y; t; f% a/ Q& c2 }' |& ~
剩下的就是字符的对照表了1 J7 {. V  N$ g' w; x7 O! b- O$ D
===================字符集================: m' U$ Y3 r) O) k
1_____6EBB
9 U! e; V/ e( I8 a  e+ W# h8 m, i2_____5C1F$ ~# P; |0 X6 J; l8 H
3_____4D751 b9 M* L- c* O0 R
4_____26CC
) ]; _- y0 O& d$ z5_____4F88! X! T  [% o' g5 l: ~0 T( U
6_____3F4E
- Q  ^; g" A. I" |7_____0A9D
9 d# g7 I5 c8 \3 m2 M  t1 ?* Y' c8_____1A1C9 t! L  f, i7 ~1 ]1 L
9_____6D20" J5 `% a$ }/ P! @6 n1 T# V4 `
0_____10897 J5 w7 Z8 P. G
a_____0F3E
3 H) w# ?  O4 \: `7 M- jb_____31598 S. ?! O/ T! ?. C+ K& V- t& j/ y
c_____3517
2 [6 j2 `+ R3 v  D: r- D3 Zd_____419C
! m" s6 x$ \; N8 X( {. ye_____615C( b% L% b+ A! y" j5 A- u
f_____556F
4 V5 O4 N/ b3 ?g_____2B7F
4 m. X4 R5 R7 Z+ kh_____0F9C7 h# X' s4 p, V' x; y, r
i_____00FA
) x3 F( Y* D/ q3 j7 k$ G$ \' A) P/ j3 Mj_____5A50
4 i/ z& C( f% Lk_____2850. u: a  o1 x9 S, r/ E+ L" m
l_____3E7B0 v* b* i; R, q, k, |
m_____71C5
, d- W$ u9 n; f! }3 ~n_____1FC8: U. o3 `, l" F) P4 A
o_____74C1  A5 K) d8 @; c$ x
p_____5FB8
- `: x2 d" R9 [( \' s0 a* @" N- vq_____6085$ J! i8 ]  H$ W& O6 Y! G2 E# v
r_____3AC4
  H  z: K* h8 l; B7 H2 v. ps_____2F50
$ K1 g7 t8 A8 h$ lt_____36F8/ K' D. G) z. q& J9 t1 V. w
u_____7010; v# {# N. z8 d5 k
v_____0B42) Z. |6 l5 H" a( G( K, ]
w_____1C7A* i% l9 B3 c, v9 Y& @
x_____16F81 b/ E& S% M9 t$ z" d+ K/ c
y_____2EE7- m  j8 F* r1 j0 ?( H+ l9 l
z_____5CF3
: I3 h+ _# u" y" O3 j!_____6233
0 `- ~! v0 j6 {; b) U. E0 e/ \@_____3A453 t8 s7 @- s, w" k; c( B$ I" A
#_____2291) h. B1 ]: p) \" r+ k; J2 r) T
$_____5D5C% }0 {) }2 a% f4 W% p- j
%_____09B91 o. \. m, f+ O  Z
^_____43EA
' i  M: A5 m+ C&_____62B9+ {/ r- v0 d- g
*_____63013 C5 N. {- ]/ o: ^# @- c; x0 L: J9 y
(_____4659
8 d0 d+ S3 V- y, O/ m' x  L)_____5C82

鱼儿无心

收藏了。。。。。。。。