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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm+ S4 o8 L6 s; m
原始出处：http://www.3ast.com.cm
$ Z) u- Q9 W  J' J" P6 p" l& S5 r" k2 w2 p5 N! V0 W) {
看不懂的直接绕过
7 f; }8 V) I) r2 N. N加密前为:hwy123456
: `+ w, g& K" u, G加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E; Q9 a% R7 r  `/ p9 T/ Q
  B6 h2 _- V4 ?) I. O
============================================3 o& B, L5 R% q6 q2 z* Y  d4 l- ?
上面是当时自己校内的心情。现在已经解破出来了，分享给大家& Z3 k% x4 W0 X8 b% B/ R
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法4 g7 z& }2 s2 m
以下是RSA算法文件
5 p0 L, a7 ~, f/ g% d- p- @& Z. f# @3 P
文件名RSA.ASP  r, Z3 R. P5 A4 p
===============================================
: N' e1 Y8 G( D* `<%
& u/ p$ N9 o1 v% D) Q" E) x% r- aClass clsRSA
$ N) m% t7 M5 ^6 IPublic PrivateKey ; r7 p! z: r2 \( K0 O
Public PublicKey
& q5 `, H4 E( d  `" Z+ B6 YPublic Modulus
; \2 X5 s6 S: e4 u0 S& XPublic Function Crypt(pLngMessage, pLngKey) 6 W, C: T9 a) ^
On Error Resume Next
* ?2 S+ a9 c* T- P1 A4 DDim lLngMod
. G8 K$ m7 Y6 ^; g$ SDim lLngResult
& O) [0 w: A4 wDim lLngIndex
5 x7 K9 [5 a+ T( P8 }If pLngKey Mod 2 = 0 Then 2 @/ _% w7 e! C' L- B1 T) ^
lLngResult = 1
& Q" c( W5 s2 M2 i# H% F$ [For lLngIndex = 1 To pLngKey / 2 $ J$ F8 T# ^0 t- K
lLngMod = (pLngMessage ^ 2) Mod Modulus ' }/ i8 m7 i, y' ?; q
' Mod may error on key generation
. y" j4 J+ d( [% `/ }1 E: P/ _lLngResult = (lLngMod * lLngResult) Mod Modulus 5 q4 z) n! a' k5 t5 h7 E. d
If Err Then Exit Function
8 P1 b  S' p  {9 n5 d4 }/ mNext + I" R8 F3 B. X2 P! X$ o
Else 1 F7 D9 h& @0 L8 |" D8 X1 r6 }& B
lLngResult = pLngMessage
+ \% K0 i! Y5 ~: a. v' ]For lLngIndex = 1 To pLngKey / 2 , ^- N, d8 @% e4 p% _7 Q
lLngMod = (pLngMessage ^ 2) Mod Modulus % |: F; ]7 [# F
On Error Resume Next
/ w7 w! O; Q8 Y2 x' Mod may error on key generation ' p1 _# `' q" h* R$ v
lLngResult = (lLngMod * lLngResult) Mod Modulus ' u$ }) v0 U7 ?) `; U; A2 V
If Err Then Exit Function 4 Y- ^9 _& N# x5 J8 u: S- H6 Y
Next 7 X; H; q# D: j0 g
End If
2 w; X1 c$ J. c/ f3 _Crypt = lLngResult 2 [* n+ h" P* L* m4 b1 R: }! N
End Function% j! Y+ o  [" J% i; C1 e0 c

6 h# j! v- J# w& MPublic Function Encode(ByVal pStrMessage) + M$ X* w) }1 g4 x- w* j. c+ D; q
Dim lLngIndex
& \; y6 m4 a+ [6 SDim lLngMaxIndex - g$ a5 C  c3 X! |/ p
Dim lBytAscii
  ^$ d' X4 |1 N! IDim lLngEncrypted # b# |! k2 s4 R$ j( P1 I
lLngMaxIndex = Len(pStrMessage)
) z% p' _2 }3 @1 j' C8 aIf lLngMaxIndex = 0 Then Exit Function
* @( g3 F4 p9 n% j( F- tFor lLngIndex = 1 To lLngMaxIndex
9 q* J- j# v! b" L& V1 S( c# a2 `lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))   d* B  _, E; M
lLngEncrypted = Crypt(lBytAscii, PublicKey)
5 ]9 k6 W3 V0 [% t  v/ JEncode = Encode & NumberToHex(lLngEncrypted, 4)
! L- ]5 g: [7 [5 }1 M% |, m5 {Next 5 h; k$ G5 q6 j" x" q9 e
End Function " i. m, M7 t' d
Public Function Decode(ByVal pStrMessage)
$ X# m! U; K- aDim lBytAscii
4 x7 ]  N" l8 ODim lLngIndex + h/ j! T) `8 `5 A* K  }
Dim lLngMaxIndex 1 [, v8 s9 |7 y! d* C/ |% L
Dim lLngEncryptedData 1 R, X! x& K" [; G" U7 Y
Decode = "" ) S$ U. e( c- H( c
lLngMaxIndex = Len(pStrMessage)
2 z+ `0 A& F( U% z7 KFor lLngIndex = 1 To lLngMaxIndex Step 4 % v3 i1 r) `' L' W% X; D
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) " ?+ S0 s# d" S5 U6 Y/ D
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 4 v& B: p" U8 r4 w5 S
Decode = Decode & Chr(lBytAscii)
: Q0 d; G, _, }5 qNext
' n$ x( [& o( f3 E* bEnd Function 3 w; `& v2 d( [% ^! C6 [. j9 c
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
% i; V* K/ R# ~# J5 ~3 e8 T  nNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
. [3 s$ O+ _4 jEnd Function 9 ^4 [7 U0 u6 E- f4 x
Private Function HexToNumber(ByRef pStrHex) 1 n* b1 |4 h5 j! L- R
HexToNumber = CLng("&h" & pStrHex) 3 _, x3 j$ A- S/ i9 r+ X5 s( m
End Function
6 C$ ~# m: ]* E4 E0 rEnd Class
7 l) n( v; J; `8 ^7 Ffunction Encryptstr(Message) ' r. s7 D. v' H) J
Dim LngKeyE
7 l$ u5 c" R5 {2 H  CDim LngKeyD : |  l8 d7 L% A; a) a. v; B% A
Dim LngKeyN
4 @1 ~0 Q: m. C# Z* Q# Z: gDim StrMessage
3 Q1 J; ]! D0 _0 a% t3 kDim ObjRSA
! o3 t' p! }( H% W$ f( G4 tLngKeyE = "32823" / O" ?0 W; A- c; C' i( T
LngKeyD = "20643" & ^' e% p! ]; k& H
LngKeyN = "29893" 4 a  @. K3 P1 E+ X/ {7 q" @3 ?
StrMessage = Message 3 k' {: O6 @9 d
Set ObjRSA = New clsRSA $ ]5 T  ^& K  J* I) Q  r+ u# U
ObjRSA.PublicKey = LngKeyE
2 g8 \9 B$ k9 }; P) j) }ObjRSA.Modulus = LngKeyN 7 u$ n5 Z+ y7 [$ O7 E, N+ b
Encryptstr = ObjRSA.Encode(StrMessage)
$ ^1 C% T# \, }" U9 aSet ObjRSA = Nothing   ^$ D2 a# g# Z$ [6 R
end function
7 J: I3 g' I; n0 W% BFunction Decryptstr(Message)
" P: j. e. T- m; }! h% v7 zDim LngKeyE
3 @% u$ M( D( Y" L4 g, B( [- jDim LngKeyD ! L9 d& y5 Y9 P$ a7 \+ B3 C
Dim LngKeyN
1 i4 i$ _% w4 J& aDim StrMessage 2 H' U) ]" M0 b) O- j7 g
Dim ObjRSA
$ q9 u% _' Y# M3 fLngKeyE = "32823"
" A6 o9 q& R3 YLngKeyD = "20643"
: t" j/ h: i5 t" A& F' bLngKeyN = "29893" . C! O" O( k% [8 [3 {
StrMessage = Message 4 G& ~3 i! n2 c8 {) |- [2 {
Set ObjRSA = New clsRSA ) E! l4 j& C% x1 E0 {. w
ObjRSA.PrivateKey =LngKeyD   f  Z- w, |" x; E5 e2 T! k+ S
ObjRSA.Modulus=LngKeyN
) \$ G9 D6 B9 G2 g0 jdecryptstr=ObjRSA.Decode(StrMessage) 3 a8 T. k8 J" X  l  Q
Set ObjRSA = Nothing 4 a4 _7 q. G7 }" |
end function : b/ G: @( H3 t4 }. I
%>
0 G8 `3 h4 Z# |, b2 }- Y===============================================5 P$ J( B0 D$ w/ X; D

6 o1 I9 d: U7 }: F5 e. S3 Z  X还有一个用于测试这段代码的test.asp
+ J" x, c! a7 ?有兴趣的自己搭建个IIS测试下
% X  k# o( P: U# ?7 F5 t( G<!--#INCLUDE FILE="RSA.asp"-->
9 `+ G6 n1 h1 b# o# s<%
( M+ A7 X: `* N, f: `- Kfunction Encryptstr(Message)
) B  j5 [4 D" `  ^Dim LngKeyE / Y7 a9 P0 @" t4 Y2 q/ _8 N' r
Dim LngKeyD , O6 s+ R$ _) }6 X8 m
Dim LngKeyN
, H4 N$ G! I1 L+ pDim StrMessage
  `6 |& w5 N7 F7 g- h: K6 s9 z8 wDim ObjRSA
( a- B' M* C7 VLngKeyE = "32823" 4 x! s  n. A  F3 V  g
LngKeyD = "20643" & L; s& r2 W+ F
LngKeyN = "29893"
9 B! e, p) H% o5 rStrMessage = Message
3 Y7 g, _+ C6 M, LSet ObjRSA = New clsRSA / S8 z0 M& M) ^" Q( K9 v) x
ObjRSA.PublicKey = LngKeyE * `' z8 v0 a/ x4 D* K" B, w. G3 q
ObjRSA.Modulus = LngKeyN 3 }( n# K3 U4 Z, ~
Encryptstr = ObjRSA.Encode(StrMessage)
  |. q& C* _( mSet ObjRSA = Nothing ! J& s' A. @7 L( W- _0 L* d
end function : s/ S" ^" P1 }% s, j5 D$ g. X" R3 P7 B
function decryptstr(Message)
2 ^$ E7 S3 u) D7 h* _& k! LDim LngKeyE $ a7 b* P1 |8 e. `
Dim LngKeyD
3 b6 x: i" K9 f/ H* d: ?. e$ wDim LngKeyN
% X+ c9 j. t  P7 I7 NDim StrMessage
" k+ P) \- w& w# h0 L- e+ jDim ObjRSA 4 b( f  A) ^( l4 F, o
LngKeyE = "32823"
. X! C; U5 Z3 l5 f9 {. J5 {0 w: F6 u8 WLngKeyD = "20643" 6 X. s, _. |" d/ H8 `, J
LngKeyN = "29893" 0 V: _. J% S+ n3 P  ~. A
StrMessage = Message 0 l" Y' q% T1 G0 l% R6 v& W% U: B
Set ObjRSA = New clsRSA
2 G# {2 t) n1 I. w. JObjRSA.PrivateKey =LngKeyD 9 y2 L" b5 H5 q; l1 _& q5 j& c) T
ObjRSA.Modulus=LngKeyN
+ |9 ~/ A3 O: n$ Y7 c6 Tdecryptstr=ObjRSA.Decode(StrMessage) ) A# S# D1 [' C+ b: `1 J; u5 z
Set ObjRSA = Nothing ; y6 }  r. u4 ?, Y
end function
6 D' \* q+ q8 |; ]) |+ f$ bdim last,first
+ k3 U3 U6 I5 Qfirst="!@#$%^&*()"
! ~1 W* C6 P' n1 J& z: ~4 oResponse.Write "加密前为:"&first + j1 S) e4 \; R- H, l# l" h/ I0 ]
last=Encryptstr(first)
3 U! i: u6 N# `; V+ a# iResponse.Write "加密后为"&last + ^9 t, `' V* I- L5 F
Response.Write "解密后为" &decryptstr(last)
3 {6 p6 p/ ]% g4 p%> ==============================================
4 D6 c3 L$ }" O2 b# D: Q# r2 }剩下的就是字符的对照表了! z4 {4 ~! K0 n4 a7 U$ a$ P( K, c
===================字符集================
3 \4 g/ r; ~7 P( X0 @4 N3 V1_____6EBB& A4 q$ P; P5 z
2_____5C1F4 d- r, q! C: `$ k# T% E
3_____4D75% d. {/ @, K0 M
4_____26CC! l. o) q  |& n) E$ l
5_____4F88
2 B( S/ n2 ~- E; Y6_____3F4E
$ N0 r1 e" \$ ~2 ?) f7_____0A9D3 c$ c1 I5 W' X- V7 V' d
8_____1A1C/ l# W- i) d4 x$ I( \
9_____6D20
$ a$ n' v6 I( q/ k1 X" ^4 {; w0_____1089' U; U5 ~, u; }; F$ O4 q! _, q$ a1 d
a_____0F3E7 s+ F; \3 d/ u0 C8 j
b_____3159$ c0 {) s" h! K
c_____3517; K% G  q0 F9 w  d8 n+ e# E9 r  C& [- V
d_____419C/ w  z( e( d, X( p* u- Q5 u% Z+ h
e_____615C) ?8 U/ F% I, p, J1 s  n( O8 M
f_____556F
/ ]4 M! S+ D3 h7 Dg_____2B7F
/ c; g- i( n! k: F1 ah_____0F9C( K7 E- t% a4 a
i_____00FA) p8 _6 w( m: q
j_____5A50
+ p: n" D6 Z( e4 D& ak_____2850
$ X4 h6 K( s4 u7 x. T9 `l_____3E7B
% W9 n* q% O$ z. Tm_____71C5
8 n/ H& G4 L1 l$ ~+ Jn_____1FC8/ X, S3 \$ G5 X  Y8 t; H. c
o_____74C1
; m# x# l& ^. K. ?) i5 `p_____5FB8
+ I# G7 A: M% P  r6 ]- U  Wq_____6085
# O% c: o, P  X: a6 y. c7 W- M+ {9 ]r_____3AC4) p  o* [( a! f  p
s_____2F50) }/ {! n1 T; M; ?; ?' k8 u. {3 T
t_____36F8$ Y7 \1 R- p5 g6 A
u_____70103 f- {& G5 {1 \- L0 _
v_____0B42* Y" W: Q, O, u3 B
w_____1C7A( H4 l' t+ i' m' Y+ Z% x% }
x_____16F8
7 l$ ]7 ?; ?: ~& m# D  yy_____2EE7$ j" A: q9 u' N  \+ ^, u
z_____5CF3
/ X9 |9 b# C* g+ d7 w* _!_____6233  _( S( s* m$ r0 D" Y9 D" O0 f
@_____3A452 f7 S  Z5 ~6 O5 r* |: a7 w8 r
#_____2291
1 y3 I1 x( k5 P3 w$ C$ @$_____5D5C& l2 Q5 D  g" J7 J
%_____09B9  U% y7 i* `% E* {
^_____43EA
5 x: N* a2 ^. @; M1 r&_____62B9( K8 T) p2 O) W" k* `- T
*_____6301, h# S* b2 u! Y: i
(_____4659
# M0 w! G/ p/ b( H: ~7 S; Z)_____5C82

鱼儿无心

收藏了。。。。。。。。