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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
! P. H( b3 U) x& y- ^* D% f1 U原始出处：http://www.3ast.com.cm  q/ l' Z' Y+ R7 u' v8 y! g

( t1 W1 l% m. v% B看不懂的直接绕过' v2 x- _/ n  e* S* K. J
加密前为:hwy123456# B: t( H7 @  @) b
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E9 d* z- d6 m/ [! e5 t- W
4 Z9 G# d# s  r& J  _' q2 x9 B
============================================0 q2 [1 K  @6 O1 s3 Z8 D4 n/ r
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
' l) k/ x  C' I$ b0 n( `3 N! @% f也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
; A7 u; g. O* a' B* |7 E2 A  y以下是RSA算法文件
# y  _2 I3 Y- x3 g* o6 N& s
3 o+ K& q  k( ^文件名RSA.ASP) b+ D5 l: V0 C( z! b( G
===============================================9 _. J: y. ~' {3 E& C1 H2 O2 w: C6 S
<% % |: g6 O7 W# c  [
Class clsRSA
7 a) A$ v7 A  ^8 _Public PrivateKey
& i8 P  {+ y% u4 X9 m% {Public PublicKey
, o8 J. |, E5 f0 W  D) kPublic Modulus 9 ?7 c; V  v. P1 ]% E- O7 _! e
Public Function Crypt(pLngMessage, pLngKey) 4 r- D4 D: A& Y# t/ f
On Error Resume Next
; N4 T5 }* l. y7 EDim lLngMod : p+ @" y% }8 G6 i6 m3 s' i0 h, H
Dim lLngResult # V  Z  E2 `# F
Dim lLngIndex / O* ], E  b  z6 H) g% r
If pLngKey Mod 2 = 0 Then ' p0 q( K& B, z
lLngResult = 1 2 o; K! J7 u* Z: z5 T  D
For lLngIndex = 1 To pLngKey / 2
  {- @$ n% p7 x) z- c0 V2 WlLngMod = (pLngMessage ^ 2) Mod Modulus / a: J+ a: D# B8 o
' Mod may error on key generation $ S/ L2 u6 c7 q! J' }+ c3 l0 {+ r
lLngResult = (lLngMod * lLngResult) Mod Modulus 2 v2 h9 t5 d- }( W. A- c
If Err Then Exit Function
6 y+ I" |  q7 a7 D. INext
- x! F$ X0 x! YElse 0 X) c8 N3 L- u" t$ j0 Z! `
lLngResult = pLngMessage
! L: K& D3 S* {: c& N" SFor lLngIndex = 1 To pLngKey / 2
7 H& ^( [) n! U; H: Q; A/ y: ]lLngMod = (pLngMessage ^ 2) Mod Modulus
2 N" d( T) R8 v1 F0 E8 [) M3 R+ rOn Error Resume Next : u9 U5 R3 e% f" q! X. R
' Mod may error on key generation
: J7 |  l+ L* g% blLngResult = (lLngMod * lLngResult) Mod Modulus : a* y8 Z, \8 I1 a5 O/ W! o0 Z& O
If Err Then Exit Function
. m4 l5 D, U8 z5 U8 nNext . N: X; ~% l+ b7 `/ B7 z0 o( g- Y
End If & X3 O8 U: Y4 P% h5 r6 C. t
Crypt = lLngResult
7 P0 p+ n# |# q2 Y+ Y7 sEnd Function
0 h( l) ?$ y( x& P( ], E  }9 B( C$ @
Public Function Encode(ByVal pStrMessage)
3 K! o) _  \+ Y! V2 N1 K+ `; aDim lLngIndex
: D7 f) m' }* Z' v" f( ?  mDim lLngMaxIndex
3 d4 b8 {0 w. JDim lBytAscii 1 d  a4 V0 x+ L. P, e
Dim lLngEncrypted 5 J) t: t9 K/ `
lLngMaxIndex = Len(pStrMessage)
0 O/ \' ?9 c0 Z/ t8 L& y  A8 i/ NIf lLngMaxIndex = 0 Then Exit Function 9 G* A6 }/ z" f5 i
For lLngIndex = 1 To lLngMaxIndex
6 O0 J( n2 T1 T5 @lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
& [+ a1 D5 z, U: i3 }lLngEncrypted = Crypt(lBytAscii, PublicKey)
  i1 H" k0 o+ d# f9 kEncode = Encode & NumberToHex(lLngEncrypted, 4)
/ g& P$ Y# T3 T3 WNext
- |4 p1 r4 p* {( G0 x( vEnd Function
: w( A2 b! ]  I( C) Q$ ?9 fPublic Function Decode(ByVal pStrMessage) ' a  O8 c) Z% l" [% q
Dim lBytAscii
- I6 ]  }5 I( ~$ aDim lLngIndex , r3 V9 k: T: Q3 Z# \% h
Dim lLngMaxIndex + s2 A7 z+ a& v6 X
Dim lLngEncryptedData # A' O, a7 K. J/ a' J" G7 W( P
Decode = "" ( D( L/ d/ s# h  q0 E
lLngMaxIndex = Len(pStrMessage)
8 ^) \: W# d' zFor lLngIndex = 1 To lLngMaxIndex Step 4 , S0 @! R# U0 l" s) n
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
' m. o  W1 B3 alBytAscii = Crypt(lLngEncryptedData, PrivateKey)
/ C1 C/ u$ m; n' Y1 v. I( w+ DDecode = Decode & Chr(lBytAscii) ' b# S' G8 C' _
Next ; z$ N: w3 r5 b# [/ T
End Function
) E! K0 |7 g  S% f! Y0 b8 qPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) * v5 C, U6 M, e' A9 {8 a0 n1 S
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
" A+ [8 _- p; L" E5 U- A3 FEnd Function
1 y! U& B0 ], f6 U* H) uPrivate Function HexToNumber(ByRef pStrHex) 8 V. z. Q" t$ T$ a3 N7 ^
HexToNumber = CLng("&h" & pStrHex)
# m5 q: S& r8 `+ o6 z& uEnd Function
: Y; E6 j) W3 DEnd Class ' K4 Y" D6 j* y) [
function Encryptstr(Message) / M' V# t1 a$ k3 N0 M& S9 {0 ~
Dim LngKeyE
1 q- @8 T4 N$ s5 V/ xDim LngKeyD   o7 x& q7 N1 W$ c2 d1 {
Dim LngKeyN 3 f4 i( F7 \  {( b3 V+ Y
Dim StrMessage
1 \, F: G) D( Q9 ?7 ~$ ZDim ObjRSA
$ P0 r6 Z8 @* Q$ dLngKeyE = "32823"
8 I- A( V: y0 m9 Q, bLngKeyD = "20643" ' s0 F4 T. {4 }5 V# z- L9 f4 w
LngKeyN = "29893" " ]$ S% Q9 i% d$ F
StrMessage = Message
" E' g' j2 o" {Set ObjRSA = New clsRSA . m  C# y% q- v  U" ^# Z
ObjRSA.PublicKey = LngKeyE
. K9 h# I* e7 A# `3 r+ ^& v7 r# IObjRSA.Modulus = LngKeyN
; U/ _0 Z2 s# Z' B% x: ]' MEncryptstr = ObjRSA.Encode(StrMessage)
( o3 `: a6 u/ t5 _5 X1 ASet ObjRSA = Nothing ' C" i8 I0 L) V( d: y0 N/ V
end function
" L) h+ j9 j9 U/ w4 [Function Decryptstr(Message) 2 B( R* V% T) b! T: j( Z/ p! e& e* b% j
Dim LngKeyE 0 e0 }& u( t  y" x6 g
Dim LngKeyD 8 d7 P* c# w% r! {* s" ~
Dim LngKeyN 3 t% j% t5 n, B; O6 F+ D
Dim StrMessage / J6 y1 w( v2 p5 R4 ?2 G
Dim ObjRSA
4 J" A( h4 `$ O# d, A8 sLngKeyE = "32823" ) a! R4 N; ?/ K! l
LngKeyD = "20643" 9 D1 d; z, ]  d  ?  s
LngKeyN = "29893"
: }1 {8 o& W6 J) }  \StrMessage = Message ) R9 X2 L6 F* P0 v
Set ObjRSA = New clsRSA
! B- N; N6 K( v, l+ AObjRSA.PrivateKey =LngKeyD
: A; {+ [# c1 }5 H; b; Q! _ObjRSA.Modulus=LngKeyN + H% R+ h; G* M
decryptstr=ObjRSA.Decode(StrMessage) ; |- X4 C  t1 T5 n
Set ObjRSA = Nothing / E8 \2 s2 Q0 Y+ y, G9 @
end function
/ e  s& \  a) I$ p. U%>+ {" U2 H# m* K0 w
===============================================/ a& s5 V6 M- E( X$ \

$ u& c5 b6 f' b9 x/ D还有一个用于测试这段代码的test.asp1 H  Y6 Z* z& ^) a& U$ D
有兴趣的自己搭建个IIS测试下
( s5 B0 j# K0 h, E/ }) M6 [<!--#INCLUDE FILE="RSA.asp"-->
, C) ?6 w3 D+ w8 D; s<%8 K* r' J- r4 p. l  W) \# |: h
function Encryptstr(Message) * P" l' E2 ~* z( S/ Y+ R
Dim LngKeyE / w7 K  v9 G. F& t6 O. X+ K$ V
Dim LngKeyD & S# A# `3 X( N" W- _% ~
Dim LngKeyN , x' L7 |, a" q$ C5 x( J
Dim StrMessage " Y+ V$ I+ D# H! x
Dim ObjRSA
2 Z1 z. E( t$ V7 K+ oLngKeyE = "32823"
9 e+ @% ~, ~9 M! v- o% N- qLngKeyD = "20643"
) R3 ]9 _  P7 n. s1 G3 O+ XLngKeyN = "29893"
& N0 U1 F: i5 r' y& zStrMessage = Message
+ H6 S8 N) R7 i. c; J- pSet ObjRSA = New clsRSA
  P% |& v' k$ Q% A& z7 Y1 {0 w6 L+ }ObjRSA.PublicKey = LngKeyE
" u  m4 n5 h! Z6 |4 M; U& p; v7 PObjRSA.Modulus = LngKeyN ' Y; Z$ ?3 I# }. _$ ?: n
Encryptstr = ObjRSA.Encode(StrMessage) - E! H- F6 G5 y+ N& q& v* B3 {) `
Set ObjRSA = Nothing
' J# O3 ]. b7 W2 R1 C' {: uend function 1 [  i2 X. f1 ?2 |- _; I
function decryptstr(Message) , ~3 Y5 H. G0 E( H
Dim LngKeyE
* f0 L2 d( J8 d) L3 ]/ sDim LngKeyD
4 Z; u4 P" u; I+ ], n& Z: X+ {* eDim LngKeyN 5 L6 O5 G, J) |6 ^# o1 l1 o2 q
Dim StrMessage 3 c  s$ Q3 y) B4 q9 R
Dim ObjRSA & x  g# i# s6 x. ]$ V! [
LngKeyE = "32823"
+ }# r6 |/ k- g) _LngKeyD = "20643" ; I: o, C2 E8 h
LngKeyN = "29893"
; v1 @( K9 G0 s1 `) J4 h  gStrMessage = Message / N1 r% w9 V8 w  M  A: C
Set ObjRSA = New clsRSA 5 f- I! ]; o6 U" f4 H2 n$ h5 h
ObjRSA.PrivateKey =LngKeyD ( s9 o5 T' w- X0 H" n
ObjRSA.Modulus=LngKeyN . w! ?, u, U/ k& C+ [
decryptstr=ObjRSA.Decode(StrMessage)
1 S: ~* i' s0 pSet ObjRSA = Nothing ! K2 c# o' K. `
end function
# Y" K& d* N3 l. O( vdim last,first
! h- T- Y% ]5 w1 x* B% f1 mfirst="!@#$%^&*()" + o( H/ i$ v( b; P$ ]0 C
Response.Write "加密前为:"&first
3 q" z0 t$ J9 Olast=Encryptstr(first)
; P5 b' i. e1 c. |9 n- a4 xResponse.Write "加密后为"&last % W2 f( d+ C  O3 i* O* m( B
Response.Write "解密后为" &decryptstr(last)
/ e2 G+ B& o6 J. ?2 N, m9 Q%> ==============================================4 v. ^6 y3 B& G0 [' b
剩下的就是字符的对照表了. V4 X# V0 f( G  b- z" n( w
===================字符集================# f% c4 r1 L. Y' p
1_____6EBB) Z6 k. D0 }( H9 _" q( j
2_____5C1F6 d. }! L. Q7 A
3_____4D75
1 `) ]. ], y* d4 R- N5 C' K! z4_____26CC  A% r8 o9 X) f' u0 }9 j
5_____4F88' K" S6 C& t( _& x& {- }
6_____3F4E
  k& v9 D3 e* \: V2 L7_____0A9D
) x7 s7 P0 O) x% z1 R! y7 z8_____1A1C
  J/ g/ S5 a( Y2 v9_____6D20: ~3 V! r' O$ c3 S! D6 v# d
0_____1089
: h1 F: e7 }$ I+ Wa_____0F3E  Q$ d( X- n/ F4 Z
b_____3159) ]' X' C& Z# R* U
c_____3517- c3 L/ m' y6 [, A7 D4 a& ^
d_____419C
3 n% G7 f- r  i1 \$ F0 u. m) He_____615C
  m: x9 C  o9 t- L, }( ?. L4 Cf_____556F
9 d8 @: F( o% \$ y. cg_____2B7F3 z( }; C& q% W) p8 L
h_____0F9C
3 q: G% ^) ]7 t* ?i_____00FA
# E1 T  L7 c% u2 D& r  X5 A8 gj_____5A503 ^) P) y$ `$ y! a3 m3 I$ N
k_____2850* T. E: \8 w( X. z. J' I; {; Y
l_____3E7B1 U; p) z$ }; X% P( j7 H
m_____71C5) |( t; [) |/ j& a0 A7 m1 |+ k( ]
n_____1FC8
+ [9 I# y! P: @; ^0 Y/ ao_____74C1  c, T: o% B. W: p1 T" W# l, I
p_____5FB86 }( D- d! p7 q% Q
q_____6085
( n5 z) Y, M% c  e6 y/ j8 tr_____3AC48 ^1 G/ T/ I! D
s_____2F50& @) x; x! `% \& l0 u
t_____36F8
( x* n) C- ?6 su_____7010
8 N$ m; G& A& i3 Q9 [$ bv_____0B42
* X3 |8 Z4 d* _7 e: hw_____1C7A6 r. a5 b% F7 W7 M
x_____16F8% z9 d$ `! L; a" @
y_____2EE7
) H( ^7 v/ d. o) K( P  }/ Sz_____5CF3; Y4 y) P* t7 d; u0 Y7 ~. R
!_____6233) t( c7 w) ~( h: K2 e# C3 |, D6 @" b
@_____3A45& {$ A1 V7 X% A9 x$ g  ~% o
#_____2291
. V9 Z7 O) P. V0 W5 g3 J. J) L$_____5D5C& L) k! o& H2 g1 q, @7 N- M2 ~# Q- @. j
%_____09B9! ^, L+ G9 {$ q6 z3 R, K: I+ K
^_____43EA
# N% E% X% @; y# a2 W" t( t7 Z&_____62B9
% `( i9 b% [1 W& W2 i; J*_____6301; ^2 n$ K+ E( W
(_____4659, U: J& |& [- n" y. N
)_____5C82

鱼儿无心

收藏了。。。。。。。。