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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
1 E( N8 K7 W) e7 r( m6 Q# k原始出处：http://www.3ast.com.cm, h0 [4 J* ], t

, O: \" c0 @. T' \, R( N; c& q看不懂的直接绕过
0 |$ W' {- O  q$ f( Y9 g加密前为:hwy123456
6 z1 G" o+ G% m8 `7 G& M2 T  t, b加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
; l& G" j7 e+ c2 `3 ~7 ], c/ R
# G. ?! Y4 {& x# X0 X============================================5 o3 \7 p9 i' a* B, [9 J) j
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
' R6 l  M3 K) j( v) o/ X0 D也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
  `4 |" G5 t* ]0 n: _, a6 d以下是RSA算法文件
7 |! \! _9 y# N& P: ~' s1 @
3 X- [, x, y6 y文件名RSA.ASP" Q! D" e0 V7 f2 {/ E, y& f
===============================================
+ z* w. l' Y/ n1 y<% 0 s: n4 y* w, S, b
Class clsRSA
. t  D$ m3 ?3 o& ~* C4 \* c6 ^Public PrivateKey 6 D' p4 }7 s' T2 \) \+ r  D$ S& B# H- v
Public PublicKey ( W3 p( P/ W! }. b5 d' @2 A
Public Modulus ! y8 B# n" i  c  u! v$ Y' j
Public Function Crypt(pLngMessage, pLngKey)
6 s3 @$ f/ W: t+ C, SOn Error Resume Next
# d4 X0 D; r, ^$ {Dim lLngMod
2 a2 A& p. L, \  h% {Dim lLngResult / r+ X9 r& N7 R  N7 G6 e- j
Dim lLngIndex 2 [/ h1 K& }  y# l3 q
If pLngKey Mod 2 = 0 Then
4 x5 V4 g! n: K# FlLngResult = 1
' E8 w7 x+ Q' C7 R6 F0 B0 tFor lLngIndex = 1 To pLngKey / 2 - n* `1 z) F0 H- L6 t
lLngMod = (pLngMessage ^ 2) Mod Modulus
; p6 T- {. Z9 L6 g% \' Mod may error on key generation 3 y1 f) O& v5 Z  E: g+ O
lLngResult = (lLngMod * lLngResult) Mod Modulus
- I. o4 }  v3 i' V* a  m: s) C# {# hIf Err Then Exit Function
: Q8 H( T* S# u, ], VNext 3 I. ?. s7 ?6 V( n3 q" T
Else ; A$ p# }7 a/ O4 H8 C
lLngResult = pLngMessage
4 D. n' G7 S  K& IFor lLngIndex = 1 To pLngKey / 2 9 s9 V7 x4 e5 k
lLngMod = (pLngMessage ^ 2) Mod Modulus
' W! U, ^* M  f0 C: nOn Error Resume Next ' x: T! e, O- P' p" F' {
' Mod may error on key generation $ @2 F& x. ~$ t) ]+ `1 q* c3 N2 \
lLngResult = (lLngMod * lLngResult) Mod Modulus , ~& }" u. j( |6 n/ ?( R) q7 T- @4 r
If Err Then Exit Function & V1 k# `% X, F3 o  q
Next
5 z1 b2 |2 W* v/ NEnd If
1 f; |+ z8 c' Z) fCrypt = lLngResult 0 W" {( }" N( z, ^( F. H. V, a
End Function( r3 P4 k. ~9 x* J4 I- C$ b# M

, s# p& q0 x0 L- L8 U9 [( CPublic Function Encode(ByVal pStrMessage)
5 q) q$ }$ x2 {; B4 e. d9 x3 ODim lLngIndex
. \2 ~* N& F6 I5 I0 U* w9 YDim lLngMaxIndex
% p! C2 A$ \$ d4 {Dim lBytAscii
! n4 q8 q8 D# d% P; s! {1 {Dim lLngEncrypted
9 S. o. v6 D5 u, J+ }, TlLngMaxIndex = Len(pStrMessage) 7 Z9 q3 h* O2 |2 s5 S. e
If lLngMaxIndex = 0 Then Exit Function
4 Y2 P2 u6 [; F: f$ E# F' S  DFor lLngIndex = 1 To lLngMaxIndex
. O; @/ H: Q" U9 P; O* [' PlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 5 T1 ~- l$ P  h1 D3 S
lLngEncrypted = Crypt(lBytAscii, PublicKey) & j. D1 w3 F& F" T
Encode = Encode & NumberToHex(lLngEncrypted, 4)
6 ?# b' M3 H1 a) g- T" wNext
" h3 [; p! q, D* _End Function
2 R# z- v6 l, s$ P# X! }2 lPublic Function Decode(ByVal pStrMessage)
4 W( C% Y* t  e8 I! f2 [% n: BDim lBytAscii
1 W) h8 g5 z7 a0 [( k- M6 s: vDim lLngIndex ! D0 F$ t) o' {& g
Dim lLngMaxIndex ! n- B9 t! k+ X
Dim lLngEncryptedData
( x3 k( }& d' y% Y+ gDecode = "" 5 j; [! ?# N8 N3 X3 a
lLngMaxIndex = Len(pStrMessage) ) Y6 ^2 s+ X3 V2 q- x9 N7 V/ B
For lLngIndex = 1 To lLngMaxIndex Step 4 + b: M; I4 R7 S4 o6 u  M6 b
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
, ^' }3 Z  a9 W: z! O1 c  \( FlBytAscii = Crypt(lLngEncryptedData, PrivateKey)   {6 ^$ t$ w, h  D# m
Decode = Decode & Chr(lBytAscii)
' M  m# _. K9 |( FNext & @. e2 o) c8 Z. M4 A
End Function
3 D9 p- c8 G! A) L6 G6 }) i, t* o( UPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
& {+ Z: i7 E2 J7 ?- }NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
& ?3 Q5 {1 Z# Q  I6 V" }, HEnd Function * T4 T6 [2 v+ a! B. j& o2 Y
Private Function HexToNumber(ByRef pStrHex)
0 U- E: @( J# }HexToNumber = CLng("&h" & pStrHex) 4 L6 A1 x: j9 s$ p# i0 {) F
End Function
9 r, I9 M4 g/ Q; o4 {- w. {End Class 4 f% ]$ Q* B. [) y# F# x# L8 X
function Encryptstr(Message) % U% }- y/ _3 G; e
Dim LngKeyE
! W- Y0 q+ ~; \Dim LngKeyD " \  V0 j, D& _$ z
Dim LngKeyN 7 ^. n4 Z" H: V" Q% R2 C. C6 l
Dim StrMessage # E8 q! N5 R1 Q& U8 I* p
Dim ObjRSA
8 t; i- [% ~) |. v) s+ aLngKeyE = "32823"
8 I! X/ K  y) U, u/ @! @' GLngKeyD = "20643" 7 }! B) A/ M9 _! Y' P6 O
LngKeyN = "29893" 0 ~* w7 p' ~$ u# i* ~+ @7 E' j5 o
StrMessage = Message
) k! M) i# U/ Y; B: @  GSet ObjRSA = New clsRSA ' p) l: S3 W) J- p: l
ObjRSA.PublicKey = LngKeyE , {7 m* ]* q+ F) `6 e* l4 j
ObjRSA.Modulus = LngKeyN " E% o% [7 p& n7 Y
Encryptstr = ObjRSA.Encode(StrMessage) # _# G( _2 [+ C$ a
Set ObjRSA = Nothing
( t8 K: ~$ f4 X: K) F' T1 xend function
0 p8 l1 \/ ^9 c% e* Y7 S( @Function Decryptstr(Message) ' P2 U! t; H7 D1 [5 {( P
Dim LngKeyE
" _. J7 G9 M1 j1 ^' o  uDim LngKeyD # z/ n6 ]. \' P. D/ p% P6 N
Dim LngKeyN * S& X. p" V3 |" F
Dim StrMessage
; m2 x5 O- j3 }. sDim ObjRSA
7 {) ]; W5 [1 \2 ~LngKeyE = "32823" 2 E+ |) ^* G( Q7 x
LngKeyD = "20643"
4 `8 E+ s* u( g3 YLngKeyN = "29893"
1 ^, X8 {' _  I3 o# i" SStrMessage = Message ; |, b% S8 S5 n1 r4 I; q( D
Set ObjRSA = New clsRSA 9 F' o" z3 \9 N
ObjRSA.PrivateKey =LngKeyD
8 ?! j" ]/ a: C$ j* Z9 N9 J3 QObjRSA.Modulus=LngKeyN
! x! ~1 I5 ]% C' I  J: O5 }decryptstr=ObjRSA.Decode(StrMessage)
& B; P$ i3 w' O6 g) C% S6 W1 KSet ObjRSA = Nothing , q  D9 R( B7 f6 e: X
end function # \1 w2 t+ I8 A; M' V9 \3 z
%>
5 g7 U" y; U) Q+ N) i+ f, z& \===============================================) M, p' W' R/ |: S# p1 Y+ X/ U& k

6 E  O  F! ^& a5 G7 Y还有一个用于测试这段代码的test.asp
  `  ?& n) C: ^; ]* \有兴趣的自己搭建个IIS测试下
' m2 ?+ I; }* _2 B3 Z, H# U; x+ ?<!--#INCLUDE FILE="RSA.asp"--> & m' |4 `: {' s# F4 }
<%
7 Z! n! Y+ x2 t8 v! rfunction Encryptstr(Message)
1 f% S! v7 L3 L& h9 r" n" N8 i) rDim LngKeyE
( _9 W1 i/ C5 G. b/ ODim LngKeyD $ ?2 W1 b2 _! n4 E9 z: V
Dim LngKeyN
) X- k" g: Z- v% C! jDim StrMessage , A, e2 a6 `% G( \( s1 E5 d
Dim ObjRSA 7 p* t( ?- z- _" l5 Z
LngKeyE = "32823"
9 r" [$ D3 B- o; L3 n  O( XLngKeyD = "20643" - T8 F6 T0 v# ]: f
LngKeyN = "29893"
( t/ T  t3 E# Z4 a5 PStrMessage = Message / Y& ]3 ^% t: [( k
Set ObjRSA = New clsRSA ! ^% Y! r. @# _* ?' N/ Z; z
ObjRSA.PublicKey = LngKeyE
3 M0 Q6 v' Q# y! v! U7 V% k! i' nObjRSA.Modulus = LngKeyN
# ^- N5 v- h9 k5 S; x" s  CEncryptstr = ObjRSA.Encode(StrMessage)
% f9 S- b5 x$ @$ M4 b0 kSet ObjRSA = Nothing
; G! S9 J1 \  s2 ]end function 9 Y% l0 ?7 y( ]- P1 H9 H8 D; u
function decryptstr(Message)
% X3 m  C: m% EDim LngKeyE ' x$ b/ T5 {* Z' M( ^$ Y* ~- P. X
Dim LngKeyD 8 V8 ]: A0 V8 Z
Dim LngKeyN 0 v) E) C/ Q8 v4 C9 h
Dim StrMessage 6 ^8 S, _! x; {- ^9 |9 x% M& O8 \
Dim ObjRSA 0 [) w. D" v/ ?/ C' |8 S9 ^6 v6 K
LngKeyE = "32823" % T; K4 h8 W; k# d4 B. _
LngKeyD = "20643" ( i) q( Y8 m2 G, j/ u' A% ]3 z
LngKeyN = "29893" 6 _" F/ P# @  Z8 L) w1 X$ D' ~
StrMessage = Message $ T% W) Q- ]$ T7 R& E- R
Set ObjRSA = New clsRSA - x- e! o3 t( V3 H* n9 {: q1 S- l
ObjRSA.PrivateKey =LngKeyD ( o% ?6 x: m* \' R" d  Z7 o5 V  q
ObjRSA.Modulus=LngKeyN
6 a* j5 ^1 G, Cdecryptstr=ObjRSA.Decode(StrMessage)
* Q0 h8 _! a8 ^9 m4 A5 uSet ObjRSA = Nothing " D; P: c: u( t) P/ t. H- d5 z/ K
end function
) r0 I. @: f! y9 D. L/ C( mdim last,first 7 d, g% M4 w0 O( c
first="!@#$%^&*()"
# b; E5 L8 e- a0 B+ pResponse.Write "加密前为:"&first
2 M0 L: [5 T4 K: @last=Encryptstr(first)
" h9 f6 F5 C( ~. {# KResponse.Write "加密后为"&last & |8 X3 p7 m* h* O
Response.Write "解密后为" &decryptstr(last) * ?5 Z7 X) M/ U" c7 Y& x6 s% l
%> ==============================================
% j0 Z. ?( [+ t- A剩下的就是字符的对照表了9 O" f  n1 o" g8 D4 W* D& Q' |& F
===================字符集================
9 H+ V5 `, ?/ s1_____6EBB& c2 c3 ]% V1 j" n5 d' N8 y+ {
2_____5C1F
& F6 s7 G; U: J3_____4D75  {3 m9 |0 c- H0 m
4_____26CC
+ u! l0 S) X- ?5_____4F88
  F4 C. W3 t) L! @' Q4 `" {7 u6_____3F4E
0 d3 m; U  S' G! l7_____0A9D7 v% [3 [# f* i! {, d' q3 F
8_____1A1C4 @+ V& {3 V2 p. ]: A6 Y
9_____6D20( q8 l$ C: Y7 i7 Q  p6 ?  {
0_____10897 F+ L; [! b- E( ~6 l8 e* m5 x' [& x
a_____0F3E
. ?0 A% p, v# ~' \7 z3 T5 Tb_____3159
  `7 u0 G3 o* G& F; p/ N$ A3 jc_____3517" |" f0 ~& D  j5 ]
d_____419C
* X* Z4 S- A, R+ x$ oe_____615C
4 ~, Z  T; N+ s0 s* hf_____556F7 G; q2 x# Q+ s: @
g_____2B7F" H- U1 l+ R9 t+ {
h_____0F9C0 J6 @- v  x( y' d  [- C, V7 T6 e3 c1 y" i
i_____00FA7 H7 S) U# K5 O7 H/ D9 T3 V
j_____5A50
2 V0 H; B6 y8 G% g& hk_____2850
- V" H" D" N9 Z9 Rl_____3E7B2 [! _  p( ^% i7 o
m_____71C59 [2 b* N' u6 A* J
n_____1FC8) z3 k& M9 a+ A2 z1 e6 d4 b4 r, C
o_____74C1& u, Y2 F3 Q( ?) K+ {' R: @8 }
p_____5FB86 z) A4 L( y! C; e6 \
q_____60857 S. l3 Y  k* h/ c5 y5 g4 }. o
r_____3AC45 [. T0 _3 |% O" D
s_____2F50' w! _+ `8 P2 S3 y) o! M
t_____36F8
% b' t6 W6 F( R. A1 f: Pu_____7010
  q4 ]3 E( z+ w! r$ ~' yv_____0B42
" S" [- o5 _: r. p. ]/ qw_____1C7A
* ^+ S) v6 `2 [% o3 F# Nx_____16F85 S3 j! e: L' d9 b* T
y_____2EE7' s* W2 L/ ^7 r
z_____5CF3
5 Q% O! P0 V: |( n: L' W8 A3 j!_____6233
3 g: X: H2 ~8 y5 ]* R4 p' H  S@_____3A45( ^5 F. a5 }# w4 l& Q9 u. R- k
#_____2291
2 A/ J' Y2 O0 ]) W& k! `: N$_____5D5C% g7 G. h+ @  T9 e% H2 E9 ^
%_____09B9
7 l; {4 G  R( B5 v^_____43EA
% X- X4 u5 F4 d) u4 W. F3 U; a7 L&_____62B94 r( [$ r# K2 p" h0 [! ^7 j& K
*_____6301
: }4 i* n/ p* M(_____4659. ]3 k2 Z3 L' D  u1 f
)_____5C82

鱼儿无心

收藏了。。。。。。。。