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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
4 E# b2 \( V* b3 ?9 z/ K  G6 a! m, ?原始出处：http://www.3ast.com.cm
/ t- P9 n% X/ F0 b; H# B8 M- a- p
看不懂的直接绕过
! _$ W( G' ]# e  K* ]0 a加密前为:hwy123456
" k9 H( ~: a# }" y4 ~/ X0 l加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
% r, E7 K1 X6 f" }2 X+ j7 Q  L6 N* T
============================================# {7 c# c& O4 h2 W
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
3 \$ N% `/ K, X也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法* m3 u: g8 P5 S7 K" a. k2 i! O$ `  X8 }
以下是RSA算法文件8 O( w: V" k& [, x- z
. b& d6 {: j: y5 g
文件名RSA.ASP3 Y% B# _6 v3 d: M$ s
===============================================
# Y  {0 C' ~1 L9 d<% ! Q: ^" @1 [4 R3 u# G' Z' R
Class clsRSA ( V" {" E/ p# p3 Y) {) u& N
Public PrivateKey
$ v; M- g3 q* Y) u* Y: t- qPublic PublicKey 7 W$ x* e6 D: `9 b3 j
Public Modulus , A( P( c( y6 @
Public Function Crypt(pLngMessage, pLngKey)
0 z2 e1 W5 Q3 v( h$ `On Error Resume Next 6 c1 I7 x( x; o- k& w: y
Dim lLngMod
! S$ ]6 P3 ?; Q3 @. I' }; XDim lLngResult
. |3 A2 B' T& D" XDim lLngIndex % z# w6 Q. W; a
If pLngKey Mod 2 = 0 Then
" w' g! T0 x" V9 O' L; E  R* P" r( ulLngResult = 1
, C9 c) L6 i: g; z9 m, N0 AFor lLngIndex = 1 To pLngKey / 2 # r7 X, K, A1 r" c  ^$ L8 }
lLngMod = (pLngMessage ^ 2) Mod Modulus / e+ W6 S) ^/ d
' Mod may error on key generation ! O, L9 ^% C* m2 T3 y) M
lLngResult = (lLngMod * lLngResult) Mod Modulus & M- F9 Y! ^% f
If Err Then Exit Function
- @& Z+ u( R4 E; A3 ~7 tNext
& ?: t+ d# J; `4 `- _- VElse
0 ^  c! N$ e6 UlLngResult = pLngMessage ; |) v- c3 @, \% k! J
For lLngIndex = 1 To pLngKey / 2 2 r2 r4 G4 v3 Q+ v& T. S
lLngMod = (pLngMessage ^ 2) Mod Modulus
3 o2 n. {$ O. h2 S2 i. ?" YOn Error Resume Next
9 I. V0 a/ g7 K; |% R' Mod may error on key generation
; ~& Y. R) ~. |) q5 ~3 }lLngResult = (lLngMod * lLngResult) Mod Modulus
& w3 H6 G1 X# d  [7 ~: QIf Err Then Exit Function
1 F( Y4 `6 _9 B7 a7 a. \Next
! V. {4 t9 P# z& _0 kEnd If 6 w% r! h- u( l2 b" D" t
Crypt = lLngResult
4 a5 p* T  z$ ^8 z1 N; h! d+ @. FEnd Function
& j' K% z/ g+ s+ ]3 Z* A7 ~) i! n0 o' I
Public Function Encode(ByVal pStrMessage)
: n; J6 l6 B! y( U  ~! r4 ZDim lLngIndex : w& _: q+ R5 y
Dim lLngMaxIndex
% N, R& X# V! x* jDim lBytAscii ) V8 g: j5 z2 H- Y( Q' `+ l2 R
Dim lLngEncrypted
2 W% J% e  T3 p4 p2 ElLngMaxIndex = Len(pStrMessage)
& k1 S* C: q  x& D& WIf lLngMaxIndex = 0 Then Exit Function
7 P. f  E0 h3 }* QFor lLngIndex = 1 To lLngMaxIndex
4 \* \4 H" Q3 l$ B" ?; i5 g# z3 SlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) $ j# Y$ Z0 Q% U, g. p! y/ D
lLngEncrypted = Crypt(lBytAscii, PublicKey) 7 H; \1 k% A0 @! J1 x0 w
Encode = Encode & NumberToHex(lLngEncrypted, 4) + B2 M3 h. s; B3 |' X" y, ^7 _
Next
) r! z9 {9 v! JEnd Function
! n+ w7 I8 S8 N; `Public Function Decode(ByVal pStrMessage) % J" _5 i1 j2 K! o6 G
Dim lBytAscii 1 a! A" ~2 W3 O% v9 W8 |9 D1 o
Dim lLngIndex * Q6 G* O! B7 q' A
Dim lLngMaxIndex
* ?! e* D7 v8 D5 a9 O" s" GDim lLngEncryptedData . U/ Y) {7 H( R% n# _9 n1 q3 n# P
Decode = ""
" Z6 x& f- J* d% }4 o4 R3 d+ ?lLngMaxIndex = Len(pStrMessage)
) Q% W2 [7 T  S: g. ^# \8 {+ h1 V6 ^1 UFor lLngIndex = 1 To lLngMaxIndex Step 4 7 Q7 L" B( {" c0 L# l3 r  k: R
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) / J/ y# v7 ?9 O7 O
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ' D) n6 e/ m0 c, L
Decode = Decode & Chr(lBytAscii) 7 ]& m( c5 e+ O+ h* h- r7 |
Next
" F* r! o4 H/ ?End Function
/ `- Q1 Y  Q7 I7 x6 B0 M# `5 nPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
' P) }+ u2 U/ ZNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
+ o' t( p8 G2 H, z8 zEnd Function 4 Q5 H" V7 Y% Q9 W( q" l
Private Function HexToNumber(ByRef pStrHex) 5 e' E% E& e1 L' a
HexToNumber = CLng("&h" & pStrHex)
; ?5 _. V5 P7 y/ \0 IEnd Function 8 b* T9 P  P4 @8 d
End Class ) m8 U! T/ B6 i; p" F9 F8 m6 ^
function Encryptstr(Message) ; b. h8 N3 a0 Z8 I
Dim LngKeyE
* c2 F: Q/ \3 j4 d' G& W. FDim LngKeyD % c. f0 |6 Q3 J* T3 D& u
Dim LngKeyN   [+ I, |+ g1 d8 U8 k
Dim StrMessage
+ ?, O( j) a8 ]/ _4 A( \4 B) l# }/ aDim ObjRSA
/ ]' ]3 d# d' ~LngKeyE = "32823"
+ \+ x5 b4 u+ J3 ELngKeyD = "20643" 2 D- Y& z( g; g( j0 Q3 B
LngKeyN = "29893" 9 {6 x  v4 K* z8 `5 g
StrMessage = Message
# |6 g! t6 p, FSet ObjRSA = New clsRSA
8 H0 H8 G/ {* ~7 R8 bObjRSA.PublicKey = LngKeyE
* r! s2 E1 J+ E4 g9 j  FObjRSA.Modulus = LngKeyN
# y  D8 _# `1 F0 @5 v* {Encryptstr = ObjRSA.Encode(StrMessage)
3 R5 |7 U, O4 D0 }Set ObjRSA = Nothing 2 O. Q9 {) V* S' _9 ^+ c7 y
end function
& Q/ C  \( W% N% `# Y* M% \0 AFunction Decryptstr(Message) + B4 X8 d. B" S4 M1 I- E
Dim LngKeyE 3 ?" t7 \2 d4 Z9 Z% g0 r- h+ g
Dim LngKeyD 7 g+ P+ l" G- E/ l
Dim LngKeyN 3 a) J4 Q4 H, m$ P8 z( R1 D0 j
Dim StrMessage & _" H" H& z% X# E- c' t
Dim ObjRSA
$ Q# Q6 c% ?2 O; s, `LngKeyE = "32823" - \2 @8 w) M# e1 y1 ~+ P( n* r
LngKeyD = "20643" 6 d6 I# T8 W" i
LngKeyN = "29893"
6 K" ^$ Q+ ~" S4 J$ E, IStrMessage = Message ! v& m1 O! Y/ b7 h2 V  k
Set ObjRSA = New clsRSA " ?2 C+ m9 X( t7 ]7 E9 {* a( S
ObjRSA.PrivateKey =LngKeyD
6 Y; W- Z; z! p$ K' y% n8 K% sObjRSA.Modulus=LngKeyN - j, y9 \8 q1 }
decryptstr=ObjRSA.Decode(StrMessage) / \( U( W- [+ @1 i5 \) [
Set ObjRSA = Nothing
- P- l. C4 ?. nend function 5 V) d; \$ k3 R8 P0 D# }  y" f
%>
& i: Z6 F0 U+ N) r9 {6 n" M===============================================
% k. K8 W# z0 E" Q* z( E) R0 l+ D* _: w9 N9 L; c- A" ^2 E
还有一个用于测试这段代码的test.asp# x" H, a) k* ]" b
有兴趣的自己搭建个IIS测试下, D1 w9 {" e9 N0 @! |* C
<!--#INCLUDE FILE="RSA.asp"--> 8 {9 Q4 H  b2 i! B: ~) M5 y
<%
. R' K( I% Y% A+ sfunction Encryptstr(Message) 6 a; m% N  {( P5 u" x4 q
Dim LngKeyE
, g$ G% W6 W) D2 eDim LngKeyD : o* ?6 G+ w4 y3 x
Dim LngKeyN / r( f' W) M, w; n
Dim StrMessage ( q4 K, ?' F3 i& k* b6 O
Dim ObjRSA 9 l( E/ `9 r, t6 s  E
LngKeyE = "32823"
. o' l. ~5 F( I; v- k( }4 r7 ZLngKeyD = "20643" ) u9 A8 q- j4 p6 ?
LngKeyN = "29893"
& k9 Y. s9 d: {( `9 UStrMessage = Message ; t& e% Z1 {/ V, H# i- K
Set ObjRSA = New clsRSA
& m; C  l% }8 u2 i' l! r3 KObjRSA.PublicKey = LngKeyE
7 x& [8 E8 t  D4 Q; k, p% AObjRSA.Modulus = LngKeyN
3 `( v: f5 o" h( H3 _4 f( {3 s7 rEncryptstr = ObjRSA.Encode(StrMessage)
' g) f% k+ [/ eSet ObjRSA = Nothing
2 Y  u  L, M2 wend function
7 ~* r4 D- |' mfunction decryptstr(Message)
( W2 [, D1 l  H7 m! \Dim LngKeyE
/ M0 e. D; @0 `1 fDim LngKeyD ' ^& e" A! t0 q3 s
Dim LngKeyN " f$ y2 e7 v  B: a
Dim StrMessage
) w, o* _; E8 O6 W+ ~, p" VDim ObjRSA
( P# G5 ~5 y6 h2 I- y; iLngKeyE = "32823" 6 |% {0 d: q9 [0 C; i( ]7 W9 D
LngKeyD = "20643"
" }2 @$ N5 \* V  KLngKeyN = "29893"
. ~4 H& [/ K3 v1 m2 `# {" {StrMessage = Message
4 A' A. m! v1 t& _Set ObjRSA = New clsRSA 3 q6 S6 M8 ?- X' s
ObjRSA.PrivateKey =LngKeyD
: w" e0 |- M4 B  j5 QObjRSA.Modulus=LngKeyN
! ?; e. ?# f, b; f" Idecryptstr=ObjRSA.Decode(StrMessage) 4 |# i4 _4 ~" I/ |; u: @$ W/ o. X! v
Set ObjRSA = Nothing
; h9 d3 ?3 a% ~0 ?  y- J  send function
4 Y7 g4 G9 p4 Y6 ]& M% L0 [dim last,first 4 f2 l8 _: y# ]5 P5 y8 n' u
first="!@#$%^&*()" $ E0 o4 L- Z! s  e2 q: T9 R3 r9 T
Response.Write "加密前为:"&first , B4 F  s" K2 E
last=Encryptstr(first)
& r) t' \0 {' F6 ^: bResponse.Write "加密后为"&last
" R9 a( m9 ]1 i) g7 ]$ M: JResponse.Write "解密后为" &decryptstr(last)
+ p6 w6 C$ G, N. t! B" ^. l%> ==============================================. H" s/ R; @& \8 Q3 E2 h* r
剩下的就是字符的对照表了$ x+ h$ l1 K7 m/ g) u4 H! ?
===================字符集================, R+ L6 t3 Q. a
1_____6EBB
  k, }# [: W) h/ Y3 X2_____5C1F5 }3 q6 O- N! N; P
3_____4D75  `5 |7 t0 M: G+ q2 H7 {
4_____26CC
+ ?* z  ^& c5 y5_____4F88: D5 r8 Y' {$ |  }. u# k
6_____3F4E6 q) |, @& j; Y9 [$ L+ A
7_____0A9D$ Y- p1 v, f* |% p6 b6 M+ X# a( O. U* s4 C2 R
8_____1A1C/ f5 w2 _6 D6 z/ U( F
9_____6D20
& t" ?" ]& e5 ^/ t* i. I0_____1089
4 @! u& t9 U0 _% Wa_____0F3E
( ^& V* _+ C) X; a1 Q# ub_____3159# u6 Z. g: ^( j1 f6 a/ _3 q* P
c_____3517
1 p! z( X2 n7 u8 Ed_____419C
5 Y, z' |$ G0 K% O4 be_____615C
' @% Y: B7 c/ w+ p9 v: E. W, K( Ef_____556F
+ a0 H0 h, N# G* m7 w: w5 \g_____2B7F+ B$ v. `1 N3 F( z8 }, e: l
h_____0F9C  a4 W" L6 _0 {9 Y! D# a
i_____00FA
$ a5 v" `! K$ Y, X5 Fj_____5A50+ i. P) W# E6 z/ t: E& n3 q' S
k_____2850
8 z1 U7 D8 J6 l' H, T% ml_____3E7B, U1 R) T- t. B  t
m_____71C5$ t. f) Y. w1 |
n_____1FC87 g! a! Y& Z9 |6 v  ~  r8 O  e4 V: y0 r8 g
o_____74C13 u+ w2 j/ Y: l) ?0 a2 S5 A) K
p_____5FB8) \; m/ Z$ b  r/ S7 J9 [! p
q_____6085
9 Q; @) x: A7 B; V( m' I0 t$ Pr_____3AC4
+ x. v, R* S4 _  `4 c  ms_____2F500 ^) ^( R7 L" p3 n% v
t_____36F8
8 E/ Y+ v& D1 y# t' Bu_____7010: U/ H3 e9 h& ]5 }, ^
v_____0B42# j- K" q( b7 S
w_____1C7A9 b' t. Y0 w5 T( A
x_____16F84 h, N( j! _( B& |
y_____2EE76 M; V9 e8 w6 S5 {% }; {! U! Q
z_____5CF3  l( H( h, \" e0 D/ A4 x5 W6 Y
!_____6233+ o. ]8 U& T; f3 o% @9 E
@_____3A452 a& d% x7 F4 P$ Z0 s3 [' r
#_____2291
# J  {4 C' y2 I3 k9 v2 s$_____5D5C% f" ^  K  ~4 p
%_____09B9  p9 T) u$ c& Z) r# `! F/ f
^_____43EA
& g" Q" d0 Z' F$ t&_____62B90 v8 e+ }* r7 K
*_____6301
6 }8 e( [2 `! z: Z( A* z(_____4659/ ^! x7 ~% a! T* y6 X  V; V
)_____5C82

鱼儿无心

收藏了。。。。。。。。