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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
# t, Y; ?. u7 O/ S6 H% {" e; H6 B原始出处：http://www.3ast.com.cm
  ]1 m/ q8 V! @2 Y* [5 `) \, G3 g  s4 S9 [3 z0 ?( {
看不懂的直接绕过
  j7 B7 Z8 v) D9 C5 y加密前为:hwy1234561 W  w6 z* ?! d  R8 d+ W+ w2 e
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E) U  Z. }3 M; w* p( V. v% ?
5 M( z. u6 b* o- V5 o. ~: O
============================================
% s" M% }: |5 ~& v( S, s1 M上面是当时自己校内的心情。现在已经解破出来了，分享给大家9 P3 E0 B' W& k, Z, t" [
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法* e% v) K1 m* a# v- i. r
以下是RSA算法文件6 ~. B3 s( U! v$ ?2 o( Z: `9 p

: ?- C9 y1 q# W! c9 t文件名RSA.ASP- P: v* z+ s2 x9 g
===============================================7 g/ O" I1 Q) J
<% ' V7 T) \* k1 F7 J! n. q2 f
Class clsRSA
" t$ w. b9 `* d: I) x3 JPublic PrivateKey ! S2 X8 C3 r2 t2 a8 A
Public PublicKey
7 v- s, f! e1 f+ b5 OPublic Modulus
4 E' x. X2 A9 rPublic Function Crypt(pLngMessage, pLngKey) 8 F0 M% x# f1 E9 o
On Error Resume Next
3 l3 T+ G6 R9 J- xDim lLngMod
, o; W  o4 x) h. C4 c, HDim lLngResult
/ Z6 ~) h# ^2 ZDim lLngIndex . k) J/ m9 a4 H5 h& J( b; K8 F9 y% [
If pLngKey Mod 2 = 0 Then
# _2 _- l! }: m7 ?5 AlLngResult = 1
$ |* @, e2 Q: e' f' C" U5 I$ z( hFor lLngIndex = 1 To pLngKey / 2
$ V9 I* J/ ]( JlLngMod = (pLngMessage ^ 2) Mod Modulus , Y7 V, L2 o5 w5 j% e
' Mod may error on key generation
1 s* T5 [* n" n; I# ~lLngResult = (lLngMod * lLngResult) Mod Modulus # q1 E, w% x  _1 M( a' ]! n5 K
If Err Then Exit Function
* P' O9 z3 X6 _  O- v: a3 PNext 7 ?; i- x4 X" x  p# s' |6 L
Else
3 _# ^, G8 H: O  d8 ?" C9 T3 llLngResult = pLngMessage
: q) a; {. Q( q+ Z' LFor lLngIndex = 1 To pLngKey / 2
. D- M. h( O1 P3 h: R" z8 I4 nlLngMod = (pLngMessage ^ 2) Mod Modulus
) s' {6 _2 C9 \& v& \On Error Resume Next
2 w5 A( h) P; P7 K( u( p" v( {' Mod may error on key generation
; \+ T+ o( {" I' GlLngResult = (lLngMod * lLngResult) Mod Modulus
6 X" S( {$ y" t5 v1 I- l7 _If Err Then Exit Function
5 q* g  A' ]- s. n# c. SNext ' t% @4 C8 ^2 n
End If
" r& g9 p( {: [4 p0 E$ [Crypt = lLngResult 5 `1 N" A/ X, i0 I1 x, o: p
End Function
2 i9 o4 _  [7 {, s+ K5 q0 q* M9 _0 e2 R; ~" C+ J! k# {
Public Function Encode(ByVal pStrMessage) , ]9 d+ P; w6 J, ^- d1 {' w& h. \2 r
Dim lLngIndex " `0 l; y/ Y* P: h4 n- B5 }
Dim lLngMaxIndex % C0 M/ H, c( A# ]# [
Dim lBytAscii 4 y4 `$ S8 r. s% B
Dim lLngEncrypted 5 [! i$ k- w& N( m/ b  U; _
lLngMaxIndex = Len(pStrMessage)
0 ]) y6 C5 Y  U2 CIf lLngMaxIndex = 0 Then Exit Function
. d' l; u) [0 @8 l) D& @  I8 X" S0 `For lLngIndex = 1 To lLngMaxIndex
; m% G0 ]; d4 r  P, HlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) $ a2 P' o' W2 e0 C7 \. Y
lLngEncrypted = Crypt(lBytAscii, PublicKey)
. L& [1 C! u: O8 ^4 t4 P+ kEncode = Encode & NumberToHex(lLngEncrypted, 4)
/ ]7 Z) l* _% n0 u! q5 F7 @Next
7 P6 i! j, N$ ^$ J& |End Function
7 K- ^7 l  l2 I6 E  d) QPublic Function Decode(ByVal pStrMessage)
0 U( A6 _: L$ K- kDim lBytAscii 0 O: j; i: w1 e2 r6 M$ Y
Dim lLngIndex - }) S5 o  {: j' Z: K/ A
Dim lLngMaxIndex
* E( u. s, y1 d  ?Dim lLngEncryptedData : Q" |3 s  h% \) S  H
Decode = "" 3 n; Q7 T0 J- r+ ^/ B/ V  L9 Z
lLngMaxIndex = Len(pStrMessage)
" h* k, W5 u  D2 H+ F7 kFor lLngIndex = 1 To lLngMaxIndex Step 4 2 b  @# B2 [  ^: Q& s# _
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
- g3 }7 p2 s/ o  X1 zlBytAscii = Crypt(lLngEncryptedData, PrivateKey)   v# s/ L, f# [
Decode = Decode & Chr(lBytAscii)
  G$ k# O- D, {" ANext
. X, ]! h* ~5 V: |1 `1 vEnd Function
' V" H! N( R* H8 F/ S% w# IPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) / N. A" y0 I- r5 \
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
# g$ s5 S# E9 C3 }5 iEnd Function
7 a' c0 Q; Z9 [! I& C: u: _6 aPrivate Function HexToNumber(ByRef pStrHex) . Y8 {( x% g+ U( Y
HexToNumber = CLng("&h" & pStrHex) ' P! P  [+ N5 v2 Y9 T0 [/ N
End Function & u. ~" `9 s3 o3 @6 l8 b/ A  ]0 E) {
End Class
3 s% h; P: X5 w5 S# xfunction Encryptstr(Message)
4 I( w7 u6 s: ?" XDim LngKeyE
9 {$ N" ?; C4 i+ p8 eDim LngKeyD
! |$ z" T& d8 X* V3 E2 ^Dim LngKeyN / l3 A- a2 {3 ^
Dim StrMessage # a9 V5 j, ?) j9 r* C& s( s0 I; A
Dim ObjRSA % U; ~. b; p+ J( _# {0 v
LngKeyE = "32823"
# C2 M' D+ N5 J# [LngKeyD = "20643"
+ @+ d3 Q, A: }. fLngKeyN = "29893" + ]7 H2 l" e$ f5 j1 U( q
StrMessage = Message
/ L- R* [8 Q8 R6 lSet ObjRSA = New clsRSA   O2 t- `6 L, `
ObjRSA.PublicKey = LngKeyE 2 G' K7 |, m6 T0 p" U. Z+ i
ObjRSA.Modulus = LngKeyN ( C9 L; G$ Q5 n
Encryptstr = ObjRSA.Encode(StrMessage) 7 M6 |* u- m7 O% x/ |; F5 o' O( |1 i
Set ObjRSA = Nothing 7 J' b3 r7 r4 q& o) H
end function6 `$ h1 O2 e- q5 Q0 a5 D. [
Function Decryptstr(Message)
. C$ y! o5 D" j! x8 |  b4 X) S6 P1 NDim LngKeyE / ~7 c: w/ k8 |6 N- V) k. R. Q1 y
Dim LngKeyD
2 U4 }7 z2 h4 G" A4 W7 e! HDim LngKeyN
2 i, }5 {/ E8 A# ]Dim StrMessage ( l& Z8 J2 c% b/ I
Dim ObjRSA
- Z. x  t9 y( w' z9 @9 uLngKeyE = "32823"
! {/ L0 g0 a1 z, kLngKeyD = "20643" 1 v2 _1 M% B3 u
LngKeyN = "29893"
7 }* _1 R) n1 OStrMessage = Message
! w3 c- l. R2 c/ GSet ObjRSA = New clsRSA 0 l( h) `+ U1 ]0 v8 D" u0 \, y
ObjRSA.PrivateKey =LngKeyD : e- K6 \$ [3 ?9 \+ h$ \
ObjRSA.Modulus=LngKeyN
7 X: k, p! \4 ~# I/ idecryptstr=ObjRSA.Decode(StrMessage)
4 R# J4 a9 Q7 D& D! jSet ObjRSA = Nothing ' r, ^5 L; ]6 U# E6 \5 q
end function
3 o) O6 ?! ]3 M( m" Z  I%>
# ]7 l  d& [3 K% J===============================================
" b" ~/ n) @: a; j6 I+ ^) {4 Q% E% m: v" f2 _; _) f4 Y
还有一个用于测试这段代码的test.asp/ Q; L: E( Q; ]
有兴趣的自己搭建个IIS测试下
% r. V( y- d4 [* n' i<!--#INCLUDE FILE="RSA.asp"-->
% N) d: h3 b7 @* q7 W# f2 k& l. V<%
- ~1 P2 Y1 y  t, K# \) F  L! Sfunction Encryptstr(Message)
  [+ F* _# k2 C$ Q3 KDim LngKeyE
: a( _  u$ g* o& mDim LngKeyD
3 B6 X0 J* C6 l  SDim LngKeyN
+ y: d6 k7 c, n+ n* k5 DDim StrMessage
/ X: J( Z/ n. P  \% c+ |$ @Dim ObjRSA & s: P& `1 ~8 |1 ]
LngKeyE = "32823" : Q. s# ^2 H+ |$ s3 A/ P, G8 D7 W
LngKeyD = "20643"
' O: F3 D& B" TLngKeyN = "29893" : c( C  i$ M, l! S
StrMessage = Message
# ]3 N3 N& j  W, jSet ObjRSA = New clsRSA
9 P' B0 D- r3 r& gObjRSA.PublicKey = LngKeyE   x4 ~& h/ ?3 p" c; @% o
ObjRSA.Modulus = LngKeyN   V8 L/ V" }- v" b& J0 [
Encryptstr = ObjRSA.Encode(StrMessage) . P3 u5 o3 `2 ]1 l* I
Set ObjRSA = Nothing ' x; z& T* @, \* O
end function : F" _( d0 C( B- Z+ ?
function decryptstr(Message)
" c7 {# Q" S5 v6 ]5 b8 u$ rDim LngKeyE 7 F8 O& A% S: T* h- F3 S4 @9 `
Dim LngKeyD % `; c, G( s/ k" w
Dim LngKeyN
# v% _  m% H+ I' v0 }9 W) F) yDim StrMessage
7 y+ w! m" l) ?4 }2 a1 M+ X. e5 lDim ObjRSA
$ |( v) x  j0 i; OLngKeyE = "32823" - U" m. v+ v  Y
LngKeyD = "20643" 0 ^* X. S) w6 y. {7 ~( F  t
LngKeyN = "29893" 3 _/ F  W3 s& K
StrMessage = Message
. C% l& Y% D0 c5 QSet ObjRSA = New clsRSA - C* Y$ G& d7 T& M9 d: g
ObjRSA.PrivateKey =LngKeyD
+ x- i: Q) V5 M0 gObjRSA.Modulus=LngKeyN
8 y3 s# R, t2 M, m1 _' _decryptstr=ObjRSA.Decode(StrMessage) / M( U; A" Z1 t6 U
Set ObjRSA = Nothing : Y* U7 Z) ?3 I: h! L
end function
$ ]. ~; z* r) A0 W' U1 ydim last,first
6 c& q) @/ B& i1 s- P4 Q# Cfirst="!@#$%^&*()" 3 P  U+ R  g  J( Q, U4 m
Response.Write "加密前为:"&first
2 X  d8 E, B( h$ I6 b4 a, clast=Encryptstr(first) & r5 L' `' d7 h% a. Y. M
Response.Write "加密后为"&last
$ R% t$ `; [$ L: ]Response.Write "解密后为" &decryptstr(last)
' j& R7 U& v: Y; Y! r) k  k%> ==============================================
" C0 o5 `* s# b( C$ d: V" p# }剩下的就是字符的对照表了1 I  @- }5 B  K
===================字符集================
' d( P2 M. j; z! ^. M) r3 U1_____6EBB
6 E) d/ d" z' h% S- w9 D# u2_____5C1F
% T( w( f2 A# F6 ^% A& y3_____4D75
, C- K3 L8 e/ W  i# \% E, ?- j: @3 ?4_____26CC  e' B1 Y, a( ]# s* o1 I6 x
5_____4F88
0 E. o( |* _; p6_____3F4E" i7 X! t1 Z& }  a" E
7_____0A9D
* N6 p0 a, p$ t3 D5 f0 {  H, d8 V8_____1A1C9 _- T9 B" b- ]$ b
9_____6D20" `8 N  o. B$ i) K6 p1 W" \, E/ H0 \
0_____1089) G& Y$ T1 H) M: H0 @
a_____0F3E
9 E8 C% L0 u9 k5 I3 @b_____3159, F, o2 ~( i7 Q7 o2 ]
c_____3517* V; g+ F4 [) x4 n# j
d_____419C1 z9 ^+ a0 v* P9 n6 W; ?; h8 R: l
e_____615C- d+ }& z  v3 o0 o+ w& {# n. p; W$ r
f_____556F
, L/ n; l% e. |3 og_____2B7F% A+ K8 f: z) |' Z2 k
h_____0F9C
2 z. K2 e  N: z. t8 Y% wi_____00FA4 k+ O# w% T* U' @
j_____5A508 b. o6 Q+ n1 @- n' U( X" G
k_____28508 R; n1 f9 Z2 ^; j; M
l_____3E7B
2 i- k3 p6 r: p: p4 f' Dm_____71C5
5 Y0 ^" l- K0 ~n_____1FC8
" j7 o2 j. j8 ^/ C/ so_____74C1
1 w1 X! A4 A; \* F+ g; z! ]  C& op_____5FB8. l# Y- M! @6 _1 A
q_____6085
. a. A1 J0 M9 _  Yr_____3AC4
8 Y. S3 `4 l6 @3 l2 _s_____2F505 T6 F: w- f& \
t_____36F83 M" R# J. X7 |; ^( }% {  B# g
u_____7010
% p' L8 O4 T1 A' i. w8 t5 qv_____0B427 M3 ~0 t4 V# b0 r  @
w_____1C7A, `; W1 i3 a# v. n; L
x_____16F88 Y4 j" s" t' t( ?3 b
y_____2EE7
+ \/ _8 V, G& F" H3 ~$ V  u0 Xz_____5CF3: d: {1 D0 a5 l# e# M
!_____6233
0 I/ m& K4 ]" F@_____3A45
& P. l; J' |) j+ w3 c* k8 e1 j1 ]#_____2291
: ?8 `% [5 T. m' m* W0 z. I$_____5D5C
5 s% o$ |8 M4 B7 H6 L" \%_____09B9  i9 n+ y0 T% o# D
^_____43EA
. t2 g9 z+ h7 ?3 T6 C6 F0 h3 n$ d&_____62B9, y: c1 \: F$ b. p( k. \6 ]$ C
*_____6301
- U6 r3 I9 J, h  Y. X3 H(_____4659
3 |- R* L- X7 A)_____5C82

鱼儿无心

收藏了。。。。。。。。