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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm5 ]! A5 ^* u7 L( x  D& ~* h. v: B
原始出处：http://www.3ast.com.cm1 N6 p3 H/ A8 [# z9 \+ l

( \# `; `, W% C) _9 E; \. l& k看不懂的直接绕过. n  n0 G4 {* g" z
加密前为:hwy123456% |. K. p! J5 D" L, z4 b' B
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E  S' x' b# q! K2 {3 e& g$ z

! f- M) Z( m, ~& m( z. i============================================$ i; @# U( G% O; J0 G
上面是当时自己校内的心情。现在已经解破出来了，分享给大家' G  b4 }6 A2 K1 ~& ^
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
- z# J( ]; W/ Q: O1 h以下是RSA算法文件
& f0 x: Q/ `. o5 f% X& ?/ k0 D
' o0 [; s6 m/ |, Y文件名RSA.ASP
: z) z" a/ D/ d- Y7 {8 @' X===============================================. I+ l5 S9 z2 D  U
<% 7 ?8 a! Y- c- c* u0 h8 \# H8 l) ^
Class clsRSA
5 f, i! p; o) [% @* G" GPublic PrivateKey
) `) V. U; O6 E# LPublic PublicKey
! y* Z" l! F6 `2 [9 V3 @Public Modulus ( ^3 T- O+ M) R6 r* h# Q
Public Function Crypt(pLngMessage, pLngKey)
+ u; Z+ j1 b$ I$ ?. ]On Error Resume Next
$ w! O1 H$ g" i5 GDim lLngMod
# m: l9 F/ o) Y, M9 i# K7 ?Dim lLngResult
. P# k' z2 H2 nDim lLngIndex 4 B* t6 v- }8 t' T9 @$ F  P" M8 F
If pLngKey Mod 2 = 0 Then
) r! w2 G# Z" Z+ ^" Q+ h2 GlLngResult = 1 + l" B' d0 E: Y7 H
For lLngIndex = 1 To pLngKey / 2 6 ?. Z- Q; H& Z3 |+ A
lLngMod = (pLngMessage ^ 2) Mod Modulus
) s+ c6 i$ G% q9 y7 t9 b' Mod may error on key generation 6 b6 F8 H, }5 N  `8 P% n
lLngResult = (lLngMod * lLngResult) Mod Modulus 1 s! @2 `; f6 N2 o1 T
If Err Then Exit Function
# X9 T4 S/ i6 l8 O- ^Next / e2 a" n0 C8 x1 ?& Z+ p
Else 5 f- q  \: K5 b
lLngResult = pLngMessage " q+ y1 j: L& f) |: @
For lLngIndex = 1 To pLngKey / 2 ; [5 {+ [% M6 K& z, s$ g( v+ {
lLngMod = (pLngMessage ^ 2) Mod Modulus $ x, N" L) y$ q2 v$ u/ B( c9 T
On Error Resume Next : z' |+ O7 Y0 G9 I& ]: k
' Mod may error on key generation + p) X( A* u( i0 y, n( I4 \" `
lLngResult = (lLngMod * lLngResult) Mod Modulus
! B" Y$ u" @! y! b8 NIf Err Then Exit Function
# w. s9 V7 T& U# ~Next
3 n0 L- K! N# i# u& r* }" Q. f: fEnd If
/ g: \' Z+ Z7 C2 f# j4 b4 ^/ xCrypt = lLngResult
& {+ C. K5 g8 B; FEnd Function
9 a( E% H" k/ _0 _% n  a% Q" J5 v' f6 Y# s% R  ]! U
Public Function Encode(ByVal pStrMessage)
0 \0 U9 ~$ i/ L5 `Dim lLngIndex
- z' t& k' d: f1 ODim lLngMaxIndex . X8 h- {, b4 |, e. ^; b
Dim lBytAscii 9 N( Y* r1 U7 h0 r
Dim lLngEncrypted % j6 i' Q/ P2 F% H
lLngMaxIndex = Len(pStrMessage) % m, t) H6 N' t  O% A& |7 T) Y: B
If lLngMaxIndex = 0 Then Exit Function
) k8 O1 G2 I/ p3 r" dFor lLngIndex = 1 To lLngMaxIndex
& j7 R9 Q) ^5 y- i- F  Q# H7 c# slBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
4 i, k- r7 Q3 U  S, x8 GlLngEncrypted = Crypt(lBytAscii, PublicKey)
$ F% N) P( w7 k, J& O* K$ eEncode = Encode & NumberToHex(lLngEncrypted, 4)
8 E9 K; K$ x2 H0 f4 LNext 6 L- O& i- B0 B8 m" Z
End Function
2 J5 ^+ w: Y- \2 ^$ KPublic Function Decode(ByVal pStrMessage) & K" U3 ~+ Z5 u2 P) S3 V  g# w
Dim lBytAscii $ R1 r4 ^3 P0 V  P& x2 ~/ W
Dim lLngIndex
. y; R# k1 H3 P3 I4 eDim lLngMaxIndex / y2 f0 Z. s0 H# w! H
Dim lLngEncryptedData
7 S: H6 d/ e) ]Decode = "" 8 ~  V: l3 Y* z+ R/ @
lLngMaxIndex = Len(pStrMessage)
1 E' d2 X* q2 b1 hFor lLngIndex = 1 To lLngMaxIndex Step 4 / _+ ]! ~3 ?$ Y; @2 q
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
" H3 _9 R( r8 slBytAscii = Crypt(lLngEncryptedData, PrivateKey) 5 S6 n$ v- X, K4 M! j1 n% C
Decode = Decode & Chr(lBytAscii) ; I+ Z7 f3 }$ ?4 b9 q, I( r
Next
* Y6 P: k" I4 w3 t4 ZEnd Function 1 S. X1 _8 F4 y3 L! h, y# U
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
$ J( z. d; M. i. TNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ) m4 [( G6 ~( L
End Function , R# L! n; o/ f+ `) U
Private Function HexToNumber(ByRef pStrHex) % c3 `, f2 }1 d& D* S
HexToNumber = CLng("&h" & pStrHex) ; h- P! c, z+ _
End Function + r$ A4 s3 D# v
End Class ! Z+ K' {6 W9 w7 e! K
function Encryptstr(Message) 9 k6 h  a$ h1 F0 D
Dim LngKeyE
4 _4 K+ I$ g9 k+ r7 C9 G& oDim LngKeyD
, Z; y9 X2 S* FDim LngKeyN 9 K2 _$ m# h! D8 a% ?3 J/ k$ A; U
Dim StrMessage
' y5 R9 W9 Q) M9 T9 _( P& U& `+ wDim ObjRSA
( p7 _2 r- I) M- x6 zLngKeyE = "32823"
6 r6 l  m( I2 C5 F5 e0 T( vLngKeyD = "20643" * b; V$ J3 l7 R# w1 G
LngKeyN = "29893" 8 l: \* T/ k1 z& H8 x" `, ~
StrMessage = Message / B3 X( t! b7 v
Set ObjRSA = New clsRSA 8 A. v- G/ @! w- E
ObjRSA.PublicKey = LngKeyE 7 B3 b# U8 G3 X
ObjRSA.Modulus = LngKeyN
" E' V: U0 z, [4 g3 |# Z, iEncryptstr = ObjRSA.Encode(StrMessage) % {! N- G, k7 V! I
Set ObjRSA = Nothing : k' i+ Y  L* Q1 S- W' Z
end function* h) Q) `4 S: J: y. J; P4 W6 O
Function Decryptstr(Message) ' \% e$ T, H/ J: G, v# @
Dim LngKeyE
( ?- E3 j: C+ s/ W% l, N. J  ~Dim LngKeyD   Z; V; H; z0 v$ a+ h+ P
Dim LngKeyN . {- j& K& K3 g5 O( q8 X8 N
Dim StrMessage 2 J$ K! ^$ u! ]9 O
Dim ObjRSA 5 A5 v/ ?7 y7 X" y* M4 D
LngKeyE = "32823"
/ h1 v8 J2 K% j2 E6 TLngKeyD = "20643"
# I) w- j( T4 V' r8 I4 w" \' DLngKeyN = "29893" 1 A% H7 D8 e1 H) P- S! F
StrMessage = Message - W6 C( O" u3 l1 e
Set ObjRSA = New clsRSA 6 q/ A5 a4 e; |# {. n! T
ObjRSA.PrivateKey =LngKeyD ) W6 f2 J4 E; e4 I4 o' x. f- j
ObjRSA.Modulus=LngKeyN
( r8 f5 T  @! ?) W7 D& f2 o- {; n: ldecryptstr=ObjRSA.Decode(StrMessage) 9 f5 o/ U8 J! o% m! P9 Q
Set ObjRSA = Nothing
2 g% m5 _' L% l. x5 eend function 1 x, a; Y4 E) P+ s+ x
%>* `2 w% G2 B) g7 l7 r0 c& v) a! y
===============================================& r( D; _+ w: v% ]$ }
9 R: b5 C0 l, j6 K
还有一个用于测试这段代码的test.asp( v! Z- r0 ^* F/ I4 i' u
有兴趣的自己搭建个IIS测试下
- g( D7 x6 {& ^% ~  I% W<!--#INCLUDE FILE="RSA.asp"--> ) K3 l: y- I) T  ^4 Z0 j
<%: k- s3 Z9 ?+ r& U
function Encryptstr(Message) 6 f: h6 }  G8 E/ T
Dim LngKeyE . w0 g- u. H, E% w/ _0 O/ C
Dim LngKeyD
0 E, ^* a4 J0 o/ w- d8 `7 UDim LngKeyN 2 e- m' G" @4 p! s# R
Dim StrMessage
8 p5 ^5 k- O  `. f3 i( KDim ObjRSA 6 M, L# c3 o" l2 C% l+ u. D
LngKeyE = "32823"
7 n5 h# x1 D) ~# s5 ELngKeyD = "20643"
* a5 W1 W/ O, \2 uLngKeyN = "29893" ; J; N2 T9 e- @3 O2 R; F( f# Y
StrMessage = Message
) A2 [: w. h0 O% r4 @Set ObjRSA = New clsRSA ( D5 b' \( O. {( j
ObjRSA.PublicKey = LngKeyE 7 }! J6 M& {% K+ k# R5 ]
ObjRSA.Modulus = LngKeyN / r4 j% A, I& W" [. R7 [
Encryptstr = ObjRSA.Encode(StrMessage)
5 H; h2 r3 e% ~) t/ zSet ObjRSA = Nothing
9 H2 Z: M! O1 d# bend function
( l! k, o' G) z$ n3 r0 j7 n6 Vfunction decryptstr(Message)
5 k! A$ `9 I" jDim LngKeyE
7 B0 Z& q5 w3 w3 [$ vDim LngKeyD
  Y# ?) u0 D- m3 G, h2 YDim LngKeyN
! K4 B" ~' F- y0 xDim StrMessage 9 T, h; f- \& _
Dim ObjRSA , C( a: G4 j3 E" b
LngKeyE = "32823" 2 e2 T- V% c% `9 F: N& h; Q
LngKeyD = "20643"
  ~- _( z! W: i: ^8 V, r3 aLngKeyN = "29893" + E$ Z4 G' a' J" L, J
StrMessage = Message # Q2 L0 g$ \- p, e- G/ O9 u* h& I5 }
Set ObjRSA = New clsRSA
' L2 q8 W6 l( v5 ]0 N1 {, W3 [# U% B8 zObjRSA.PrivateKey =LngKeyD 9 n8 ^1 n( ~' e: `' s
ObjRSA.Modulus=LngKeyN
- V+ C7 n; s& m+ b+ j  M- @decryptstr=ObjRSA.Decode(StrMessage) 7 n3 _; U$ T7 W* n3 S
Set ObjRSA = Nothing
& T; _, h6 z& ^+ E3 Zend function
! L6 I$ U5 s) ?6 l  idim last,first , N) Q; c& u( H
first="!@#$%^&*()" ! m, E/ u8 R" {: |& A
Response.Write "加密前为:"&first
7 ~6 M* c( e( p, s5 v7 g3 W+ _last=Encryptstr(first)
/ h+ d# O% p- P- |2 dResponse.Write "加密后为"&last 9 a& S# p3 |! S* I
Response.Write "解密后为" &decryptstr(last) ! }4 m8 z: P+ z/ |( ^/ C8 g
%> ==============================================
2 M* t/ s! `  u* f: @' T剩下的就是字符的对照表了
( {  y6 @9 Y* x  U$ Y===================字符集================( m# D; g# ?) D1 J& p: F" A
1_____6EBB
: \7 s' s( o6 l2_____5C1F, d6 A) [2 y2 ^7 |  @) @
3_____4D75
3 ^3 O$ I8 p1 [% }3 W4_____26CC
/ b5 r9 l( B! T6 I' {5_____4F88$ }/ c9 b4 O5 n/ t. e
6_____3F4E( z: ?1 ~2 Z3 ^* U9 o
7_____0A9D
1 H8 u( d' i! n+ R3 T1 k# X) d8_____1A1C
* t- }  ^' f! O1 J. }/ \! \9_____6D20! j: p4 {2 m1 K% w* f& B6 e
0_____10890 q! ?+ k) Q7 G$ U  x
a_____0F3E4 i3 Y4 o, f6 v- Z7 O+ `8 q
b_____3159
. l4 C: [+ D' k  C; S  ?c_____3517
! y) r  |8 ]. Q& }& z( S% bd_____419C' L/ Q# v/ V4 _1 O' O
e_____615C) ?9 |7 n  k( O* v% M
f_____556F
/ F  d- \: ^5 `( g  Cg_____2B7F# ?; A" o8 v5 R2 ]
h_____0F9C
/ a5 J% I$ Y( L! ^( S* `" ei_____00FA
. \1 h8 w' t' \2 Rj_____5A508 u! r7 }  p7 G6 u0 @" }) _
k_____2850
4 e0 t, ]. D" J/ ~$ J* tl_____3E7B
9 l- ]  d/ G6 \& n+ {' D; fm_____71C56 h2 e% D& p6 x' i9 U
n_____1FC8
1 w  R8 d  C' |1 l# go_____74C1: S: h& C- @( l6 k1 l6 |
p_____5FB89 }. V! X9 S5 O# a3 V$ O0 b
q_____6085
5 X% f. E4 m' E# ?r_____3AC4
) R% U) e7 P- L- F+ ?3 `1 js_____2F50
4 O7 C& O9 }+ d9 _0 Ft_____36F8
1 R# W) u. }9 Z2 H7 C# Uu_____7010- q/ |' o5 ^6 \/ A( X
v_____0B42
& P: D6 C: w0 \: ]w_____1C7A
( b; t% Y0 R, n- O0 _/ xx_____16F8
2 {0 L4 w; P0 r& by_____2EE74 f1 w+ p! i5 y2 b3 ^+ k( K' W; I7 y
z_____5CF3
. K  {' p! B. p" ?" D!_____6233
* H( `; K! a7 _1 `6 o* Y4 p' J@_____3A45
9 x; ~7 t& E( s#_____2291* |* m/ z) L# Z
$_____5D5C6 |5 J0 z' D: M& M
%_____09B9
: n0 |) @7 g, o7 o2 |% g6 r^_____43EA
: g* t3 t! Y% \1 _&_____62B9# ?1 I6 q  T0 v+ {* ~
*_____6301% ^" E8 v5 i3 u4 ^: s- @
(_____46591 M2 D$ Q7 Q3 T# n2 {( Q! ~  M+ \  D
)_____5C82

鱼儿无心

收藏了。。。。。。。。