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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
4 j3 S5 j( [# ]- e3 B" o% B6 b原始出处：http://www.3ast.com.cm
! Q3 ^/ Y; d* k# L
% j" E3 j( T, G8 ~看不懂的直接绕过& }, o9 M( p7 _% c+ m5 `) x
加密前为:hwy123456
) ?9 Y; X6 ~0 ^% E5 S/ d0 r- `$ |加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
$ R! [( b* ^+ K: l4 J6 O1 m) g  z6 o2 g
============================================0 k$ [$ {& H1 W/ n3 ?) T3 C3 S
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
; v: w2 |1 P  H也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法4 }: {5 a# [2 r) h
以下是RSA算法文件5 z7 |6 w5 b8 H+ f  I7 X
/ p7 l* W! D$ L! g1 Z0 X
文件名RSA.ASP# S: @' H( D  n' i
===============================================
( c7 t( x! g% X$ _<%
" e& _& g  e1 j3 n+ U7 _! M! z' A6 g$ FClass clsRSA , M8 c0 h, H- ]8 l) l
Public PrivateKey % U- V: [6 u) h; q. w& r# t$ r
Public PublicKey & f3 C4 a/ _' Y# W7 g% I! A
Public Modulus
5 z( V) a: ]' |0 z" p# P6 d& zPublic Function Crypt(pLngMessage, pLngKey) 9 S# j4 M5 P7 _! ]1 j7 k( y
On Error Resume Next & H, `0 [  C8 Z- i
Dim lLngMod 7 H3 D& [* f, g6 A- [& [
Dim lLngResult   Q' r: P; F! b! J" Z( N  ^
Dim lLngIndex
. Z5 _" B5 r: @: `If pLngKey Mod 2 = 0 Then " T: G  a0 G6 n5 r
lLngResult = 1 $ J! L+ C: ~3 ?" U
For lLngIndex = 1 To pLngKey / 2
2 a' t5 H  t0 b7 D5 r( IlLngMod = (pLngMessage ^ 2) Mod Modulus
2 K+ \$ h% d- F" v' W  {0 [8 l1 i' Mod may error on key generation
5 |+ r$ q' n3 ^: {2 ^' _' |lLngResult = (lLngMod * lLngResult) Mod Modulus
6 X4 ?$ x7 O' lIf Err Then Exit Function
- R: m; \) N! A4 C1 {/ M# O+ d$ f! T# PNext ! ~9 Y* g! g6 c5 a
Else 3 Y/ u' R7 q2 R, Q: g- O
lLngResult = pLngMessage
0 M  r& E2 ~  H) \For lLngIndex = 1 To pLngKey / 2
- }) t" N9 ^/ Q8 xlLngMod = (pLngMessage ^ 2) Mod Modulus ( b7 O3 O# }+ ?0 z2 U  w' N7 `
On Error Resume Next 1 w, h7 u4 n7 ^" E) ~( r  n& s
' Mod may error on key generation
% V3 ]  ^, R) ~# H  \$ ElLngResult = (lLngMod * lLngResult) Mod Modulus
2 b5 N+ y, R/ o# M+ ]& pIf Err Then Exit Function
7 O7 f5 M/ \5 A6 t# q- k9 k) CNext
2 B9 B7 c! [" r# n! ZEnd If
  [% z' R& y0 X( @  u+ fCrypt = lLngResult
1 Z" }  O9 e2 j) ~. p9 JEnd Function
* h  t( A' v  {; \$ B
- q/ i) W" H* X1 E6 gPublic Function Encode(ByVal pStrMessage)
* @+ n: U% `) Y# K  f% d, sDim lLngIndex - @5 s+ e5 G$ P4 f6 c# O: W" q
Dim lLngMaxIndex
- Q# k" [5 ~2 P" w" h, \' EDim lBytAscii
& r& U: c& l) U# dDim lLngEncrypted 6 v2 l( ]2 `; @+ _. }; s; F+ B
lLngMaxIndex = Len(pStrMessage) " ?+ i9 K% u5 Q: p& z0 ^: J
If lLngMaxIndex = 0 Then Exit Function
+ [2 i" {* _' O# |5 s% FFor lLngIndex = 1 To lLngMaxIndex
$ y. @9 T. p8 D' glBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
# g2 T: L( I4 Y* nlLngEncrypted = Crypt(lBytAscii, PublicKey) " Z0 U5 P8 L0 }) u# c" d$ _
Encode = Encode & NumberToHex(lLngEncrypted, 4) 1 G4 z. s. G" f( O+ r- _
Next
( K% W4 s* Q. g: X' o1 cEnd Function 2 n' P8 [! o: c7 ?3 Z
Public Function Decode(ByVal pStrMessage) & J5 K, t* I0 s7 t/ u$ w
Dim lBytAscii , T* o8 Q* O; m6 q
Dim lLngIndex
; p# T: G7 z2 `$ |  P+ J: `. @! d+ p: TDim lLngMaxIndex ' [+ H! Y+ r* x" a3 s6 h3 j
Dim lLngEncryptedData
; c$ E5 V% r& x7 ?5 L3 {  [Decode = ""
* D1 @1 e( H1 elLngMaxIndex = Len(pStrMessage)
/ S7 k& N' U6 ~/ q/ {& H4 y7 eFor lLngIndex = 1 To lLngMaxIndex Step 4
; e" I' V# e  y1 D, OlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) : O. G1 n  Q5 R- m- F  t  v6 C
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
1 x6 d: Y& W9 u9 ^7 K; u' ]% K$ ^7 TDecode = Decode & Chr(lBytAscii) 4 U8 N5 |  [9 Q3 {# m" Q
Next 4 v8 e+ j# r9 T# _
End Function , t, G- L0 u2 {6 b
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)   _2 B9 `& `2 S$ S. g+ H. g. A$ ]+ G. F
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
4 v, X2 M0 y5 O8 U, V- BEnd Function
, U5 ?# {2 i# W  V6 H4 wPrivate Function HexToNumber(ByRef pStrHex) $ v4 O( y7 x. u5 n$ ]
HexToNumber = CLng("&h" & pStrHex) 9 @( j1 B2 T$ x$ z; d1 g; p
End Function , [1 e  K! B, j( J: {8 a) ]
End Class 2 E/ l& W" E1 b$ i1 ]3 Q4 K
function Encryptstr(Message) ' H: i. R# ~, w1 ^6 d
Dim LngKeyE
% P! }- @, d) B8 c1 m% X* n% k$ TDim LngKeyD
; e, E7 B4 H) M4 B6 mDim LngKeyN / ^; ^8 V4 G( T; a! t
Dim StrMessage
) z* Z" B6 v9 g8 JDim ObjRSA
. f, t4 E4 H7 b7 Z+ g: N) kLngKeyE = "32823"
5 M* [7 ~, X: g& Q/ VLngKeyD = "20643"
4 c5 W1 p/ {" a7 DLngKeyN = "29893" & t( v4 I- \& H" Y, Z* F8 m
StrMessage = Message ' y% ]2 Y2 _3 L8 Z# c
Set ObjRSA = New clsRSA
0 l! ]' P: T; _' b4 w- O0 t5 jObjRSA.PublicKey = LngKeyE * D' b7 J: n/ q% ], S
ObjRSA.Modulus = LngKeyN
) Q# i) x8 Z% K) F! z) {, fEncryptstr = ObjRSA.Encode(StrMessage)
! ^$ O0 Z0 P. J4 lSet ObjRSA = Nothing # p3 i5 ~& _, _" I
end function
; ~( v+ |5 A# _8 fFunction Decryptstr(Message)
( D$ F+ i  h2 D0 B9 T' s$ [Dim LngKeyE   @' }! V( F' ^; }3 p7 L3 h, S6 e
Dim LngKeyD
; f4 X. _) w/ P0 YDim LngKeyN % M; z4 a+ p% K( m+ m+ q$ v
Dim StrMessage
8 q! g. s* o! D; ], C. I7 h/ c, IDim ObjRSA
9 p1 W& S' ?0 ~' p- eLngKeyE = "32823"
$ X! ?6 h* q, @/ t0 rLngKeyD = "20643"
  f, {! p) k( x) u" ULngKeyN = "29893"
8 X2 S! o7 z4 [+ v% oStrMessage = Message
2 V4 h2 H0 H" o+ B% n  BSet ObjRSA = New clsRSA
. i7 A/ q3 u6 {( @) V0 Y+ IObjRSA.PrivateKey =LngKeyD 7 P( [% _2 y2 f8 r
ObjRSA.Modulus=LngKeyN 0 `; y: i3 p, S3 i
decryptstr=ObjRSA.Decode(StrMessage) ; q# Q2 J7 M7 C9 O4 ^9 S8 G( v
Set ObjRSA = Nothing & \3 t- [/ t9 T$ u
end function ) T' ]9 s& H9 _. v
%>
0 b4 o: ]' J4 m3 f) o===============================================
) d* @% p1 P, H: J9 s
1 g( v4 s. B3 _0 d6 E还有一个用于测试这段代码的test.asp
( }( J$ {, J' X, u7 y& f有兴趣的自己搭建个IIS测试下
0 J5 w$ X5 o# ?' z* N<!--#INCLUDE FILE="RSA.asp"-->
" M; B; R" x) _+ O6 |<%
# r. g0 Q2 [1 K$ u  cfunction Encryptstr(Message)
# F2 h. O: V& v5 [1 Z8 X; f& XDim LngKeyE * W2 M8 h0 x# X0 o% Z/ J- L
Dim LngKeyD ' G$ D/ g1 a) l$ j- |/ ~
Dim LngKeyN / i' T3 _; e  g* Q: C9 Q
Dim StrMessage , F, j1 R# m( w6 T1 f" e1 f$ l* M  F4 Q0 [
Dim ObjRSA 0 G% D( i' }2 p8 Q
LngKeyE = "32823" 5 f) D! B% X% j" D, k! {
LngKeyD = "20643"
% Q2 c( z$ m. {- G$ E, h$ {LngKeyN = "29893" * {6 K9 y% ~. Z$ {$ n4 K
StrMessage = Message * K& g* n1 L2 `$ w  M- C
Set ObjRSA = New clsRSA
2 y  ?& m! ?& @ObjRSA.PublicKey = LngKeyE 1 m/ Z6 r$ R/ g0 M: l& o% f
ObjRSA.Modulus = LngKeyN
' U! H6 k+ y$ E! wEncryptstr = ObjRSA.Encode(StrMessage)
3 W, q$ V( e3 O# g, h) ISet ObjRSA = Nothing
" r; @4 l1 m' }end function
" v2 D1 H- o- z0 pfunction decryptstr(Message) ; R! u2 D1 P+ E0 M$ d. c  O8 z
Dim LngKeyE
% a1 k' y$ F9 l! ~. z6 hDim LngKeyD : y: o' ~5 I' {; c# w: y& ~; \0 a
Dim LngKeyN
8 b6 L* G9 a7 iDim StrMessage : k2 a" o6 d; T6 h5 w1 W$ p* U7 D0 y
Dim ObjRSA & }0 S: T, }1 s, V
LngKeyE = "32823" 2 I/ ?2 N' c+ C( S. J* p$ j1 b
LngKeyD = "20643"
( y9 A7 b0 L( d" P+ sLngKeyN = "29893" 2 u9 N- p# s& }9 n# Q
StrMessage = Message - a, ?2 s5 W/ f0 C0 M
Set ObjRSA = New clsRSA ! l; D$ ]' A! N- T
ObjRSA.PrivateKey =LngKeyD * p& ~- D9 Y5 T) v1 C8 H8 a" [" d: p
ObjRSA.Modulus=LngKeyN % I- `( O0 z! c+ P
decryptstr=ObjRSA.Decode(StrMessage) " r  [9 N$ R0 g! O3 K! h8 ]" P$ j: y
Set ObjRSA = Nothing 4 u8 O& X1 w% w+ `' N6 q* Y( g
end function
/ B; F: X; O* m4 J) g( B" ~dim last,first # y9 G, I6 m# ^2 l  g# h2 x' f
first="!@#$%^&*()"   k  H% [  E5 N* w
Response.Write "加密前为:"&first & A- h8 x1 v( T5 f
last=Encryptstr(first)
! \# w: c7 c- |Response.Write "加密后为"&last
% V4 q1 J8 y4 g, C' t5 XResponse.Write "解密后为" &decryptstr(last)
% n: C* P/ h0 a( u%> ==============================================9 B  n6 @) c/ v6 m2 p4 V
剩下的就是字符的对照表了
+ @! @& q1 n4 _: g4 t, }===================字符集================  B8 T8 @$ d7 \/ V
1_____6EBB
) P* k6 _" `$ Z/ w0 O- b# x5 ?- V$ P# t2_____5C1F
! a4 b% K6 n. u3_____4D754 z. U4 p# y  \7 n
4_____26CC
+ d; E1 l" p3 d) A) G& _1 I# c5_____4F88" D8 a# G+ ~2 f. q: r- V' K  ~
6_____3F4E: S! S8 s8 a2 _$ N
7_____0A9D
2 ^; T3 c% u) l, r/ v$ i: E7 k8_____1A1C; D5 z1 ?1 Z' H7 Q
9_____6D20) i" Y" j# H$ E# q
0_____1089
7 F! ^6 M: G6 P" Aa_____0F3E
0 a+ N$ }1 r- D7 p6 Lb_____31594 w: i$ Q9 ^  q2 G/ j- \1 l( N- Z
c_____3517" U8 k& m- I- y6 u
d_____419C
; |+ C$ y; c4 ^3 z* `$ Z# @e_____615C
$ L; _" n8 h( ]f_____556F- I+ x% K7 L0 i7 [6 t
g_____2B7F
" H: ~4 J/ q% T+ yh_____0F9C
% \6 p2 v6 `" |  d* R$ Gi_____00FA, _) k8 R4 o) a6 Y" v6 M
j_____5A50
, H: ^% V- b9 Ak_____2850
: @9 {' G: b' V* u' E: D, K5 xl_____3E7B9 l. V1 Q2 q3 w
m_____71C5
3 `+ c! j- V4 D3 L- Nn_____1FC8' ]  {& V# u. W+ Z5 T
o_____74C11 y# ?! h3 P9 `$ q% r2 g5 ^
p_____5FB8/ I/ j# `  i& ^
q_____6085
' Q, p8 }) A2 N5 D& @/ [, gr_____3AC4
) Z- E  w1 L6 h0 X& w/ u5 os_____2F50' E& H; m, Q6 |  c9 _9 q
t_____36F8& O. F4 |4 }4 c
u_____7010- d" G1 I3 G9 l& Y8 Z* P
v_____0B42
' P0 l! C  K( g* C: H  p/ ^2 |w_____1C7A6 d+ l3 y- E5 E! O8 |
x_____16F8
% p- e3 O; P& ^y_____2EE75 L/ Z' z' \- D6 s' ^/ z  t, ]. v
z_____5CF33 F* w: k. O7 f9 G! }! z+ F
!_____6233
- Y! D3 P" A( M% q% o@_____3A457 {% n3 u/ c2 h; @6 i& w& i# x
#_____2291( t* Z: x9 h1 T" F
$_____5D5C
3 q) d4 g# C% A7 H" i% e% t0 a%_____09B9
6 }' q! Z& [, ]) w' V^_____43EA
4 u1 I7 a6 g( w; A) w" l3 s  x0 Y&_____62B9
8 n/ y( l0 _7 N8 V8 S( V! ?*_____6301& [4 d* }- L+ A; E
(_____4659
4 p3 q" ]3 O$ s# l0 L2 E6 V)_____5C82

鱼儿无心

收藏了。。。。。。。。