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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
. C. ]4 \' G! \$ E, n2 a原始出处：http://www.3ast.com.cm
" ]& x9 `, z" N- q% a2 S) A7 k: t( P7 r1 p) {* Y# |
看不懂的直接绕过
5 b5 _( \8 X) h  v加密前为:hwy123456
+ W1 o' J! `& Q' [加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E1 i1 X2 N; o' ~0 W8 o+ c

+ @2 F  l/ U) H& _$ V1 w! j============================================
, ^1 c# c0 b" X" E5 w9 t: M! b% J上面是当时自己校内的心情。现在已经解破出来了，分享给大家  B% e* e3 l2 u( J7 o) W- j$ B
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法$ u5 j) S6 y3 W6 X' [% U( w+ }( P
以下是RSA算法文件3 B6 k; n# @% v! J+ o3 G3 I

6 Z% z) B& U, @文件名RSA.ASP" Z% p" g8 ]7 O' i( n9 b
===============================================
6 n$ i" \' y% E0 a0 \! c/ u" ^; N8 z! o<%
& `) h8 Q9 {5 |, e" A) qClass clsRSA . E9 q) |1 ^/ O
Public PrivateKey
+ q0 l: @5 k$ a, |1 c$ h+ OPublic PublicKey
( @% }% B# v/ u* q3 `" w% dPublic Modulus 3 R. C6 r6 P$ A$ ?: R& M
Public Function Crypt(pLngMessage, pLngKey) # E$ V+ d9 T4 Z0 s5 e' S
On Error Resume Next
% }- j) \, ~- f0 Y7 h& B3 O  sDim lLngMod
5 I& f/ D3 ~- v! O1 z, aDim lLngResult
; _$ \5 [! q* Q: e' ~/ }Dim lLngIndex
' T- X) p, h+ A9 }: e4 G: n/ e+ ]If pLngKey Mod 2 = 0 Then 2 d& G0 g3 U0 }8 P/ f
lLngResult = 1 ; H% x. j: A5 q9 ^4 D' ~
For lLngIndex = 1 To pLngKey / 2
/ n8 t+ P+ K5 W: Y1 a  RlLngMod = (pLngMessage ^ 2) Mod Modulus
4 v( B9 U  @4 `4 z: j) r- c' Mod may error on key generation
. @$ s: Z6 |% C; XlLngResult = (lLngMod * lLngResult) Mod Modulus
% \5 ?( z, e& L4 `0 w% x  eIf Err Then Exit Function / i8 Q1 Z" y" t$ N
Next
* W1 M! X+ X1 oElse
* T6 W$ k% ~8 H. l* |! plLngResult = pLngMessage
- l6 s% x6 L+ ^4 v' }For lLngIndex = 1 To pLngKey / 2 ! C1 W" p. G+ }' q  g
lLngMod = (pLngMessage ^ 2) Mod Modulus
8 p3 @5 b; A8 P$ J* f* h, qOn Error Resume Next
3 A1 k4 F9 H& `- I" U1 v' D; C6 @5 Y' Mod may error on key generation
5 l  _/ E1 S! h) d* klLngResult = (lLngMod * lLngResult) Mod Modulus 5 b( i) M/ n1 k- E
If Err Then Exit Function
& V* |; M. V* L3 rNext
5 \0 V! W- ?0 z# \End If
( Y2 B( b5 x# FCrypt = lLngResult
+ _$ D0 |# h/ GEnd Function% A6 h/ Y) J+ s
3 s  \" }9 Y+ U
Public Function Encode(ByVal pStrMessage)
4 y. G0 c' u( mDim lLngIndex
0 e1 T, D6 J: ]7 }! @7 n( m" {Dim lLngMaxIndex
3 j9 g" F% A! B" eDim lBytAscii 0 C6 d5 |( `7 F9 B1 n& J  ^
Dim lLngEncrypted
9 _9 o& l$ }. ZlLngMaxIndex = Len(pStrMessage) 4 B  i+ ], N7 ^" t0 A: r
If lLngMaxIndex = 0 Then Exit Function 2 ~& r6 \9 |- \. f% Q
For lLngIndex = 1 To lLngMaxIndex
' l" t6 e+ h2 NlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
( b% [& h1 I: g! z( O1 T9 T% VlLngEncrypted = Crypt(lBytAscii, PublicKey)
' p4 a* O! S% w) B6 d3 xEncode = Encode & NumberToHex(lLngEncrypted, 4) ' P5 Q# G. ^: q3 s; o! @
Next
  F" T: W+ A) E6 J' rEnd Function
" _' }; f5 ?0 p+ b  y: `Public Function Decode(ByVal pStrMessage) ! c+ f8 h: b* z5 p
Dim lBytAscii
8 W  Y0 K$ Q8 g2 y# a4 e9 @Dim lLngIndex 2 w$ ^( f- F& E
Dim lLngMaxIndex & T5 R9 J# T, o: f! Q( s. T! F( \6 N
Dim lLngEncryptedData 1 G2 t) K4 |) Y) ]* U
Decode = "" : A$ `  e8 s- O7 C
lLngMaxIndex = Len(pStrMessage) , D5 p1 X! Z, ~
For lLngIndex = 1 To lLngMaxIndex Step 4
( W" E/ p8 w. h* ~0 M7 i1 G; m- |lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
; ~& g1 v- _' `+ T/ [, ~lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
+ u! F" q. y9 h$ `) q* DDecode = Decode & Chr(lBytAscii)
+ F, \9 ]) G- `* Q0 GNext . u  ^; ]8 S4 n3 c, ]" r/ T
End Function $ F" G& d4 H2 K5 H
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) * Y, L+ N4 z/ e0 n& f9 J
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
* w! _4 t5 X; i' v: @( SEnd Function
% U/ U; X  D) V+ ]* Z6 |% W' `Private Function HexToNumber(ByRef pStrHex)
1 ]( Q5 {: A# CHexToNumber = CLng("&h" & pStrHex) + ~% J1 R8 W5 m" B5 h9 ?" ^
End Function
7 p: l' A4 D0 v' C2 vEnd Class 9 D& D  @3 D! c+ Y! W2 E
function Encryptstr(Message) 7 B! k) {6 R/ J
Dim LngKeyE / e% ~5 Y; f/ r! x* X
Dim LngKeyD : k1 w4 n& M: F2 h; g0 W
Dim LngKeyN
8 D2 T, S+ I# `& h9 q8 l" @. J' mDim StrMessage
) ^! C( W% j* [3 HDim ObjRSA 8 K; Y0 _& T: K# ]) S* l) A& A
LngKeyE = "32823"
6 b) `5 c- L5 FLngKeyD = "20643" # n8 ?" J% ]5 \, E  u9 g
LngKeyN = "29893"
* U; A% s0 l/ ZStrMessage = Message
$ o5 R0 a  b( k( n' V# b+ iSet ObjRSA = New clsRSA
3 {  f3 Y% U  C3 z5 B0 T0 H8 Z6 LObjRSA.PublicKey = LngKeyE ! J5 x& W" C* Z. [
ObjRSA.Modulus = LngKeyN ; j+ x1 q2 v' k) R
Encryptstr = ObjRSA.Encode(StrMessage)
* q  m2 g5 S" I( X# x9 X! q4 ?Set ObjRSA = Nothing - o! ]3 X( G! d
end function6 Y% b" U' o# ]% K' |- l
Function Decryptstr(Message) : V: T/ r* v/ x" @
Dim LngKeyE
) V5 R: u/ f5 D" X4 L0 r) q$ HDim LngKeyD
! l/ d9 z: {% Q* ~  P. QDim LngKeyN * x! M. ?5 K  n( }% m7 b7 |+ I
Dim StrMessage
' u0 q3 f* i0 n% J4 Y6 f+ mDim ObjRSA
7 \& w: G# M" X9 NLngKeyE = "32823"
0 n* C. S" J/ {% t1 }LngKeyD = "20643" % a) F) F+ y& c# H% U) J1 r
LngKeyN = "29893" 9 H% F. e9 o; v' v4 e( \
StrMessage = Message & E! x8 n" |2 E; s' d! I* {2 c
Set ObjRSA = New clsRSA
7 p  u2 h9 W% @$ H1 HObjRSA.PrivateKey =LngKeyD 1 F5 u$ E$ ^$ p
ObjRSA.Modulus=LngKeyN , N. @1 S% c. w7 c! z
decryptstr=ObjRSA.Decode(StrMessage) # o3 p" I: v6 Y+ `
Set ObjRSA = Nothing 3 x1 u4 n  V! |$ ?' }+ C, ^
end function 2 P/ K4 e( T7 \3 A7 w$ U: S
%>+ R. [4 @6 T$ y- e8 i
===============================================' r6 D$ t0 E) Y1 T9 l8 \
$ c  ?$ U. m1 A
还有一个用于测试这段代码的test.asp
5 c3 s! r7 s( D2 c有兴趣的自己搭建个IIS测试下
5 R! ?5 D0 k& I<!--#INCLUDE FILE="RSA.asp"-->
/ H7 i8 G3 a" f" n0 J/ q<%$ {5 A0 ~: I. ~. p# A. @
function Encryptstr(Message) 3 i2 G& R  W. T% o
Dim LngKeyE ; o/ U9 q% |: |" a& t4 Q
Dim LngKeyD
/ B0 V9 a* C- D5 {8 ~( ~6 @  ODim LngKeyN , N: u8 z  ?# `1 o
Dim StrMessage % R! o! E. F9 d1 I  m# a0 s7 S
Dim ObjRSA
( a) s1 e2 l# J. R; e& b* q! YLngKeyE = "32823"
0 [" \0 o8 i) ?8 X  r/ hLngKeyD = "20643"
% F& z4 |' x% h" n$ Y5 K  B2 b  VLngKeyN = "29893"
% [) w0 Z9 g3 F; u3 M  @" pStrMessage = Message
5 Z# Z  z; V$ U* l) b0 b$ |& D6 V4 QSet ObjRSA = New clsRSA
8 m, P5 M% H+ S3 c( L9 BObjRSA.PublicKey = LngKeyE ' {. K) }; S% G
ObjRSA.Modulus = LngKeyN , U1 `  R5 g7 C- I6 k! y& V. y: G
Encryptstr = ObjRSA.Encode(StrMessage) ) p. G. h; a! B/ l% V" u' R
Set ObjRSA = Nothing
  h6 N7 n" x8 s) Oend function / }- D( r6 \6 {% t# O5 g/ j
function decryptstr(Message)
1 C3 [$ w) s& {' u# k& LDim LngKeyE
& T8 N6 L; s( yDim LngKeyD
. v2 w+ s; u+ cDim LngKeyN $ f* p5 a& ], G# f& t
Dim StrMessage
. a  N3 x. u% b4 \# Y& B9 J% x( }Dim ObjRSA
, N" x+ ^! D0 O& H- f2 [# tLngKeyE = "32823"
3 c# Z' ~( ]0 G' A) R5 w% ILngKeyD = "20643"
: C3 Q6 T( D6 S+ }/ c. \LngKeyN = "29893" / ^2 `) {  C; {( d! I. V
StrMessage = Message - L+ T; l# s1 _! u: O
Set ObjRSA = New clsRSA 8 v. z3 U( q, n3 E# t  k
ObjRSA.PrivateKey =LngKeyD ' c4 M  U, L) s+ Q( O) M
ObjRSA.Modulus=LngKeyN 9 ~: R0 F- d3 I" `
decryptstr=ObjRSA.Decode(StrMessage) ' k# a1 Z/ f% W2 N
Set ObjRSA = Nothing   g5 n: v0 N3 u5 Q
end function - ^4 T2 H9 [% j# N
dim last,first $ H" |: P6 v& e8 |% E- g
first="!@#$%^&*()" : ]6 Q7 w7 Y$ c! ]$ d  C
Response.Write "加密前为:"&first 8 h, n) d1 b- }3 L) i
last=Encryptstr(first) & e9 l+ P" G$ Z! U6 U# C1 k" L! L6 C
Response.Write "加密后为"&last ) ~0 {& @9 y$ O8 o5 V2 e
Response.Write "解密后为" &decryptstr(last)
$ A) W% |' J  S# U1 x%> ==============================================$ h0 z7 @3 s1 v2 A3 |& S; p* [
剩下的就是字符的对照表了  E- t& C& F& X
===================字符集================2 j, ?- p8 w9 l
1_____6EBB
# p3 C3 x) j8 F4 }1 T2_____5C1F
# `$ N1 [( A" u( ?( A3_____4D756 ]; }1 s! p6 ]9 q! t
4_____26CC
* ?4 |# L- K* N4 o; X, V5_____4F889 I$ w; q4 e& F! O: n* Y
6_____3F4E
/ V+ O4 ?' m; S4 X- ?- v7_____0A9D% q6 D) d: @' w9 w
8_____1A1C
" D' d/ v6 _+ n5 j5 Q$ W9_____6D206 M* K7 A4 r8 Y; E6 _2 E
0_____1089
' `8 n3 v9 X& r$ Ia_____0F3E
/ S( Q: ^0 F' n$ [b_____3159# f; Q7 ^, A* K/ N
c_____3517
, W5 s# ~& P! Z8 |5 rd_____419C5 p0 `3 v4 P) I1 J3 I9 Z8 E( @& Q
e_____615C
& {$ f# ~- B& ]- n# Df_____556F
# M1 g$ P' D0 m4 F4 Z5 g1 O) \g_____2B7F% T7 W) Q# u' c% I/ W5 X  }% I
h_____0F9C
* _& @$ U+ e& u( a4 E( C, Si_____00FA3 c2 {$ Q  ~3 `" n7 r$ u
j_____5A50) e6 V7 a1 m9 r
k_____2850' Q, I6 K- a* L$ S$ [' t
l_____3E7B
0 o) L! k: W5 P5 A$ n; vm_____71C5
! q- H5 W. _+ x( `4 c  a1 E+ Xn_____1FC8
; u& C) ~( W" r) o' _/ T1 e. ]  d3 Bo_____74C1, s! Y3 \3 V2 ]* t1 V5 \
p_____5FB8" Z1 w# n$ U3 ]* B
q_____6085
/ S% Q7 M2 }* C- N2 k/ I) Hr_____3AC4
1 Y- }. w- X# U6 K  s; q3 Os_____2F50( n1 I2 E/ `1 h. E6 p- P
t_____36F8
' r9 W; [1 J2 w' ou_____70109 S' v% d$ P2 @
v_____0B42
: E; |6 o" A/ m8 {, V4 F- ww_____1C7A
7 H$ s) I5 ^& M  u* Jx_____16F8
( k; R! ^% ]& s2 sy_____2EE7
' {" K; F$ _% }) y! `6 M7 i* l: x. iz_____5CF3$ `% C2 U% l9 U' i$ l' J: \% @
!_____62334 @: q& P8 s$ i5 q: f, t& O2 i
@_____3A45
, P8 D: @: F9 l- I  y#_____22919 }8 }( V6 S0 F' X
$_____5D5C
( ~/ ^0 }* r; \0 J* B%_____09B9+ n  [! J" h, f# ?
^_____43EA
$ i0 R& M! S5 Y9 e& ]& k; w&_____62B9- T7 b( g; d0 S/ L6 T# Y% |  n
*_____63017 D/ F: f! s* ?4 n
(_____4659) j7 R3 C5 N3 O& A" u% b  _
)_____5C82

鱼儿无心

收藏了。。。。。。。。