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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm: B( v% }0 c$ n. r2 p
原始出处：http://www.3ast.com.cm
/ b% o% q; e" y8 K; P5 O2 ?: M0 \/ n" q1 E( Q( B
看不懂的直接绕过3 e9 I, F: f# Q6 U! z
加密前为:hwy123456
) z& q5 c0 _/ N, S) T2 n6 _加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E0 C" F- B/ A- q. T# V* a

# X, k3 y; K' d/ |4 ?5 l) Z6 r============================================/ H9 i8 s+ K' E8 j" o
上面是当时自己校内的心情。现在已经解破出来了，分享给大家$ G/ p$ ?7 z& ^% M. ~3 d! n
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
% m) [% Y& B0 o+ q以下是RSA算法文件
* K" z5 O8 F1 P$ g: U( O0 Y& j: R1 c+ C: R6 i7 E
文件名RSA.ASP7 P' f+ ^+ K% G% g: ~
===============================================
3 f1 ^2 C# r7 S% l; O3 F3 U9 H<%
5 Z" D5 d! m( l2 D( _" x& mClass clsRSA ( D1 h# a( ]% g0 L" v
Public PrivateKey
+ M" y7 G4 |! J0 J9 ePublic PublicKey 0 J% L4 Y1 a2 u  q  v8 a9 X
Public Modulus
$ J+ B/ B" H( S! `4 X$ k4 zPublic Function Crypt(pLngMessage, pLngKey) : ~! s' x7 r  v* c. g- C) K
On Error Resume Next
' ~3 b4 f+ f: G! b" eDim lLngMod
8 w- O/ d/ F9 V2 a- YDim lLngResult
9 T' U  V+ {1 EDim lLngIndex $ p$ j5 M* ~6 l$ Y, n. b
If pLngKey Mod 2 = 0 Then
, U' }0 k8 V& R8 G) O$ S# v- I" W+ c! RlLngResult = 1 + Q* q) d! [2 L
For lLngIndex = 1 To pLngKey / 2
) r2 t. H% H# w. w0 RlLngMod = (pLngMessage ^ 2) Mod Modulus , p  G6 ~8 y8 r+ {6 m4 T* U
' Mod may error on key generation
# a' c, w# S6 a1 G, }5 jlLngResult = (lLngMod * lLngResult) Mod Modulus
6 `% h1 @) s* i( R- h3 MIf Err Then Exit Function
; f4 [$ h! e4 \$ L% ]Next ) P5 P3 a, M1 @" |! |
Else 0 I  n1 m$ i- n  j- c5 Y
lLngResult = pLngMessage
- z3 V: h$ ^* X* u8 }For lLngIndex = 1 To pLngKey / 2 $ m) C5 r( O, u4 w3 E# n
lLngMod = (pLngMessage ^ 2) Mod Modulus , H  p1 J9 H$ L- X& A8 x2 c
On Error Resume Next
- Z5 Q9 l. Q9 Q8 F* X' D4 o' Mod may error on key generation 9 R5 @# r9 M* o  r% M  [
lLngResult = (lLngMod * lLngResult) Mod Modulus + A; P+ w7 A" z' m
If Err Then Exit Function   e# g1 ?6 o6 g  ]  {! B
Next
2 N3 V5 n. {) s) cEnd If
8 m2 T0 T9 W( n4 y- _9 NCrypt = lLngResult
. n6 g4 A" g: }/ ~" X2 C1 eEnd Function
+ s9 q- ~& I' o7 |9 u
" R# T. `" o" \2 YPublic Function Encode(ByVal pStrMessage) ! Q4 f* r+ F# o
Dim lLngIndex ( b* S, C; i" J5 n% S
Dim lLngMaxIndex ) {0 X6 O1 z. x! K9 [$ C: c
Dim lBytAscii 1 c' j$ v6 }0 s, V2 H1 U4 w
Dim lLngEncrypted " ]: m6 X( w; G% s5 O
lLngMaxIndex = Len(pStrMessage) & J; P$ v2 [% C8 W3 I+ `
If lLngMaxIndex = 0 Then Exit Function ( `' B- F# O# h6 l
For lLngIndex = 1 To lLngMaxIndex
: N3 {1 }* _$ e, L6 Q2 wlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
1 z0 i& t. B* W$ a# N9 T1 flLngEncrypted = Crypt(lBytAscii, PublicKey)
& W, n" r, `0 c+ z6 w$ CEncode = Encode & NumberToHex(lLngEncrypted, 4)
" i7 M& D6 K, iNext
1 V3 ?. P* g5 [8 [" g6 cEnd Function
1 O. Y8 m/ w$ i  E8 fPublic Function Decode(ByVal pStrMessage)
0 k( v  B- Y; D; bDim lBytAscii 2 y% z) r' \+ M% e. E
Dim lLngIndex
  U1 |$ i, Z' n  I( Y5 cDim lLngMaxIndex
2 T0 a( d! b( V+ f  ~+ WDim lLngEncryptedData $ Z$ _2 R" E' J! f8 h7 |* l
Decode = ""
" D: B3 r. \' \) E/ XlLngMaxIndex = Len(pStrMessage)
( P- A( W1 k6 Z' ZFor lLngIndex = 1 To lLngMaxIndex Step 4
% v5 `# n$ r! w$ glLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
6 Z1 _  Q! F7 k6 s' }lBytAscii = Crypt(lLngEncryptedData, PrivateKey) / ?  T; Q) y2 t& i$ a+ h3 l
Decode = Decode & Chr(lBytAscii)
# q; E$ ?+ ], FNext
+ p* ^% m5 n( b# h9 u. ?End Function , P* r$ m5 }" C9 Q
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
5 ^9 e- I- [2 f! ], Z' O5 XNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 5 R- y! Z) U# n2 B
End Function
+ A! q' }7 _+ k' h0 g; _0 u4 jPrivate Function HexToNumber(ByRef pStrHex)
$ Q* ?& k9 c2 L; m# {HexToNumber = CLng("&h" & pStrHex) " b+ d) M: i  P$ z" b
End Function
  k* E, |+ w  J6 GEnd Class
3 y" }0 G4 C6 ^% T8 Qfunction Encryptstr(Message)
5 I  m0 k) G% |: ~, q9 b: T4 T5 vDim LngKeyE
$ p, y0 ?) c1 x6 ZDim LngKeyD # c$ g3 ]1 t6 y7 f. b
Dim LngKeyN
( k+ e. I' x2 T+ qDim StrMessage
7 _% X+ M: {; @4 B% [; C$ WDim ObjRSA
$ {: s0 {; i9 x3 V9 tLngKeyE = "32823"
' ]8 V$ J. d, pLngKeyD = "20643" . l: b' o+ V( i
LngKeyN = "29893"
+ A/ o0 I0 Z% {+ [; n" c% J* MStrMessage = Message & j9 r7 O2 U& u" f
Set ObjRSA = New clsRSA 1 m: }) w% y' ]
ObjRSA.PublicKey = LngKeyE . V' ?9 ~  x: a7 b, d
ObjRSA.Modulus = LngKeyN
6 E/ `) x8 B* n3 O1 iEncryptstr = ObjRSA.Encode(StrMessage) # D  U) T1 d9 Y, ?$ J
Set ObjRSA = Nothing
% H( l! A  i, m- Dend function! I. V: S- z' ^. s7 G/ W; z
Function Decryptstr(Message) / h5 ]3 N% J8 b& @+ h  Y( @# B# Z
Dim LngKeyE . z/ V/ S+ k, n
Dim LngKeyD ) Z. |, l$ H$ A/ A! ?" z# w
Dim LngKeyN 5 H( \: N7 o1 V) T6 o, d  [
Dim StrMessage
* \* B2 A4 H2 D9 p/ TDim ObjRSA
, J* X. R2 r6 f, W! J1 j0 \# m# fLngKeyE = "32823"
! Q7 y, M% f& y" uLngKeyD = "20643"
" V  B, T, y/ W* r7 r: N9 _LngKeyN = "29893" 0 M2 Z2 p& V- R# g6 q
StrMessage = Message ; o( m; ?/ w8 r1 n& m/ X
Set ObjRSA = New clsRSA
0 v% [( |1 ~) a& [" ^; lObjRSA.PrivateKey =LngKeyD 7 E+ H# ?8 d* H1 f6 k( j; @
ObjRSA.Modulus=LngKeyN 4 Z# G2 w3 j5 n  d/ P( z9 ^, [7 C
decryptstr=ObjRSA.Decode(StrMessage)
8 X. @$ J* s3 N9 l, ZSet ObjRSA = Nothing 0 [5 g7 V. k% f! V
end function
* e% m9 T0 J) w9 C3 t2 t7 o& A; R%>
% T( j# E, U1 E' f$ s& R===============================================
8 S' E0 e" K% u8 ?, G. ?& Q
3 x8 j5 {3 o& ?9 i* f6 T+ A4 U2 o- [还有一个用于测试这段代码的test.asp
/ z! u4 v9 [2 n5 L  Q) ~& V) ^有兴趣的自己搭建个IIS测试下$ B( T8 e3 H7 x  z
<!--#INCLUDE FILE="RSA.asp"-->
5 a. Z+ @( I6 i<%
, L/ Q) S6 C+ A4 Cfunction Encryptstr(Message) ( K) d) \' X0 c1 b0 i
Dim LngKeyE
6 b. |/ C1 y, P8 A; kDim LngKeyD
" P/ P% }2 d/ c9 ZDim LngKeyN
  k! ^+ l/ y# T4 S  sDim StrMessage & A0 o: H' y/ D1 K$ h! M5 j
Dim ObjRSA ) ?: I7 D; N9 N8 B) E' D/ [
LngKeyE = "32823" ' [7 ]6 V! [5 n
LngKeyD = "20643"
  k& b/ R) l- _7 kLngKeyN = "29893"
5 i; h$ Q- I! N4 I6 Y5 I: mStrMessage = Message
2 x9 X, t  z; a$ o7 {Set ObjRSA = New clsRSA
# u  U1 f8 f0 L1 w) _4 u1 m  c- CObjRSA.PublicKey = LngKeyE & }$ J+ L3 B, u% j
ObjRSA.Modulus = LngKeyN - Y( i7 m; R) r5 q# _3 W
Encryptstr = ObjRSA.Encode(StrMessage) 7 z, h! [. E4 L$ ~" e& ~
Set ObjRSA = Nothing
4 v  N- p/ P5 m& T0 Jend function . g7 n0 x3 t8 t  }. @; t; T% Y
function decryptstr(Message)
) z+ t" o! N3 L8 q( r* ?Dim LngKeyE
; y. l* u- ?7 }  `  nDim LngKeyD % E0 r' P5 |5 Q- x* I
Dim LngKeyN
4 [+ z) u0 G# k6 h5 JDim StrMessage
# r9 Z4 r3 j, _6 r: qDim ObjRSA
8 K  @, G0 b& G- o3 t/ wLngKeyE = "32823" * w) O, G! P6 A' h/ i" @" Y; o: ]7 c
LngKeyD = "20643" % J8 {9 b* A" [9 \$ s9 i
LngKeyN = "29893" $ c: N) d. f; }0 B/ e
StrMessage = Message ' m4 A$ v6 [+ o7 t
Set ObjRSA = New clsRSA 7 B7 R* Y* [0 N: Y' v# \! L
ObjRSA.PrivateKey =LngKeyD $ p) e; a" r% }& r& }
ObjRSA.Modulus=LngKeyN
, f, f# E# b, ~- F- Pdecryptstr=ObjRSA.Decode(StrMessage)
1 s) w$ W5 Q7 E7 f; L0 V3 zSet ObjRSA = Nothing
* O3 y% e7 j( u5 u& {end function ; Y2 @# h2 q; _& Z" ~
dim last,first
3 Z( t8 L+ U$ Xfirst="!@#$%^&*()" 7 C' P7 h; R9 L6 v+ j- ]2 d( p
Response.Write "加密前为:"&first # w' Z0 t+ K* w" V7 w: g3 `
last=Encryptstr(first)
3 {; d- I' O9 s# y. j2 r& P! ~Response.Write "加密后为"&last
1 g" q# U( v3 U  a$ \+ l, LResponse.Write "解密后为" &decryptstr(last)
: J  e1 Z3 f0 y3 Y* S%> ==============================================
2 `5 e; }5 h, u/ F剩下的就是字符的对照表了+ ~( s' a% V, s, O
===================字符集================* B! Q$ P; ]1 v
1_____6EBB0 g& A, d6 N/ D( H5 C7 [* {' ?
2_____5C1F
- W. a4 H! T7 J2 f  P3_____4D750 v- x$ C* O, z; [
4_____26CC# l! f( t6 {+ T' D% p8 A/ \
5_____4F88+ p/ {7 l% b+ C( m% Q1 u! O# y
6_____3F4E* Z5 b9 O2 }4 k$ s6 C
7_____0A9D8 {+ C, p+ T  c! }& k( T  v$ V3 b
8_____1A1C9 f" X$ s1 L8 S/ m! r
9_____6D20
4 y) U+ S! j/ f* C  p6 U0_____10899 k# I( S  n( u, H* C/ k7 ?5 q$ z2 i  B2 J
a_____0F3E2 i3 C$ W. j3 j
b_____3159/ F! G% `7 u# j6 q; `
c_____3517
0 K' f4 J' j9 I: S- F$ G  G: Cd_____419C
! b# i9 ]9 P' Y/ x( x/ Be_____615C. ]: O4 J, o0 h
f_____556F5 B$ w  U4 {* q( K  y
g_____2B7F! w3 a( O; u+ d0 Z9 q& H# S/ g  C
h_____0F9C% ~8 A: x! W3 V) F/ X
i_____00FA
" @% r1 ]7 `5 _# ?  O. ^& yj_____5A50
: f2 e% L0 A! v0 x! k6 ak_____2850
$ e- Y! b* f/ i  gl_____3E7B1 {, [; j' s" K" C: {* r' T& R4 j- ~5 B5 Q5 T
m_____71C5
3 h+ G, {) ~" ]2 V9 {4 t3 g: wn_____1FC8( O7 H/ q7 a: r2 ^: u
o_____74C1
% q# [* C" u# V, B8 h6 Y/ Wp_____5FB8
3 k" v- g! M! V+ w3 bq_____6085, t. g. R4 T3 L9 _  X* R* H
r_____3AC4
1 k, v  h% U+ j. e, l+ xs_____2F50+ s( N, ]+ w  d
t_____36F8! U- I6 s! P- |, |  N% L! i
u_____70108 {6 W% I% m% n7 @+ Y( k) v% b
v_____0B42
9 H6 H. B) B" V4 P( f$ _w_____1C7A: X2 h5 t  f( s
x_____16F8
& P) ~6 q& h6 ^+ f; [5 t7 ~y_____2EE74 j: t; u0 [/ H5 |( H5 H* ~0 e# B
z_____5CF3+ E8 S5 v2 ~( y
!_____6233; `( G% n# J& `
@_____3A45; R8 x( H& b$ d4 H( K. p
#_____2291& G# k1 m5 O* b, i9 B+ q2 `# L
$_____5D5C' a" o9 E: C$ Z4 G( s, q9 ^8 \3 {. M( D
%_____09B9
; o4 ?6 M* e0 |4 C$ m^_____43EA2 e/ |$ c$ S, T5 u
&_____62B95 X# v% C* d! v  v
*_____6301% ~; W: N) W% A$ J' C5 h
(_____46594 R$ F! f4 y/ M( t' y# e0 S8 B9 a
)_____5C82

鱼儿无心

收藏了。。。。。。。。