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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm) ]1 v! e2 W# A  J
原始出处：http://www.3ast.com.cm/ g' l! @* a0 g0 P; Z- r, Y

$ Y5 Y/ M# D( o* c看不懂的直接绕过- G. Y) q3 s0 y) y' B% T  ]
加密前为:hwy123456; o9 K/ r6 S5 _* @/ i
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
9 x) S  {8 I, S3 _  H# p
+ m+ ?7 H& N4 I. O( T1 W- N============================================% H% W& F6 e6 o/ u
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
3 J0 C% V% `8 d% U1 l也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
+ ]) ?3 V+ i% v. Q以下是RSA算法文件$ N8 M! u) }+ O' l

2 }) `( n* ^3 ?文件名RSA.ASP4 ~( _; P0 a/ D# f
===============================================' _0 Y( h9 [: Y' L+ I- k
<% ) [3 ~: C7 }+ Q( V. ^) D' v7 N9 Y0 N6 H
Class clsRSA 6 {/ _9 z" }. u9 l8 S
Public PrivateKey + `& v' y( v5 ^! }4 p2 K) a" }( w
Public PublicKey $ e) j% U3 ], A8 G/ W4 J% ^) ]
Public Modulus / L7 D& D+ S3 W9 m
Public Function Crypt(pLngMessage, pLngKey)
, p' g0 d3 T8 Y9 s9 S0 j) TOn Error Resume Next
7 {: y5 h6 e& z$ B# Q& O( sDim lLngMod
% }2 I2 Z0 x0 J8 n3 dDim lLngResult
& _0 b6 i9 ], ?( FDim lLngIndex
5 O8 @, }& g! f$ Y" ?+ DIf pLngKey Mod 2 = 0 Then 5 Z, r! m( |4 V6 \8 r) J4 b$ o
lLngResult = 1
) v- e( r1 I& {* b+ j1 n2 y) U' ^For lLngIndex = 1 To pLngKey / 2 2 W; l6 b8 [7 Y  B+ T% U7 b
lLngMod = (pLngMessage ^ 2) Mod Modulus & R% P5 @/ ]: s0 P6 z9 {
' Mod may error on key generation 5 Q: G2 a! _# }. S9 U
lLngResult = (lLngMod * lLngResult) Mod Modulus 0 g8 d" @- w. ?0 K" q3 O1 v* i
If Err Then Exit Function 4 s" T# j& h4 I
Next
. m% f. c1 [; s" fElse & J, z- a1 _* E! [$ E# Z# s* B2 R
lLngResult = pLngMessage # J* z) _$ |, c" R* o5 i" c
For lLngIndex = 1 To pLngKey / 2 $ i) L- _4 @& Z- u8 X  H' p
lLngMod = (pLngMessage ^ 2) Mod Modulus 9 L9 u) L. v( [( {5 ^& w; D! g0 v
On Error Resume Next
  L: M' [# ]" d. Z4 S' Mod may error on key generation 4 X  A( J4 V1 \7 N6 }
lLngResult = (lLngMod * lLngResult) Mod Modulus
1 p& }6 K' d; oIf Err Then Exit Function
' ]8 C; Y! z1 _( a. l8 t, d' |5 ENext 5 ?( R5 l- k& n( [' G- n
End If
- p4 S0 N5 @. XCrypt = lLngResult
# x4 g: Z7 O& k+ XEnd Function
& n. \" J! j0 z* a; O9 ^8 L/ _0 o, G! A( j  x
Public Function Encode(ByVal pStrMessage)
6 c* _- ?& X$ B  d1 {7 Y; r9 DDim lLngIndex
& C# K! ~9 \, K7 n( DDim lLngMaxIndex
+ V6 R2 H% {9 Q. n! M) `* {- vDim lBytAscii & Y. i% Y5 _# T! C& L% W2 F9 l
Dim lLngEncrypted " P5 R- W- n; ?  E- q- ]& X( J+ O% H+ ~
lLngMaxIndex = Len(pStrMessage)
' F, H, I. U+ C, Y2 g, g% t0 CIf lLngMaxIndex = 0 Then Exit Function 8 h9 T% ?- D0 j+ ?. t2 i* {
For lLngIndex = 1 To lLngMaxIndex
( S! y. S6 o2 @# C9 b0 YlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
0 h/ X( w; E# q3 @lLngEncrypted = Crypt(lBytAscii, PublicKey) 9 |5 p  F" D, s
Encode = Encode & NumberToHex(lLngEncrypted, 4) + z. Z8 a5 ?, ?, Z0 q* X$ \
Next
' ]  d, e8 H# c; E4 rEnd Function
) \* l* k3 L5 m7 x$ wPublic Function Decode(ByVal pStrMessage)
% D! k: K3 Q( c  X; eDim lBytAscii ! L, ~4 s+ Y: z
Dim lLngIndex   R1 l! s; M1 ?- i
Dim lLngMaxIndex
& W- r, T! Y5 r5 k6 LDim lLngEncryptedData
1 c$ A0 q$ H9 BDecode = ""
  d! U8 i7 l5 d) A/ clLngMaxIndex = Len(pStrMessage) 0 Y" @1 z, u2 ^4 b
For lLngIndex = 1 To lLngMaxIndex Step 4 : ?+ v' G) _( y' D* r- f7 _2 u
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
; U1 K0 X5 F, LlBytAscii = Crypt(lLngEncryptedData, PrivateKey) ; \; ~" R/ C2 t+ `3 d
Decode = Decode & Chr(lBytAscii) . y& @1 M$ M; F
Next
5 @" y& v1 A3 O) s2 V. nEnd Function : p8 h2 |7 Q' {, X
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
# I4 Z& ]4 I$ MNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
6 U8 j- \& e, `+ a+ ?4 D+ AEnd Function
5 [/ r2 I+ y! L, ~  S1 BPrivate Function HexToNumber(ByRef pStrHex)
) N) [/ b- Z  P! @- R0 s# rHexToNumber = CLng("&h" & pStrHex)
7 S1 F6 T9 N' J* MEnd Function
6 k0 z4 A, {+ Y! |5 `* s5 Z  PEnd Class 2 ]9 M) W# r8 a
function Encryptstr(Message) 0 n) `1 L6 `5 v
Dim LngKeyE
5 s3 j2 _7 A% F. O; S$ cDim LngKeyD 9 Z! ~8 A' d4 W
Dim LngKeyN . l; T; @: L5 l: ^% [
Dim StrMessage . j; W2 @3 o. a8 p: L* E( J1 d% d$ {
Dim ObjRSA
9 ], f9 O3 b$ m- E; r) WLngKeyE = "32823"
# X0 B. P* Y; R5 q4 ~9 T( pLngKeyD = "20643" : e8 T1 \* b% f- j. f! [! B, j
LngKeyN = "29893" 6 d, W6 ?7 m3 l0 P2 z
StrMessage = Message 2 D3 E  i. U3 u
Set ObjRSA = New clsRSA / ~' N& `6 n! y: r- p
ObjRSA.PublicKey = LngKeyE
. g' _) \+ L7 Z1 {ObjRSA.Modulus = LngKeyN / p/ S& P+ k# s$ |% a' j$ c7 `
Encryptstr = ObjRSA.Encode(StrMessage)
6 k$ \' E% Z- |' A. y3 o# }: S6 ~" ]1 rSet ObjRSA = Nothing * @  _1 n" ^: v. j: l
end function
  j8 v! e8 M4 o) K/ u9 V% a. KFunction Decryptstr(Message) 8 N3 W. X$ m5 L1 |
Dim LngKeyE 6 t9 k* n9 X' ^! i( m
Dim LngKeyD $ X% O& J0 N  Y" Q
Dim LngKeyN
2 w4 x/ E( h' {/ F' iDim StrMessage
4 B4 g( j  y9 q/ j$ K2 oDim ObjRSA 6 C. ^# e  D2 s
LngKeyE = "32823"
5 ^: Z" ^  j7 vLngKeyD = "20643" 0 z' D' Q: ^4 |3 B' A
LngKeyN = "29893" ) z2 G1 R( Y" V* ~' m
StrMessage = Message + X( m' y& z+ U% v9 [
Set ObjRSA = New clsRSA
1 s: ^0 y, @- c8 E% V# g$ I7 @ObjRSA.PrivateKey =LngKeyD ) t. A( r* ?) \$ ?/ A, q
ObjRSA.Modulus=LngKeyN & ^5 v' M5 u9 g: ~3 m
decryptstr=ObjRSA.Decode(StrMessage)
5 i- S+ @. e' e; h+ cSet ObjRSA = Nothing 2 ]) U  H* L2 P# d2 Y4 G
end function
9 s/ B3 m6 Y% k%>
1 _; t8 N, B; Y/ Z" a$ _7 {===============================================- }& g" {* ?" N* Z" y$ F
* S* A3 ~: G( a
还有一个用于测试这段代码的test.asp8 E. Y- j  D4 O/ q+ |9 m
有兴趣的自己搭建个IIS测试下: o* n$ F+ |/ Q& U% P
<!--#INCLUDE FILE="RSA.asp"--> 1 _: j* L5 o0 I$ S
<%
9 v3 h1 `" O5 K# p3 I: K, [function Encryptstr(Message)
; `# I" E# M  Z) R# Q; Z1 X; BDim LngKeyE
' R+ H0 ^" B$ T* L1 I$ H9 ^Dim LngKeyD / u5 h7 h8 |+ ^! O- O
Dim LngKeyN ' D. j- W7 T) S+ E* |' Y3 p6 @
Dim StrMessage
: N+ W. @. Y8 I5 R2 xDim ObjRSA 6 P, F; {3 U6 Q9 W$ O2 m+ z1 X9 T: {
LngKeyE = "32823"
4 {+ y) U. e& [' [LngKeyD = "20643"
/ [) [* }) U) pLngKeyN = "29893"
9 ^, W6 l3 H1 p, s$ G# |( v( q* PStrMessage = Message # Z. ?' `7 S8 u9 A
Set ObjRSA = New clsRSA
% o/ _3 ~4 ~$ ~2 g: e" C) SObjRSA.PublicKey = LngKeyE
: S# s  x. b6 P! b5 G2 n4 zObjRSA.Modulus = LngKeyN
- w' D' x" ^/ rEncryptstr = ObjRSA.Encode(StrMessage)
9 {8 k0 ~1 [# s/ D. J$ DSet ObjRSA = Nothing $ b- u  ]  O+ I1 I; d/ v
end function , T" X5 S% ^5 N% X7 z, p! t9 _7 x
function decryptstr(Message) ( k  m! v8 i0 l( e
Dim LngKeyE
  r* G0 O# u+ V9 A: BDim LngKeyD / ?- z- N$ o: G( W3 Y/ l7 q( V
Dim LngKeyN
+ N4 Y# C" H4 A; _" M& y; w. Y& dDim StrMessage 6 t( y: Z; u+ a' d& u
Dim ObjRSA
/ b2 N9 B& h* m) `4 v9 MLngKeyE = "32823"   w- d9 S8 x1 |5 y# J% h  C& @4 z% Y0 w
LngKeyD = "20643" 7 ?' s0 q% }; E7 ^+ }. A$ u$ g% x1 z
LngKeyN = "29893" - ~% ^1 v4 W5 T: A0 [) `* G) \
StrMessage = Message
8 N$ s* a/ s8 s) y! S% W2 {3 pSet ObjRSA = New clsRSA
0 W7 {! F8 I' W& H* n$ nObjRSA.PrivateKey =LngKeyD
, a4 b+ `* J' e' ~ObjRSA.Modulus=LngKeyN 1 W* U# v; Z/ s4 Q( n
decryptstr=ObjRSA.Decode(StrMessage)   W* H- q5 x9 g* g) Y
Set ObjRSA = Nothing ; N1 F, t& ^* R  w9 v- V
end function , E  B& k. Z* U
dim last,first
: o  S! ^9 w3 q) _0 U5 @first="!@#$%^&*()" 0 ~4 t+ b6 I8 d: R! @0 t
Response.Write "加密前为:"&first
3 a* {% Y- ?. M" H- E# Hlast=Encryptstr(first)
' ]4 H+ ]) ?' P' D( dResponse.Write "加密后为"&last
' k, V& v. R4 R5 }$ |  w* |5 Y2 \Response.Write "解密后为" &decryptstr(last)
' k; ^1 @; S: q! x) [%> ==============================================
4 |% D' i2 p0 V3 z+ g/ \% J8 G* T剩下的就是字符的对照表了. r- Y% L, V3 s( Q
===================字符集================! U+ p1 z2 y  j- }; f4 K3 s' T, E
1_____6EBB
9 O( _* w8 Z; \9 F- _& n$ o" o2_____5C1F# ^6 X7 |  {6 w( }  s  y
3_____4D75# ^8 ]* d# F& n) F" Y: d# k  ?  x
4_____26CC9 E2 ^- D2 k3 I' ?1 z
5_____4F88
: J# `" W3 e# O6_____3F4E
! _& @$ \/ ^3 r0 r. K2 |- M7_____0A9D: |0 B) B& F8 `5 m' Q9 L
8_____1A1C7 a9 L. a# c6 Q7 Q( s
9_____6D205 E) a' C6 k7 o& F* y) [; B
0_____10890 U+ i- f" \3 c
a_____0F3E
# r3 J. i2 S: M% c4 ib_____3159
" L, s: `3 D6 m2 Q: D: D5 k" I# l% zc_____3517
6 {. f, k3 E9 v& Ed_____419C
# X9 [7 ~# T: ]- a( Q7 V+ H: Te_____615C4 e1 m0 d* u) K
f_____556F, T$ Z  I3 t5 p/ z  u* c& |
g_____2B7F
% `: ]# R! {! {: Yh_____0F9C
0 z. ^7 p2 B" I+ P, H4 Y2 k  }i_____00FA
7 \! R3 `1 D" P. h& e- W6 sj_____5A50- z4 _: K$ d  f6 {% F! s7 {; |
k_____2850- h# }# X  v& I7 L& g
l_____3E7B
! @0 x" Q- f& x% x1 D% A5 G; em_____71C5" n0 H- k# P0 f; L+ S
n_____1FC8  U: ~/ ^% Q4 l/ Y9 {
o_____74C1& D8 V- i; R3 X( G( o2 I' i6 P
p_____5FB8
* q$ M) V  J% E/ H$ Bq_____6085- x& M* V" a) i" j4 q( g2 |
r_____3AC4
( r$ ?, C7 a# w2 g& cs_____2F50) w- t4 g" S; V1 `. ~
t_____36F8
8 w1 |# N$ _! W" V* tu_____7010% `& W( `' ~* ^2 k
v_____0B42
: l. J1 `' r. {0 }1 P5 l  cw_____1C7A
8 x( }8 U  D. D$ o; Xx_____16F89 f; p$ @, o2 ]% `1 z2 [4 C
y_____2EE7
' s/ d4 f3 j. K) s7 D% y: j, ^  uz_____5CF3
7 N" b0 }8 w# [3 M$ M! ]0 A  p) v!_____6233
- q: |" A9 S! P) f4 [+ I@_____3A45  D+ ^' ]7 ~% [& t: q0 X2 Y
#_____2291
# M$ C, ^$ U4 u4 A; v; P, j2 g- C$_____5D5C+ {1 ^, E1 I8 |0 q1 z2 F( w
%_____09B9) ?. v  @+ B; p+ Q
^_____43EA
8 G/ K" A4 j) P4 \! m&_____62B97 c' v6 T( p( E: Z, q" J0 s( I
*_____6301& V3 m; u1 n. p1 t; k9 r
(_____4659$ Z- }$ H2 Y; `& E& R
)_____5C82

鱼儿无心

收藏了。。。。。。。。