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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
5 j" g' Q8 C- u9 w原始出处：http://www.3ast.com.cm- _& I' g- o7 r& R: H

4 Q1 L+ \  L# v- N看不懂的直接绕过2 H% T" z0 t1 @8 ]+ A5 e. f( M0 X
加密前为:hwy1234568 o/ f+ S8 ]3 Q. G4 t
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
2 n* o  ]6 d/ E9 ?. L( g: c5 K; _* _% A5 k$ R4 m; e7 k
============================================
% K1 `3 B) ~; Y6 i上面是当时自己校内的心情。现在已经解破出来了，分享给大家; Y5 a- |) F  H; i" A
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法5 [' S, d' K4 X8 Q
以下是RSA算法文件
$ m6 G$ X( O) `7 ~" s; x. ^
! z- \( K6 a2 ^# x文件名RSA.ASP: `. F  F1 t- \9 F+ D  M
===============================================
4 U1 J# o" E" e<%
6 H) W: a! k1 [) m, kClass clsRSA
/ ?- }2 ^0 Z( y! l2 T6 C" F) }" bPublic PrivateKey - f/ y# R0 I* F! _
Public PublicKey % |$ A5 ]+ U" S
Public Modulus
& R# O0 O3 J1 d  JPublic Function Crypt(pLngMessage, pLngKey) 9 Q" }$ q0 [) X. D; ^2 q
On Error Resume Next 3 ?- u& j( Y# d: i% V
Dim lLngMod
& ]3 k% ]2 S9 mDim lLngResult 6 ~7 F, a: m, m! A2 @( a1 z
Dim lLngIndex
5 C3 G9 _6 x$ y7 fIf pLngKey Mod 2 = 0 Then / E, N; I5 n$ C4 a
lLngResult = 1 : e! R& n! |& @, z7 R1 C6 M/ b
For lLngIndex = 1 To pLngKey / 2 ! D, _" w4 \' t) x. A; Q
lLngMod = (pLngMessage ^ 2) Mod Modulus
9 M4 Q: P* `3 F% f" w# P2 L6 _' Mod may error on key generation
+ b: Q" w/ u; _( PlLngResult = (lLngMod * lLngResult) Mod Modulus 1 L. u; p- u  F& g
If Err Then Exit Function
& ~. T/ ^5 Q- x0 ZNext 8 }6 p- u9 P8 d, T, y& i
Else
3 e; q3 ^# Y4 `3 a7 T/ A' i( olLngResult = pLngMessage
0 p7 a+ I# b1 S6 N0 [1 ^9 \& YFor lLngIndex = 1 To pLngKey / 2 # h5 x- i" _. l# Q. p
lLngMod = (pLngMessage ^ 2) Mod Modulus
5 F8 e. z' Y) j3 S# KOn Error Resume Next + E- m- G# U+ M8 h# y' P1 Q( W
' Mod may error on key generation ! G8 i0 C+ x  ?4 x, R' @( j% u8 B3 \
lLngResult = (lLngMod * lLngResult) Mod Modulus 6 M8 Q$ ?; Z4 p4 V! _2 n
If Err Then Exit Function - O7 J# F6 a& \$ s" X1 l# E* ~
Next 4 c4 v/ v. b) j9 k( J' q; Q- h
End If
3 e+ e1 Q1 r6 x% i7 [% J1 s9 rCrypt = lLngResult
2 m0 A& e" z  ~( \2 Z* j# hEnd Function
0 A& d% P9 Z& x# T/ J  \% ~
: `  y5 `9 A% {8 |* w+ G% iPublic Function Encode(ByVal pStrMessage) 6 _$ j/ ?6 s5 q* `; D7 `
Dim lLngIndex
  x& z& {) q& G1 SDim lLngMaxIndex ' m/ Z+ [, X% X
Dim lBytAscii
* h  f% l' g% }" |/ U- e3 h  KDim lLngEncrypted 9 G; |+ U* b0 p, e" W- L4 T: ?
lLngMaxIndex = Len(pStrMessage) ! W$ i* S% g9 A6 I9 |( }
If lLngMaxIndex = 0 Then Exit Function 3 {7 Q0 Q  o" p% X+ `
For lLngIndex = 1 To lLngMaxIndex 1 B7 D1 d; `: {4 \. b2 M# j
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 9 ~) \: h! ?9 h( S
lLngEncrypted = Crypt(lBytAscii, PublicKey) . |8 o1 C4 G( |% N% L( h3 w% v
Encode = Encode & NumberToHex(lLngEncrypted, 4) + k( j# G  Q& K; s
Next
: @; m" L% Z) @! N) l5 L3 P) YEnd Function " u$ c- U' q! r6 r& b" `' G% w9 ]
Public Function Decode(ByVal pStrMessage)
) X. S  `9 o' P% k7 nDim lBytAscii
) `  z) V. S+ A- \Dim lLngIndex + f3 s5 G2 Q: z) l$ H* ~9 }
Dim lLngMaxIndex 5 k7 u; `% i) F6 A5 c
Dim lLngEncryptedData
7 u' e) e' a0 \; rDecode = ""
* B) f' E! q: t+ K; hlLngMaxIndex = Len(pStrMessage) / H( w! m5 U6 q! R
For lLngIndex = 1 To lLngMaxIndex Step 4
& M) F+ t4 X* g. n  z, {lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 9 m* m& N, i/ U9 M" \( ~) W) C
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) % R' t6 N% {+ \. f( Q( m' h4 J
Decode = Decode & Chr(lBytAscii)
9 w( x/ y- H# m9 PNext
2 s+ O: l* N) b3 D6 e8 `End Function
4 Z% R1 ]* m2 ~  }Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) + q$ u' i8 S+ R: G+ x
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 1 t6 J6 i5 d6 `
End Function
& o' y2 `/ N. FPrivate Function HexToNumber(ByRef pStrHex)
% v! J- A& M+ s/ N* |0 THexToNumber = CLng("&h" & pStrHex) # \7 D3 C) A" Z% `* V0 V
End Function
1 l/ o9 p& e' o" u7 h" _* X0 u1 z6 uEnd Class ( u8 C. e6 r; R
function Encryptstr(Message) 0 x- R. G. T0 r0 M6 N! N
Dim LngKeyE 9 v: Q( |" j. w4 D
Dim LngKeyD
! {3 @& H6 _% @/ U8 [* w5 oDim LngKeyN ! T$ ^1 G, o" i2 `* ]$ ^1 m3 g
Dim StrMessage
  i& P$ N: K1 y: G/ E' Y- p3 @Dim ObjRSA
- d; r9 g- n$ w. a3 n* jLngKeyE = "32823"
( g8 E5 q. [& Q! N7 ^' QLngKeyD = "20643" : S8 m9 l: C2 K2 t% J" ^7 Y
LngKeyN = "29893"
: K; p' p6 z5 |; `: W: YStrMessage = Message - p$ r8 Y' D; w: u5 X
Set ObjRSA = New clsRSA
! J* q% R( X: nObjRSA.PublicKey = LngKeyE
8 h  a, H9 T9 c6 }) }, M+ j, D$ v) `ObjRSA.Modulus = LngKeyN ) ?  T+ F- k2 P4 U" O, v
Encryptstr = ObjRSA.Encode(StrMessage)
3 l1 {/ o' f" O# G3 Y9 Q, l: ISet ObjRSA = Nothing 1 w" Q" Y, M- s6 f0 g2 n' Y2 K! F2 i
end function
2 G9 c. u6 z) \6 TFunction Decryptstr(Message)   V% F, g6 a# d* g* l3 J
Dim LngKeyE
& Q0 a( [  s  LDim LngKeyD
6 F" S  Q; }' @/ E+ q" l: F0 ]Dim LngKeyN
) Z0 k7 i& v9 ^6 L5 ]6 h7 dDim StrMessage & y1 n4 p4 v; K  _+ x1 a: k# f6 F; o
Dim ObjRSA
; c% I6 I! N6 h$ e, vLngKeyE = "32823"
2 k2 l1 R  C( {LngKeyD = "20643"
( l5 c( E0 s& R& K/ t& H! U6 @7 pLngKeyN = "29893"
$ m; a& y9 w! N+ ?* y+ ]1 p! hStrMessage = Message
5 l7 F5 c2 B) iSet ObjRSA = New clsRSA
$ j/ S0 Q  G% I7 XObjRSA.PrivateKey =LngKeyD ( Y5 z: O) a! B4 v! n0 Z8 m
ObjRSA.Modulus=LngKeyN ' ]+ u  ~: N4 z: R
decryptstr=ObjRSA.Decode(StrMessage) 6 _& |( k7 b+ B7 j$ G
Set ObjRSA = Nothing
6 m# q8 Y6 |1 u5 @. \end function + |9 ?2 G6 |; i6 k2 }- q+ L+ @
%>
5 d+ b8 ?" z- m! n1 R! ~( R===============================================
- z; z# Y6 n& S* t1 T8 C* e$ w4 B  \' G, I5 S3 W2 @. z8 r* ?
还有一个用于测试这段代码的test.asp
) U# V; @  _$ L  O6 A有兴趣的自己搭建个IIS测试下) Y- u8 W" W$ U( ~( f8 s+ w( _( [
<!--#INCLUDE FILE="RSA.asp"-->
+ N% a. e- ~9 B<%3 F9 H4 g9 `; P7 w
function Encryptstr(Message) / R' M; P( m2 {2 J  q
Dim LngKeyE
& _2 g& n! y1 g/ z! h6 U2 H* _$ JDim LngKeyD
; g: ^: H3 N8 x% HDim LngKeyN
1 G3 h6 D# o2 A; sDim StrMessage
8 W7 J  n& G; S4 sDim ObjRSA
; A& N8 k4 J% |LngKeyE = "32823" 7 X3 B( @: e; W5 E6 g
LngKeyD = "20643" . Z! F# G0 O( T6 u$ R
LngKeyN = "29893" % q4 G$ D" c& r0 U) v5 Z; J
StrMessage = Message
7 _& l2 H- J# G# k* M- z9 Y  @1 aSet ObjRSA = New clsRSA % z7 n+ e# D2 }" W0 |9 {
ObjRSA.PublicKey = LngKeyE : r/ u  `) O2 Z8 s2 h, S5 {
ObjRSA.Modulus = LngKeyN
. P+ |0 X. `$ WEncryptstr = ObjRSA.Encode(StrMessage) , O: ?2 X' b) O; Q; r
Set ObjRSA = Nothing / A6 `: P8 N" k& q' m
end function
+ O- k9 T. R( w$ e$ ^function decryptstr(Message) 6 m% w1 u3 W) J: x2 X; {
Dim LngKeyE & x3 e0 Y! q& _  C# Q1 ~
Dim LngKeyD 1 p5 r3 w% @$ J; o$ u
Dim LngKeyN 9 h" w4 S2 Z( ?, N) m4 M/ [  U
Dim StrMessage
$ X3 U3 [+ G9 N  s- eDim ObjRSA 7 \: P' e9 C9 W6 n* Y% b1 e  \
LngKeyE = "32823" 5 a. v3 M! k. Z, h5 ?$ K
LngKeyD = "20643"
( a" C+ Y( K5 C+ c, S* pLngKeyN = "29893" : ?$ m6 U! k6 P2 v
StrMessage = Message
" e+ P* j  l- \& a) m* ^2 jSet ObjRSA = New clsRSA
  J  L& w8 H* c9 b% e; G4 PObjRSA.PrivateKey =LngKeyD 4 B. k. G8 }0 e% O, V3 k7 M
ObjRSA.Modulus=LngKeyN
9 e2 E# q$ X! X5 S: edecryptstr=ObjRSA.Decode(StrMessage) % W2 ?' y6 F5 i
Set ObjRSA = Nothing ( G/ u/ b4 N# i, D, `' [+ Z
end function , w* x) p6 H* B6 h- q& U
dim last,first
+ k; u. b6 O# b% ofirst="!@#$%^&*()" $ T2 V  Y5 a' f# `: p
Response.Write "加密前为:"&first ( P  q. C( `& c, @- x; f! ?& ]! d
last=Encryptstr(first) # u5 V$ z. Q1 l1 e6 O+ R
Response.Write "加密后为"&last % N5 U" i5 ^  I! I0 g$ Y
Response.Write "解密后为" &decryptstr(last)
$ z' o5 [! ~3 q9 W. X8 x%> ==============================================
; g. \1 S( E6 d剩下的就是字符的对照表了/ ~1 p6 @" l: B: |9 L* K6 t3 ~
===================字符集================
# K0 u! f6 o8 X1_____6EBB$ U* H' \9 S! z# K, p( U; X
2_____5C1F. S3 \% u7 N# U6 ]9 U4 t
3_____4D75/ }5 K; Z+ }; `# ?  x7 q" ~) f
4_____26CC; ]4 D0 a" X( {+ m# r
5_____4F88' h+ @2 h9 |; P2 C  Q
6_____3F4E1 u0 N: V$ o1 @* K
7_____0A9D
# ^; d5 A0 ^, f9 G! s8 y( i4 T0 b8_____1A1C* B- B& a, M+ P6 J# [9 w. ^2 E
9_____6D20- |! R' ^9 Q/ C8 c, J
0_____1089
2 y! h# M& F; q* G3 u& X+ }a_____0F3E0 {: \! e7 w. m8 x
b_____3159! c  ~2 v7 P1 X1 H6 R
c_____3517
, i+ }) Q+ j; s& id_____419C
/ r0 D  P( Z) L  n9 ^4 X' Me_____615C. l& h4 t: D: m$ @# l0 C# o
f_____556F
  x. `7 ?# }: eg_____2B7F
' H3 ~+ \6 U, i: w. f/ b7 i& Bh_____0F9C# ~# c! {, }. ~2 @
i_____00FA
) B. p& z+ h6 V7 }- o1 ej_____5A503 Z1 u3 c- L, k" d+ b
k_____2850
+ p% v5 T7 l* ll_____3E7B
5 z/ r5 A1 X7 h& }m_____71C53 h. ~6 n$ C8 d' l5 z, Y$ q
n_____1FC8( x* c7 U- H- j
o_____74C1
5 ?' I. n: p( H% I) Yp_____5FB8  |/ l2 _$ e+ t& x6 d
q_____6085
6 b$ i. G* `% J4 w( g6 |' er_____3AC48 o! ^" f& [, |  w/ U7 L
s_____2F50' ^% a  w" ?( d8 b* _
t_____36F8) |. M  a/ ?3 ]2 s
u_____7010
4 c% I3 N! {8 s, D' G  g+ Tv_____0B42
0 U. G- J6 M4 r4 pw_____1C7A
4 ~: t) U# }3 [$ D6 k2 ], \" P, ^3 O) qx_____16F8
1 Y# `& S/ u6 Q" l6 K" e6 cy_____2EE79 i7 M  q$ }/ T6 n$ ]. [( q
z_____5CF3
5 A. _, D& |& s1 q' h!_____6233
2 _. F  [' }: \1 _* s@_____3A45
2 V5 i' C' C$ q, d* j+ C#_____2291
6 ^' L1 g2 e/ k# V  P4 }$ t4 e$_____5D5C
! b. G9 U- q5 U% Z5 z%_____09B9- P* d0 @' e# P) k' a3 ]. D
^_____43EA) R+ y0 `: [, j0 Z0 U2 }8 E1 f" J
&_____62B9
: y9 x/ @& [( ~9 i9 f0 T4 F*_____6301
- l( b+ B" B+ Z(_____4659; s- K* Q# {3 l9 H# o* a
)_____5C82

鱼儿无心

收藏了。。。。。。。。