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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
0 G3 ?4 ^$ ]8 y- f4 x原始出处：http://www.3ast.com.cm0 I( a8 Q) A, T2 j5 J6 t
" q; I( z7 b8 v
看不懂的直接绕过6 {! z  s& G* V8 o1 v
加密前为:hwy123456
& u& b$ q2 a! W5 G% r, O* @加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E) ?+ O% N2 q0 \8 K5 h) P! k

& H5 G. w4 b& J) N; O$ Y============================================
7 U2 f. r/ q; g; _上面是当时自己校内的心情。现在已经解破出来了，分享给大家6 f: \: t, j4 J/ z& N0 u4 ?) \0 _
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法0 c& p/ c+ L9 ^$ Q- t. r5 T9 j$ B
以下是RSA算法文件6 j- H9 B( h! Q2 I. g- Y
. P1 }$ w1 Z& a  n) T: o  C3 e
文件名RSA.ASP6 S* E' v8 P% r/ a! Q
===============================================
, L) m3 Z) l& _' x$ \5 B& N<% # Z* _: A5 Y0 s6 C  |) V
Class clsRSA
: i: @4 b. w+ J0 i7 q, q1 Y1 C5 ePublic PrivateKey - @; X, S# E6 S0 l' f/ U1 E
Public PublicKey ) b$ h- w1 m" {: W  k
Public Modulus 9 c% ~/ H' E* o
Public Function Crypt(pLngMessage, pLngKey)
+ _) i4 F# _  n, e. p( v2 ~# e( BOn Error Resume Next ; o1 l( ^+ T0 a8 q
Dim lLngMod
1 n8 F6 \5 A6 z( Y* w) P2 r# fDim lLngResult
1 P6 T, B+ L% u. X- @! i+ MDim lLngIndex
8 y* u. l4 Q# ~6 u: JIf pLngKey Mod 2 = 0 Then
) {" Y! v) M  h- U6 u! u0 GlLngResult = 1 ) y% M5 z) ?' }4 F7 H. s: z# e* J
For lLngIndex = 1 To pLngKey / 2
9 A+ _  P* n2 s, xlLngMod = (pLngMessage ^ 2) Mod Modulus
% @  ]) b) g. ]9 @9 _' Mod may error on key generation / l2 g& K- M, Q( I- h! G
lLngResult = (lLngMod * lLngResult) Mod Modulus
! H- n- x4 X/ O: N; \/ y& k" U7 pIf Err Then Exit Function
7 O9 b" D& Q7 C( p- U0 w* [Next 0 W5 F8 D  g; r! P& ]
Else
* C% n3 D+ m/ m7 jlLngResult = pLngMessage
. m5 y% l' W! r4 S# X  a8 ~! X7 K5 OFor lLngIndex = 1 To pLngKey / 2
  |1 F" [* w1 K$ h# Z4 FlLngMod = (pLngMessage ^ 2) Mod Modulus
( x- ]* Z" Y1 h+ @On Error Resume Next
+ W0 U7 u, b- F9 x' Mod may error on key generation & X$ F: {% [3 m! r* N# ^( Y" X4 {
lLngResult = (lLngMod * lLngResult) Mod Modulus
9 ]  M- S2 m# o- ?, VIf Err Then Exit Function ( w/ k; R' B* Q4 `2 t
Next . }, Q1 h5 e! z$ F- Y
End If 9 a2 e: H3 V) D: |
Crypt = lLngResult
, C" [8 e7 f4 O4 I; U' bEnd Function! ?& J+ Y, g- k) A) ~# H' a
! L( k: M) u: W0 h
Public Function Encode(ByVal pStrMessage) + S$ C5 b, p" S. b7 f% f
Dim lLngIndex
$ o; K+ D0 n! V$ }3 u9 EDim lLngMaxIndex
+ y* ^3 u* O& h" C% ]2 ^# ~Dim lBytAscii
% \1 k1 Z7 i$ j. N+ q( YDim lLngEncrypted ' m4 H) M9 B# p" a: v
lLngMaxIndex = Len(pStrMessage) + I& Y$ E( E- b/ H. r0 ]' Z. H4 x( i
If lLngMaxIndex = 0 Then Exit Function
6 @% K) U  }7 N9 ^  h$ IFor lLngIndex = 1 To lLngMaxIndex
( r# g; p$ k5 z! U; ]lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
& f, c8 `% k  zlLngEncrypted = Crypt(lBytAscii, PublicKey)
# \% ~6 Y. P6 i, @" [Encode = Encode & NumberToHex(lLngEncrypted, 4)
9 N0 y; d7 B% ~, X/ u3 r/ P; J; I, RNext
5 X) F4 e3 }( l* R0 hEnd Function , R: P3 r, T% Y+ |- A9 ~
Public Function Decode(ByVal pStrMessage) " f) q2 q4 l- u$ w( }2 a
Dim lBytAscii
* @- }) K7 [8 l/ c( t  e- X7 cDim lLngIndex 8 X* w% V" y8 c5 V5 c# |
Dim lLngMaxIndex ) o% C7 q3 P! @! Z& i% J7 X
Dim lLngEncryptedData % C, u. r5 b& u6 `- M" W
Decode = "" $ H4 B4 s! Q( D7 i% t9 `
lLngMaxIndex = Len(pStrMessage)
7 `3 J+ t& l# _, U- D  _  ~For lLngIndex = 1 To lLngMaxIndex Step 4
) R+ L: a' f  ]7 q4 j8 \5 wlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 5 {7 E8 f$ @6 `5 v
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ! o; q" v* H7 B$ s( a+ y* U
Decode = Decode & Chr(lBytAscii) / Q$ J5 ]4 P/ x. v1 u
Next
. O- d  E7 B5 a6 nEnd Function
& ?' B3 Q: v% R$ ^Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) # i5 ^: K4 d  U( X
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
" U1 `- E+ I! `! T! y& PEnd Function
1 a3 ^& w& o7 E! PPrivate Function HexToNumber(ByRef pStrHex) . ~2 [# R9 p9 ^
HexToNumber = CLng("&h" & pStrHex)
% m9 c+ L2 @# A4 t" [End Function
$ p) P  @# O, h9 c6 `End Class
2 H1 z7 O4 F; e0 Rfunction Encryptstr(Message) $ ~4 r0 d. n0 p: A5 y
Dim LngKeyE 1 u$ {$ _/ @- N% F0 K: K9 B
Dim LngKeyD 4 }  t4 N( ?8 r! x
Dim LngKeyN & g& }( f6 T; h" K" e6 l, @
Dim StrMessage
+ h2 [4 m9 K9 q9 t* W* W$ u# S! H/ fDim ObjRSA - X* m7 x9 u( f2 _9 @) N5 B8 s
LngKeyE = "32823" 1 s3 H+ P. {. N7 k: {
LngKeyD = "20643"
6 n$ J1 @' d5 v7 d" w- _LngKeyN = "29893"
; C, O3 v0 F5 {, EStrMessage = Message , l; Z' Z* b, {1 F4 f
Set ObjRSA = New clsRSA
. o" i+ ?% l/ U( dObjRSA.PublicKey = LngKeyE ) ~3 {3 g9 T; E% [0 ^
ObjRSA.Modulus = LngKeyN 0 H( l& E4 ?1 s9 V
Encryptstr = ObjRSA.Encode(StrMessage) 0 l9 Q5 o& e5 Q; o; A! i+ @- B
Set ObjRSA = Nothing ) J/ l) [) u! I/ |* g$ v
end function" ^4 B6 M+ _- P% l
Function Decryptstr(Message)
1 x3 S6 w/ s: t5 @7 g  tDim LngKeyE
, j0 F7 M4 ~: Z# W- ~0 ~4 L: nDim LngKeyD ( Y: q: C' n9 Q% l& {
Dim LngKeyN
7 `4 e7 M. G4 e: dDim StrMessage   i; }6 `1 Y3 U0 G
Dim ObjRSA , q9 `1 v) c/ ~9 \6 e+ l( ?
LngKeyE = "32823" & Y. s% N2 d0 J9 a: P1 {$ R
LngKeyD = "20643"
6 q& i3 @+ I" n  |5 LLngKeyN = "29893" * Q; y# f: |6 J% ~! \6 i9 \
StrMessage = Message
! u% n# l2 }2 C' ^Set ObjRSA = New clsRSA , ]1 V* ~! O" U( ~5 Y' W8 }
ObjRSA.PrivateKey =LngKeyD
* L/ w+ e5 A  O; z3 C  OObjRSA.Modulus=LngKeyN
* N6 B( I+ t3 w+ t7 p: }( H6 kdecryptstr=ObjRSA.Decode(StrMessage)
5 S& n* D7 }$ n# R- Y* q2 ]4 G9 jSet ObjRSA = Nothing
+ C0 T: p, d$ g% s; aend function : g! r" G3 ?: S( [
%>
& _+ b3 z9 S( B- P4 E0 S/ a===============================================
! J, `% {0 H- x2 s! E' L/ L) P' H
, j+ n5 O& z3 v$ G$ t( c还有一个用于测试这段代码的test.asp$ X  Y- Q, `: n" h/ D
有兴趣的自己搭建个IIS测试下- h4 I9 u0 o9 y4 _5 P% b& I7 m
<!--#INCLUDE FILE="RSA.asp"-->
* a6 J; `) B/ j7 Z3 O# x9 X<%8 k1 ]6 y) C) O! e; ^. o7 A4 y3 n
function Encryptstr(Message)
) _! }; P( u4 ^9 B( a3 ^( b% XDim LngKeyE $ u- K. N8 g- w; p/ F" [& e
Dim LngKeyD
* C* k6 `( [: e# mDim LngKeyN
6 h) v. Q3 E" fDim StrMessage 1 X9 F; P  I) m$ a5 b
Dim ObjRSA
( D: b! }7 Z3 w4 rLngKeyE = "32823"
; k$ Z  ^! W: e/ {) s+ e( LLngKeyD = "20643" " w, A1 X. G- u3 N: b
LngKeyN = "29893" + P" }1 P2 l# b* h
StrMessage = Message   D( L% G7 v/ t2 {
Set ObjRSA = New clsRSA
& K4 V  {- [# X( X9 E5 oObjRSA.PublicKey = LngKeyE . P, K  w# A7 H7 k! B! W
ObjRSA.Modulus = LngKeyN
: O9 j( Q) e+ X  ^8 k0 vEncryptstr = ObjRSA.Encode(StrMessage)
" a. R) P$ ~& r* _3 J. H! FSet ObjRSA = Nothing " S8 `" H: j! y3 i, ?
end function ! m- ~0 o* h- C
function decryptstr(Message) . ]7 u: j0 H+ o4 @4 R
Dim LngKeyE 1 D- V5 N( _: o
Dim LngKeyD
; t8 I7 T4 n) q2 ^8 rDim LngKeyN : n, R+ x( Y4 n% i+ B$ }
Dim StrMessage
8 ?  u. m2 k  ]2 FDim ObjRSA
: Y& Y- D+ t) o' eLngKeyE = "32823"
5 S' [' u; ~4 s& CLngKeyD = "20643"
/ E( L6 C* B  F6 B% sLngKeyN = "29893"
  Q  x0 G- R9 CStrMessage = Message
3 x8 y3 r3 t& ?2 U0 q5 wSet ObjRSA = New clsRSA
0 K% d* q" e+ E3 {  t/ _* Q( c% WObjRSA.PrivateKey =LngKeyD
4 A0 D# _3 o3 j# iObjRSA.Modulus=LngKeyN 4 C0 a: J8 n' R- Y. \3 h" X/ v- L4 o
decryptstr=ObjRSA.Decode(StrMessage) + p+ l, K4 b8 {$ g8 b& Q* Z
Set ObjRSA = Nothing
& i+ `' b% A3 Z: O0 A& Jend function 7 B9 N5 h* l2 Z' `0 [, n) H
dim last,first
1 C4 o. t5 U5 @6 I' nfirst="!@#$%^&*()"
) I' S) C( H/ y4 |" B' QResponse.Write "加密前为:"&first
5 k/ X6 V) e$ O, a" |0 K: Plast=Encryptstr(first)
) @) ^3 t, ]. c; T( @" X$ dResponse.Write "加密后为"&last
1 _( I/ [  K1 W/ yResponse.Write "解密后为" &decryptstr(last) 9 u) U7 y2 M3 H
%> ==============================================  e( o$ V) P3 P3 ~6 G
剩下的就是字符的对照表了
+ ?$ l/ @4 d; b* W===================字符集================1 L0 m' j  F# J- l; ~# \) [
1_____6EBB
; L  L7 l: A8 F2_____5C1F
; z) J8 `' b! ]; p9 y# U" t3_____4D75
6 v' N' E# x0 S0 p; F. }, L4_____26CC
2 b( i+ e) p: W5 a6 ]5_____4F88) ^3 J+ m. B1 }# {" G( c
6_____3F4E
  s% k7 O- _6 y0 N% H& J7_____0A9D. @; u' Q) l4 H2 n1 _
8_____1A1C
6 K5 K$ o( X0 Y% Z9_____6D20& X: L" R6 j( C. h2 t
0_____1089/ r5 K7 m( }' E! c
a_____0F3E. }- x) X0 B9 k: Y% i
b_____3159
* |. y0 a, \, \9 b  A4 `3 Dc_____3517
+ v4 J6 {  ]1 b0 \5 P4 k# o" Kd_____419C
3 v2 T3 m" m7 m5 K1 be_____615C
' E( x; _1 N) c" s( w3 rf_____556F: Z8 y9 c: p! |
g_____2B7F
) S) n7 Y- B  C7 n& G/ Xh_____0F9C; t; l) ?$ ^3 B- m
i_____00FA2 J( B: J$ [6 ]$ B1 [2 V  ]6 K
j_____5A500 t6 E' L) |% }6 @" G9 `
k_____2850
# ?" P2 u) R* \" il_____3E7B
! V: V- ?4 S% ]8 ?m_____71C5  v& g6 ]8 T8 Y" A, b: a/ Y, i$ }, M
n_____1FC85 v$ t3 P' {9 t/ {
o_____74C1
5 B- p$ ]% F' T" {& \" Np_____5FB8
3 X) g! g( Z0 R* `# i0 Mq_____6085% `# }; b; }8 x, F- r, I) S% N
r_____3AC4% @6 t9 O- R# s6 t" v
s_____2F50
  y$ w8 _% w! i- {t_____36F8
+ G# I& w* K5 e  n( X, @u_____7010, @$ A' }+ U6 y1 X5 B8 r
v_____0B42
5 ^+ k/ M; h3 g5 ]' ~% F+ _w_____1C7A( o9 Y  _( r) P- [
x_____16F87 ^7 R% Q/ j" a' r4 N5 Q
y_____2EE7! K+ j7 _3 @# N9 n3 b; ^
z_____5CF3$ B; k$ q: q, e& |- O& B
!_____6233$ e% f+ k2 @# Z/ o9 |% t( d' I6 y3 d
@_____3A45# u: w1 g& w1 g7 S
#_____2291
1 `: B6 U( C& |9 |" n$_____5D5C
% j) V/ B) O" z%_____09B9/ ]( m& D2 a% d3 w& k$ b
^_____43EA
9 K; ?  `) n2 F) W( N* z7 V. o&_____62B9
  [$ ]1 [) [% ^1 [7 Q2 j*_____6301( F! J& \: {8 K% o) x2 ?  h  M2 z
(_____46591 v6 q" n0 f4 ?; g9 ?, I% v
)_____5C82

鱼儿无心

收藏了。。。。。。。。