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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
  ]0 z, o5 g% @0 S原始出处：http://www.3ast.com.cm8 Q1 ?, p) H' B5 F" C( T# I8 T* x

. u, D  b6 K* L# |" K. }7 `: R6 ?看不懂的直接绕过
/ C3 O- ^; I2 T0 _; z' \( H加密前为:hwy123456/ C4 c& d, ^, m& X* M: m5 A
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E! i& }0 L; b/ A
8 s+ t' c- S# K8 q8 W. C
============================================8 f+ f1 Q' D$ t
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
2 u8 @: o0 j7 ]' X也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
1 h- x0 y  e, f: Y" ?以下是RSA算法文件
# u) P1 }! D  q, ?, N5 M! i( N) E1 b  D6 E4 D
文件名RSA.ASP
7 {$ E" M- X- v: w4 O( ^- t" ^8 J===============================================4 p/ A" _( v2 q( ^/ H
<%
3 i- R# b% Q) rClass clsRSA
7 N# C' J9 ~4 JPublic PrivateKey
" z. j2 ?7 M- O6 ?) F/ z' oPublic PublicKey 2 {. o3 Q) \- D; o5 h' g
Public Modulus
7 y% q  l3 T! T, U& cPublic Function Crypt(pLngMessage, pLngKey)
$ k( [) b4 u: w2 BOn Error Resume Next
" x  `8 b/ n6 A  G' `Dim lLngMod 4 C$ u  C# {& Q0 Q
Dim lLngResult
* l3 I* M7 b' e9 p( r5 @0 d( p' l& VDim lLngIndex 6 z; _6 x1 L0 n+ `9 {
If pLngKey Mod 2 = 0 Then . ^6 e2 e( o6 e/ H7 X  f1 D1 ^
lLngResult = 1 8 S0 M: G; b8 F. ]$ e: e1 O6 e
For lLngIndex = 1 To pLngKey / 2 : J/ }; U& f# x; F+ A+ l
lLngMod = (pLngMessage ^ 2) Mod Modulus ( J6 [  A$ s* y; T; Q- i0 Q# _
' Mod may error on key generation / B6 U% n' o* j- U0 X+ H# P# l
lLngResult = (lLngMod * lLngResult) Mod Modulus
7 U7 c  z) X4 X  L% E2 yIf Err Then Exit Function & M0 E# B3 q; b4 k- Q3 [( p& f
Next
. _) W6 b+ j5 X+ MElse - o8 j$ W$ C) C7 O  h$ t  O: T
lLngResult = pLngMessage
$ |4 g0 \* v% u) |: m. Q9 lFor lLngIndex = 1 To pLngKey / 2
; M. A% V( p* u- a+ T5 e' OlLngMod = (pLngMessage ^ 2) Mod Modulus
+ n& p1 v+ `1 o8 a( f0 C5 }. |' G0 \; {On Error Resume Next
& K$ J  `9 O7 }/ _0 q& ?2 u/ @! _( M' Mod may error on key generation 6 ^3 e+ j5 c1 A
lLngResult = (lLngMod * lLngResult) Mod Modulus ! x  F6 ?& ?9 ?
If Err Then Exit Function ) o0 f, o# t) z! {1 W* o0 k; A
Next
4 t8 r' |; y3 O& _$ Q) CEnd If / C; |3 ]$ @$ i$ K4 I/ F
Crypt = lLngResult " r. s7 _( _: x$ V& R2 ~
End Function) ~. q6 o2 Q& \5 f# p) P
( J9 V( d' a7 [2 m! j/ L, e: o
Public Function Encode(ByVal pStrMessage) ( L. ?! }6 j. @! m
Dim lLngIndex
% D/ e5 P* b# T1 W/ D& k- D. _Dim lLngMaxIndex
+ C- m" a4 q; ~: q7 F+ ADim lBytAscii
" m8 e* f# r+ C" n. VDim lLngEncrypted
. I+ h- Y/ t2 j7 l  d' b7 C3 t* ElLngMaxIndex = Len(pStrMessage) 4 f) C  T5 _. u  v; H
If lLngMaxIndex = 0 Then Exit Function
! ~0 e, ]- a# W3 C2 o8 g! n, pFor lLngIndex = 1 To lLngMaxIndex / ]! S$ [3 [/ w9 T5 z
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
9 P4 E" r  A. C8 L$ w, mlLngEncrypted = Crypt(lBytAscii, PublicKey)
+ v0 P; E9 }9 e* TEncode = Encode & NumberToHex(lLngEncrypted, 4) 8 H2 m- g4 |- R
Next $ ?* x5 @9 K+ \& W. t8 s& o3 a$ _
End Function - `8 S2 f) s7 A
Public Function Decode(ByVal pStrMessage)
' y) k7 a$ Q& h4 @Dim lBytAscii
8 o* K, U+ Y5 ~; n9 SDim lLngIndex 0 q4 v; x; b$ E; Z4 R: ]
Dim lLngMaxIndex & z" o6 `3 W- M. ~: C3 _- N
Dim lLngEncryptedData 4 k' H, O& X5 M' l1 _
Decode = "" ! K1 X( h1 z0 X. Q6 ]$ P& d+ i
lLngMaxIndex = Len(pStrMessage) - C! C; q! E( w" T" t" z$ m; O
For lLngIndex = 1 To lLngMaxIndex Step 4 9 C3 L0 d3 x" j2 q6 V1 N
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) % N- a# e8 W3 `" U
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
: s/ g& E7 G3 VDecode = Decode & Chr(lBytAscii)
  R9 _* B* K; Y: b% E  nNext
+ G! a3 H' R, z4 mEnd Function . _6 Y. C5 P/ Q  h$ ~3 u0 M
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 6 i# Y- G# M% t, I0 X0 }$ C
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
( W5 D! _" |4 Y& f8 tEnd Function
, {. f4 Q: I7 q3 FPrivate Function HexToNumber(ByRef pStrHex) ) [! p% f% O4 w+ Z7 `* G$ y
HexToNumber = CLng("&h" & pStrHex)   h! P+ [1 W: F
End Function
7 ^" ]; X7 q. D0 d" M) xEnd Class
/ z. h, J& O7 S4 R1 pfunction Encryptstr(Message)
0 ]: A9 p5 T0 l, Y5 q( uDim LngKeyE
9 `& `: d" Q0 F! }7 P/ \/ GDim LngKeyD
# P% l  p: o. g: D/ F3 i0 ?) pDim LngKeyN % m/ ~: v7 h4 \( W- o
Dim StrMessage   v3 X. [* o; n# w* y* U
Dim ObjRSA : x3 B4 f1 n$ Q! Z8 P# t
LngKeyE = "32823" 9 l3 b$ s+ V) E) y7 h* ~. t
LngKeyD = "20643" 1 n& U4 C- {& m# p
LngKeyN = "29893"
2 R9 ~& }* }) r1 `+ CStrMessage = Message
+ L: D& Z9 H0 x  x; ~8 F. BSet ObjRSA = New clsRSA
/ ~6 ]. A; ]$ H. r3 p; _5 a& B1 ~ObjRSA.PublicKey = LngKeyE
) I$ l+ x8 g7 q/ t5 [; Y8 RObjRSA.Modulus = LngKeyN
2 b  x# Z6 v" E) ]Encryptstr = ObjRSA.Encode(StrMessage) 0 z1 r4 i; g( `, E( _( D9 o/ s
Set ObjRSA = Nothing ) g$ z" h' r0 x3 a  y- R. b
end function
; M( J. |% H& w/ yFunction Decryptstr(Message) ! W$ K2 t0 _. @! [" c, `; l% X! L
Dim LngKeyE
) J" w  K+ `8 }0 ~5 ]7 l$ ]Dim LngKeyD 5 |$ N7 R2 {" [
Dim LngKeyN / C& _$ v/ ]$ t3 Y; h
Dim StrMessage
3 ^3 k5 ]# L2 y) K4 }8 K! \Dim ObjRSA
; H$ O8 N* a. U: \; |LngKeyE = "32823"
2 F$ v* W9 c- vLngKeyD = "20643"
! s# |$ h' o  E7 M  nLngKeyN = "29893"
) Y! G4 T4 B5 x' o" b" }5 E( {$ oStrMessage = Message
9 a; B3 y! \  ]Set ObjRSA = New clsRSA % F# k9 o) E' q, T8 @# O
ObjRSA.PrivateKey =LngKeyD 7 Q; s1 a: L" E
ObjRSA.Modulus=LngKeyN # B& G5 p+ [% \+ a$ k3 d  F
decryptstr=ObjRSA.Decode(StrMessage) # S; u6 Y& j; e" Z/ ^* _: r
Set ObjRSA = Nothing
. _0 m) `6 O2 |& Dend function
3 z3 J& u1 j4 G/ _( U4 s%>
1 Z9 I- M! h0 D( p===============================================8 y3 d" r! s. r4 o+ U7 P
0 E  @* F  z- @+ r/ D. ~2 I
还有一个用于测试这段代码的test.asp
; Q* `- ]) o/ u$ Z* X# A1 g有兴趣的自己搭建个IIS测试下: K" v) f; X( B6 y
<!--#INCLUDE FILE="RSA.asp"-->   R& }# r- e9 u- `4 D0 ]
<%
) V$ |$ Y+ [- \& Pfunction Encryptstr(Message) 3 \1 g+ M( x9 u! J( ~- \
Dim LngKeyE
. g7 r0 d6 y, z1 t6 [$ n! [Dim LngKeyD
5 B/ v! R6 M3 a1 ^/ dDim LngKeyN 5 V8 I8 O. n, s* H. i. S- e# I0 r
Dim StrMessage
4 ?1 x3 m* h6 P' D/ H( o0 j9 E  RDim ObjRSA 0 b+ D* b' @2 l: m$ z: u- c. v
LngKeyE = "32823" / P; x6 U7 U( t- V9 x( j
LngKeyD = "20643" . \- }0 D3 t% G, O1 O  F1 j
LngKeyN = "29893"
1 L$ I- i7 f1 o9 h$ }StrMessage = Message & s" B4 l' M: t) C0 q
Set ObjRSA = New clsRSA
% a6 X3 O, p# u' l+ o) z5 j: a7 \ObjRSA.PublicKey = LngKeyE
  U1 f& p6 N& ~9 p) KObjRSA.Modulus = LngKeyN # I  ]' f) w+ M  y; v3 |
Encryptstr = ObjRSA.Encode(StrMessage)
$ n- ^; F3 k' k% O# @: ]Set ObjRSA = Nothing
! y, h( y& U. D2 ]4 Bend function 3 I  Y! V7 ^6 r. x# p; m% A3 T! V% K
function decryptstr(Message) $ ^3 O6 ~/ B7 |2 D
Dim LngKeyE
4 K, D% ~$ D1 ]Dim LngKeyD * i& w6 S( }, L
Dim LngKeyN
8 C; v1 N! v2 f/ h* {: iDim StrMessage 3 k; d3 U8 O6 V+ f( T& |+ a) _
Dim ObjRSA / \- ]: M' B8 [: w. ~4 O
LngKeyE = "32823" # @! a0 M' U9 m( Z
LngKeyD = "20643" ( `& a: y* e# A
LngKeyN = "29893" * R: s: \3 y3 _+ R
StrMessage = Message 4 F  O. f% {: |. ~! q7 `! ^
Set ObjRSA = New clsRSA $ J4 |% @) K$ [  v% G* O
ObjRSA.PrivateKey =LngKeyD ) _: i2 _. ?0 q- u: u, J
ObjRSA.Modulus=LngKeyN
4 ?% X9 n8 ^. ?9 z& ydecryptstr=ObjRSA.Decode(StrMessage)
4 U/ z! J% n% _) D& n" z* }Set ObjRSA = Nothing
7 s9 @+ k! o4 H# x3 y6 f, cend function
, a) N7 e  E6 |; J5 D  xdim last,first 1 E! o5 \& f4 Q% U$ }1 Q( S
first="!@#$%^&*()"
* ]3 t( A$ C4 T2 b- o& x$ ?Response.Write "加密前为:"&first
6 \. |$ T3 a. ]( q$ |1 Wlast=Encryptstr(first)
/ z8 X# D& A) e- s, |, M0 X8 S3 @Response.Write "加密后为"&last 5 k- u. F' X' P: q
Response.Write "解密后为" &decryptstr(last)
0 H' A8 A- K, [& D%> ==============================================
# x: N; w; g2 ^3 X1 Q剩下的就是字符的对照表了& u3 d7 _: n2 G% U. _
===================字符集================2 S" y3 j2 y- j- H, B4 B
1_____6EBB4 h/ U9 Q+ O- ]
2_____5C1F* y! o5 c6 j5 h# \+ @; e" n7 n( J
3_____4D75
4 j' g. w* Z5 u1 L! H( E6 U4_____26CC
, \+ @  e8 G4 W8 ?9 j+ U3 ]% \5_____4F88
- N  {" `$ ^1 z6_____3F4E; a& O2 h7 E$ @1 Q. z7 n' X
7_____0A9D6 x+ k! T  W' b* C
8_____1A1C1 d3 o+ v+ z1 w/ x! y
9_____6D200 D6 h( G/ G* ~( E4 `
0_____1089% B% p" w, H4 {; ]
a_____0F3E, L& e3 m5 x: U
b_____31594 f5 ]0 ]& d. L  _1 f( _6 {
c_____35177 d) Z& i) D2 Y) T  f) f0 _
d_____419C
& l" l3 ~0 ]' N) a6 Z" l1 H3 Ae_____615C
5 s1 c" ~0 e$ F' Z$ N. Bf_____556F
, t# v) }% }5 _+ m5 qg_____2B7F$ N1 l, u4 ~: Y3 c( }
h_____0F9C& ^7 y/ p- n, ~
i_____00FA1 `+ M/ E+ D: R! T8 C# n( {
j_____5A509 k* A& `! J) j4 A7 S( I
k_____2850
2 R8 G0 S/ g# M. H, _, Gl_____3E7B7 {; c( E/ V# c" ?4 [( ^- o, K
m_____71C5
5 ], m. e) U7 g3 E) z4 I* q3 ln_____1FC8
1 ^4 O0 o+ r/ ?7 x1 M9 Qo_____74C1
5 m& A" N) [' Z; ~3 q3 U; c: lp_____5FB83 ?9 o. k0 s9 s5 _# Y
q_____6085- ~0 g1 ~: x6 l( R- ?7 y$ D
r_____3AC4' C9 x( I+ ]7 i" H0 n  L5 W
s_____2F50
, K# i% X7 `- W' m1 ft_____36F8% J, K2 f  g, U" q
u_____7010
) h" r0 F* {$ `6 m  V  g$ \v_____0B42
' m  ~' L- x& x; l. }* cw_____1C7A2 c" f2 {0 T2 S9 G7 e
x_____16F8% \- s, a8 t0 A: t" z- Z
y_____2EE7
, u5 @( ^* R; m. T) Oz_____5CF3+ Y4 M! f- V# E
!_____6233* }% l/ ~" @" }4 A3 {
@_____3A457 i4 ?$ Q+ L, ^* i7 r
#_____22917 j0 f6 [5 {& _+ Y
$_____5D5C
* Q  n7 D* w( e; F  B# F5 w  k) ?8 }%_____09B9
$ u3 N/ W# S, ~/ e6 G( }^_____43EA- @1 R0 n2 N+ }: |3 w$ e2 c
&_____62B9
6 @7 M9 ^( n/ h/ P3 ~*_____6301
* h0 j3 _3 t2 S$ y( `0 A/ W7 W(_____4659
  i3 X& ^: L3 X* e/ b1 ?# r* j/ |)_____5C82

鱼儿无心

收藏了。。。。。。。。