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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
. @2 u" W9 Z/ c原始出处：http://www.3ast.com.cm
! H$ _1 a" c6 {, Y# b% m5 K' j5 o2 F( {% Z) I; c6 {- Z6 n
看不懂的直接绕过% R4 @1 W3 i) t6 p7 D+ c
加密前为:hwy123456. ]/ o; |- {$ Y0 B$ X
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E! e8 }; ^6 l" S+ I' l9 L. ~
6 r0 F$ h. T+ i8 X* f! }
============================================1 w; P. ]# Z/ w- L0 k) [2 ~
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
/ u  x# D6 N! O% y也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法4 s0 F1 |, I' }2 R( T2 ^; v
以下是RSA算法文件  q/ i3 x# E, l& B; A5 V

+ k$ Z; W' k- j) h- y+ l) F* k文件名RSA.ASP) ~" h; u. U+ K# J1 h  i
===============================================
9 L& K6 f! }% t7 U; ~# v  D+ `6 D<% # M$ X+ A% g: h9 j7 B. W
Class clsRSA 3 o* J1 u3 S% K5 _, D3 X+ Q
Public PrivateKey / E- p7 d3 \& \7 V% S) {8 ]
Public PublicKey 6 ]6 \% Z7 Y8 U& }0 [
Public Modulus
1 N/ x- Z9 C5 \$ e# }- s+ zPublic Function Crypt(pLngMessage, pLngKey) 8 S# T! D! `- }1 F# x. t
On Error Resume Next
  X+ w: R. d2 E4 C7 k* ^4 xDim lLngMod " k3 m- _: K8 o+ A" t
Dim lLngResult
  u0 b, Q' R: |0 aDim lLngIndex 5 x, I% t1 A1 J
If pLngKey Mod 2 = 0 Then   L5 Y4 Y' R3 ~6 K) |4 g
lLngResult = 1 ; a' A: l. C/ s7 E. W9 f" ?: Z2 C. E  i
For lLngIndex = 1 To pLngKey / 2
+ a! f& S% T  e6 ~; h& E4 X3 ]2 w4 HlLngMod = (pLngMessage ^ 2) Mod Modulus 0 H6 W6 J$ w5 \, V
' Mod may error on key generation
: w4 s. M! {4 E* G% R( LlLngResult = (lLngMod * lLngResult) Mod Modulus
/ @7 z1 f, k) sIf Err Then Exit Function ( ?/ x$ I6 k, o2 Q
Next - |7 o& Z, A( I2 v# t) l
Else ; ]$ @7 s( z: h& `/ S: o
lLngResult = pLngMessage
8 M* |+ X- D( F  @For lLngIndex = 1 To pLngKey / 2
- c9 g( u% _5 r# ?! XlLngMod = (pLngMessage ^ 2) Mod Modulus
  O. [" Y. Y9 B& o% b& t$ n- uOn Error Resume Next
9 H4 j7 w; v9 ^  @7 J/ I' Mod may error on key generation
, }+ r& k" }" ?) Y/ q6 H# NlLngResult = (lLngMod * lLngResult) Mod Modulus ! g/ \. e1 o6 Y: [
If Err Then Exit Function
0 @4 n* }! v! U% c' {3 P' GNext : S, C0 Z$ k& t" r/ K
End If
2 E" B# b( G/ D& hCrypt = lLngResult
2 P& W1 r8 [7 K$ D1 \+ r! QEnd Function0 Y- Q3 e- v  f0 T9 t' h4 W
3 u2 R" [6 |1 j9 Y- g6 a
Public Function Encode(ByVal pStrMessage)
8 A! k2 o% @5 K4 p6 J5 E1 e& L  [2 mDim lLngIndex
6 a$ x- z) M6 U1 w8 lDim lLngMaxIndex / l0 x0 C9 @# Z) [- {& _. q0 C
Dim lBytAscii % s: u- h/ ?% S; [: K# v. x  c
Dim lLngEncrypted 5 U5 b+ w# s4 j+ {$ ]8 K  ?
lLngMaxIndex = Len(pStrMessage) 5 U3 I* p. p% t: B8 w2 N9 b
If lLngMaxIndex = 0 Then Exit Function - F% Q* z: x+ H' k
For lLngIndex = 1 To lLngMaxIndex 3 J2 U3 I% K, o( J9 p$ f: z( y
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) " r6 u4 i+ c/ m, f8 z
lLngEncrypted = Crypt(lBytAscii, PublicKey)
" C7 |1 X, G  u, o' G& oEncode = Encode & NumberToHex(lLngEncrypted, 4)
- L7 D- ]3 t+ Z4 [6 I' P2 q0 ONext
6 T; l" B3 ~+ mEnd Function , Q- W7 l$ D& N! L% p
Public Function Decode(ByVal pStrMessage) * |! ~/ o8 N) o
Dim lBytAscii
8 P$ g6 Y5 n% j0 ^8 i7 b" @Dim lLngIndex
5 v4 S; d3 @  VDim lLngMaxIndex
# i! `, x9 M: C6 m- t/ B4 v2 O/ jDim lLngEncryptedData
# X$ C0 F( Q7 t" Y# VDecode = ""
: ~/ ~- G; A  `, glLngMaxIndex = Len(pStrMessage)
0 E4 I& q1 k1 G) ?$ l" R" lFor lLngIndex = 1 To lLngMaxIndex Step 4 ( Y4 L  D/ t/ }5 d1 L( x
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 4 }2 v/ Y6 Z$ V
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) " J& \; R& S" O
Decode = Decode & Chr(lBytAscii) 0 M* J4 y5 j+ D% z0 g2 \! _1 s
Next
$ _! C0 ]. }7 |9 t  F$ Z( {End Function 5 Q+ f- ~: c5 _
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 7 ^2 M: n% `: i! R8 L8 y* p
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
( v; A, F. h9 @  d# v2 oEnd Function   O9 O& k0 s$ e6 W
Private Function HexToNumber(ByRef pStrHex) & i" S: T$ T" [, l& r; O! R$ g
HexToNumber = CLng("&h" & pStrHex)
5 y% A' Q9 B- oEnd Function
" }! b  ^, ^4 oEnd Class 7 c' N- [; Q/ r! K1 L* n
function Encryptstr(Message)
5 j' e1 ?. Q3 l, YDim LngKeyE
& W: ~7 a& I, H, lDim LngKeyD 4 ^* @5 a+ z2 c, v: s$ U  X4 }
Dim LngKeyN $ a' e. i3 e5 y
Dim StrMessage
3 v: ]) l. a3 f. M. R7 gDim ObjRSA
9 ]; ~1 z( b' t! QLngKeyE = "32823"
, v7 A- v) H' W9 l' G; |9 R% z! T/ LLngKeyD = "20643" : ]+ k+ _( g7 Q7 z+ t
LngKeyN = "29893"
- P) e5 D: c  gStrMessage = Message
, O7 O; n. a7 [( @! bSet ObjRSA = New clsRSA % k% Q: y/ V6 N5 K3 {  @% }! l+ F
ObjRSA.PublicKey = LngKeyE
. J' l/ ]/ b$ M  {2 {ObjRSA.Modulus = LngKeyN 1 E. e- O8 v4 a  @! D$ s8 e
Encryptstr = ObjRSA.Encode(StrMessage) 0 i8 V. l( U0 ]4 H
Set ObjRSA = Nothing 6 P# C/ }) p# J" G, \
end function. V% M9 m" |' |0 l3 v
Function Decryptstr(Message) + d) }0 r4 e/ r' r7 I2 V: x- j' g+ e
Dim LngKeyE - q) `5 X, J0 y, t6 o
Dim LngKeyD
* D; \- Y: G" u( aDim LngKeyN
! v. B" [4 e1 Z4 s7 S9 c; W5 z, DDim StrMessage ) h4 s+ P; @1 Y4 @( y
Dim ObjRSA , {( `# q- o  U# m- t
LngKeyE = "32823" , |1 ], S" q( R
LngKeyD = "20643" + M, P! s( ]) b) m
LngKeyN = "29893"
  g7 |: Z9 ^1 b2 f+ o7 G+ yStrMessage = Message
$ n$ g- g7 U6 P6 xSet ObjRSA = New clsRSA
0 L" U; A- n# B* x4 SObjRSA.PrivateKey =LngKeyD
9 A" A: b2 k" p+ x! [' `ObjRSA.Modulus=LngKeyN * M  I0 x8 Y, l7 r/ R! n
decryptstr=ObjRSA.Decode(StrMessage)
: }$ t  B! }6 ]0 HSet ObjRSA = Nothing $ A' o# ~2 e+ }! F- m/ K# _3 Z8 k
end function * w0 _: P% c5 I% `; ~$ \1 K0 g  q
%>
( O. W! }1 l# ?! \===============================================
( [7 k; L9 {9 E: H% W' ?# x
4 D  {# L  \$ v2 P还有一个用于测试这段代码的test.asp" r$ }7 o: C/ X
有兴趣的自己搭建个IIS测试下/ i  g+ @3 l- {) P
<!--#INCLUDE FILE="RSA.asp"--> 4 B8 p1 W6 v! L" ^
<%8 Y3 X; f8 Y# _) D
function Encryptstr(Message)
. y7 y+ R; m8 I: r# F: A1 g0 LDim LngKeyE
- y. e; t. B! d1 F( N( h; b. ]Dim LngKeyD
/ l" I  ^$ l( C0 t# {Dim LngKeyN * r+ g& S: S# ~) ?4 \
Dim StrMessage $ F# L/ ^4 W: K5 ^3 o
Dim ObjRSA
; T6 A  {: N1 m# ^8 j8 }- cLngKeyE = "32823" / [! U, ^; Z/ z
LngKeyD = "20643" $ M8 ^% b8 ?/ A- k/ {5 w5 ]/ ]
LngKeyN = "29893"
2 i3 K! z# a2 O; a' ^% Z: X' cStrMessage = Message / q+ y  j+ t9 m9 K
Set ObjRSA = New clsRSA ) R  I3 _; n% Q" ?5 V
ObjRSA.PublicKey = LngKeyE 5 ?* r* Y2 b( d( k
ObjRSA.Modulus = LngKeyN , R* g0 N$ E2 |4 x  L$ P  C$ F1 U
Encryptstr = ObjRSA.Encode(StrMessage) * b" i& {8 s( b+ `" r
Set ObjRSA = Nothing
: y* H1 ^& C7 N- Jend function
1 Y1 V6 R# E  t6 s/ }% C9 rfunction decryptstr(Message)
: H3 o9 V. k% V0 w* c& qDim LngKeyE # t& J4 i- o* s8 l
Dim LngKeyD # l5 L  z% Q( B: f. b" {5 i
Dim LngKeyN
! W% W2 l/ Q" p" z1 t6 G3 g/ nDim StrMessage 3 H8 [. R8 _+ Z5 A
Dim ObjRSA
- J3 x; ?  y& W1 gLngKeyE = "32823" & D0 g6 _0 W6 \7 v1 Y9 m- X7 X, S
LngKeyD = "20643" - r5 A9 Y8 ?2 y/ p( W, x0 G. d
LngKeyN = "29893"   y3 w: ]. R, j- B. G( w
StrMessage = Message
5 o& k9 u( `4 i0 |7 M* O# ESet ObjRSA = New clsRSA 6 a: s3 R# r9 D: R4 [9 V
ObjRSA.PrivateKey =LngKeyD ; a1 t6 O6 N6 A4 d! U. C% ]
ObjRSA.Modulus=LngKeyN 0 X& l  i7 p3 k! Z7 r9 N% q
decryptstr=ObjRSA.Decode(StrMessage)
( h( {2 E$ Y% c8 ySet ObjRSA = Nothing $ C: @! @: h! b
end function 2 ?6 O' ~1 ]3 a* L1 f
dim last,first 6 e6 o# w9 M8 G" t
first="!@#$%^&*()" 3 H0 F8 X% y0 s. Z
Response.Write "加密前为:"&first
' B. e1 F8 C- `: [last=Encryptstr(first) 3 E- Y  E7 r4 y! m4 `
Response.Write "加密后为"&last ' w0 F- @2 L, J' `! b  q
Response.Write "解密后为" &decryptstr(last) , S. y& d7 ~3 @3 b" e/ i
%> ==============================================
: C# J- B2 l9 _( e- |: [剩下的就是字符的对照表了6 C1 L+ `. h$ K) [
===================字符集================& B2 t% p  i1 W& c, M6 A1 V, E
1_____6EBB
1 ]) z  ~5 s0 t2_____5C1F
4 b( f8 A/ k4 Z; q6 K: d$ a/ c; y3_____4D75
- y& T1 ?2 M- q  [3 }0 }4_____26CC0 b9 l6 f/ T' m2 i( J' u3 a+ |* q
5_____4F88
- s+ J$ b* O6 b! w7 s6_____3F4E
+ Y! `  [7 ~5 K* v4 N7_____0A9D
( f* r  K# C  ^3 L# i. i8_____1A1C
/ P6 ?- ]* D) ~) D: F" Q7 S( m9_____6D20
3 r4 m8 e& k* K+ T) @3 d2 [( M0_____1089  f/ G0 h0 o/ g( q/ q
a_____0F3E
- c; \7 I. b) s3 db_____31595 w) V7 o5 f/ c  I+ a
c_____3517
# q  O' f. V, _. Y, Pd_____419C& S: ^; q$ z( {9 N" I" C4 M
e_____615C
9 E, n( S: A+ D  kf_____556F. `" ]7 ]' B: d3 I# l/ D3 h3 |
g_____2B7F. \! M) H+ o4 Z7 u2 Z/ E" P' D! }
h_____0F9C6 o, Q. b/ \: S
i_____00FA
% y+ e8 {% T, A( S: [1 wj_____5A50$ _- f! i* W5 s8 L! f9 K3 ^
k_____2850% w3 `+ v" k7 w5 D  w" H
l_____3E7B2 [; Y/ U$ J: K; t- w: b' d2 A
m_____71C5
# `! a, x: y6 `( r1 ?1 un_____1FC8
; K7 C4 Z; S/ Po_____74C1
' s8 g0 _5 q2 Z! E- |' m' Jp_____5FB86 r4 Z6 J; }; n* C
q_____6085
3 P  D' S7 C3 j9 X4 _1 y% B  }9 Br_____3AC4
' ^9 d& a% P  |; g& }) ]s_____2F50/ J* F. {/ P* C+ R. c
t_____36F8# d( {7 ]! @6 T! D9 l/ f
u_____7010& `' H0 V# I, J& S6 P
v_____0B422 b. l. h& B4 W" k3 f
w_____1C7A
- Q2 W7 a( {0 C, ~# _( t: Yx_____16F89 x2 J/ s$ h6 T
y_____2EE7
% \5 }" F3 u& P' h5 @5 t$ Mz_____5CF3
6 H# S6 n$ J' ~# H2 n; z9 h!_____6233) ^1 c; K" Q! u" Y; |0 M
@_____3A45
, W! o8 T5 o- l7 q) B1 ^#_____2291# s! T; R. S: k" Z+ z( s
$_____5D5C! J! I$ c: Z6 D$ F' E* o
%_____09B9( ]1 z: T1 R+ A" ?' p
^_____43EA' {: b: @  y. E0 U2 j
&_____62B9
0 _+ v* W: Y" C, ]# |9 z! \*_____6301/ H+ a& N7 [& n2 x
(_____46594 B4 W, Y: D8 R' t: b3 ~" I
)_____5C82

鱼儿无心

收藏了。。。。。。。。