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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm6 N8 n$ P7 e3 C* u
原始出处：http://www.3ast.com.cm
1 h4 F$ v8 I% M$ w$ c+ q9 K( Z- i0 x
看不懂的直接绕过/ }7 K$ X: @# X, Q, L7 j/ Q
加密前为:hwy123456( t/ P6 \, Q6 X( T  n/ X0 D
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E+ W* P8 L. w1 a4 W. X0 z

9 }# p$ C7 W" @/ ?8 d============================================
) _$ W0 \% v  p; d上面是当时自己校内的心情。现在已经解破出来了，分享给大家
" l* s. k- B( a0 t, K& ~也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
1 m* \+ n" X1 h+ F以下是RSA算法文件/ c+ n* Q6 I! G/ w; h" }0 i. p0 G& F
. w+ o! y8 _, ^
文件名RSA.ASP
) M7 L5 T. z9 I===============================================
0 a$ X5 ?( ^; |9 p  P! K' F<%
" B2 q/ P: e0 H4 G( T' Q% OClass clsRSA
4 b& h  ?8 d% e" P) t  [Public PrivateKey
& `9 ]% x/ T2 C- [) a  tPublic PublicKey 8 i, h* x, {; W, U% Y) j
Public Modulus ; P/ S% V- ?/ f$ T+ o
Public Function Crypt(pLngMessage, pLngKey)
5 e0 Z0 F& E! _1 E" gOn Error Resume Next % k# F5 o0 O  m6 {6 i
Dim lLngMod
2 Y- Z# M9 j& HDim lLngResult
. n) }& ^9 E' R# fDim lLngIndex 8 R6 i. P6 w8 s& ?$ g
If pLngKey Mod 2 = 0 Then - i' e3 z* o2 `. @! {4 X
lLngResult = 1
. a9 x( a$ j1 R0 `+ U- ?, v0 bFor lLngIndex = 1 To pLngKey / 2
7 |# e) j/ U; I; Z  X% U) DlLngMod = (pLngMessage ^ 2) Mod Modulus 0 X2 J* l& n  ?" X
' Mod may error on key generation
5 J, E2 |+ K! e2 x# j( O8 AlLngResult = (lLngMod * lLngResult) Mod Modulus ) `& y# U7 r5 U. k0 k8 A
If Err Then Exit Function * V# m6 l' T/ q# v1 G- _
Next
2 x4 }8 l" }$ CElse 3 g. K' O" ]+ C3 c6 `8 o% P6 N& H$ B
lLngResult = pLngMessage
2 S1 Y9 f5 l, `6 s0 JFor lLngIndex = 1 To pLngKey / 2 4 |1 x! v; O! _- P7 O2 n
lLngMod = (pLngMessage ^ 2) Mod Modulus
9 a/ _3 ?) Z6 o$ iOn Error Resume Next 4 Q5 [) c7 Q1 @# [* x( F- `
' Mod may error on key generation 2 B, S# Z5 R6 z- N* W
lLngResult = (lLngMod * lLngResult) Mod Modulus / Y! n3 ]+ [6 f. c9 ?+ ?8 t
If Err Then Exit Function
4 i1 R8 C; m) J+ t  ?- V2 CNext
2 J6 d! E  h* \$ q$ C2 J- I0 EEnd If ) o, X3 ^9 B" n' ~7 F
Crypt = lLngResult
1 X, S" Q1 u) C0 `End Function
; F. t+ Q$ s1 p7 v+ S$ b0 X. b# W4 A# m
Public Function Encode(ByVal pStrMessage) " }# C7 e. s8 K0 K4 }. ?
Dim lLngIndex 8 U& D! ^* `4 e2 F; d- |. Q: _
Dim lLngMaxIndex
  T( ~9 u# J# `$ [9 ^6 XDim lBytAscii % l$ a2 p( l, ~, @. S+ _- p
Dim lLngEncrypted & ]. {6 j% m' m2 }5 w, C8 z) b- F
lLngMaxIndex = Len(pStrMessage)
$ `# _( O/ \) n' G, bIf lLngMaxIndex = 0 Then Exit Function " n' Y, N. n9 q9 \7 b% [* i- v
For lLngIndex = 1 To lLngMaxIndex 2 [( u% D& [- N
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 1 c0 R- t' F6 h) @9 X- h  h; e# {
lLngEncrypted = Crypt(lBytAscii, PublicKey)
1 z) G* t3 v# l. Y- x! iEncode = Encode & NumberToHex(lLngEncrypted, 4)   F" V# |; b& q2 `% e' t
Next 6 Z$ e/ h% x5 B. g3 f, a; H' J. u  i& `
End Function
, u# c4 q, t0 ]5 K7 W8 iPublic Function Decode(ByVal pStrMessage)
5 C+ N6 f1 X* ]! V2 ], ODim lBytAscii . V! D% E  Z; B8 O  l, t8 S
Dim lLngIndex 5 d, _$ p- u: m5 D" ~2 Q7 L
Dim lLngMaxIndex
7 a  v) Y( ~6 I5 L6 d5 BDim lLngEncryptedData
' W$ V$ _3 }% _6 `3 }% o* jDecode = ""
+ U. @! [5 s9 M0 ^1 glLngMaxIndex = Len(pStrMessage) ( Y: \9 R: m$ u6 K* V+ x. O
For lLngIndex = 1 To lLngMaxIndex Step 4
3 T3 K& l; W/ Z' U( ^: VlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) * j* d+ r5 L. y0 a5 N3 W3 W. K
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 2 @) C& R2 X. W
Decode = Decode & Chr(lBytAscii)   Y3 B7 M# O- j6 i) z1 i
Next
: I% H; h& j7 ?8 {' _! u+ CEnd Function
9 t7 f' W/ S2 ^. a9 d4 t& OPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
" A, D/ ~- L  _3 C6 `& `NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 3 y4 H: C0 r/ X- T6 D
End Function
( }: {0 C6 p; @' W) K7 a) yPrivate Function HexToNumber(ByRef pStrHex)
& v2 `  H( E# N7 M: pHexToNumber = CLng("&h" & pStrHex) & t, x- X% l' c( X0 o: y" R
End Function ) ?* ?: }9 c& }0 K% _( r
End Class
1 ^- [% @( E) {/ T; Y) I9 ]function Encryptstr(Message)
. g/ r# D9 o  p* c/ [Dim LngKeyE
4 b& A3 A  d; X1 {( k2 X8 U$ GDim LngKeyD
. K: y2 F8 Z% K  g% s& G6 UDim LngKeyN 5 h  f! Z- v/ l& o
Dim StrMessage
' u+ b. y  k# \" fDim ObjRSA / s2 v! a& P! S# T2 K/ h
LngKeyE = "32823"
2 Z8 a8 z2 Q, J+ sLngKeyD = "20643"
: K& Y$ P5 f9 e6 O3 r6 b% SLngKeyN = "29893" 7 H( S3 R% N) C) r1 v
StrMessage = Message
0 d' u* n, E7 _  `& X1 Q2 ~9 S  j- A3 }Set ObjRSA = New clsRSA
" o) K4 h- r- Z2 C& T3 l) sObjRSA.PublicKey = LngKeyE % I! x4 ?& q. \* r5 J3 Q# y8 Y2 _% C
ObjRSA.Modulus = LngKeyN * ?- a7 e1 i' N2 Y1 L: P
Encryptstr = ObjRSA.Encode(StrMessage) ' L) y* j: t1 W4 e
Set ObjRSA = Nothing ( m1 \$ N* M1 \7 A# q& g
end function
, ]( O) c9 d. a/ f- n1 l5 kFunction Decryptstr(Message)
# c- `6 _9 R9 A8 ~; [6 ?Dim LngKeyE : |- b' C% K0 w% `  p
Dim LngKeyD 4 m0 O" Q6 O, }3 M- c
Dim LngKeyN 9 Z. K1 }8 H, a! B! `; L
Dim StrMessage - L, b) b, E1 u. Q4 n& n: U' `& b
Dim ObjRSA
2 i7 D5 |- w' A+ T4 o) ~LngKeyE = "32823" & X, q+ g4 a* K; x  a
LngKeyD = "20643"
; C1 V4 }6 X) G' B0 J7 HLngKeyN = "29893" % c9 k" g! @% O$ b3 m6 M
StrMessage = Message
! k! D, o1 n) p8 D$ L3 u1 C9 ^6 h& tSet ObjRSA = New clsRSA
$ I7 \$ d% y* C* }* n6 j# tObjRSA.PrivateKey =LngKeyD
5 [: R# }# U' @) S7 dObjRSA.Modulus=LngKeyN
+ M0 v- k' q- X- ]- D& B9 K, Udecryptstr=ObjRSA.Decode(StrMessage) ( ?- L: y0 G1 \& l& |
Set ObjRSA = Nothing
6 [( U; ]7 o5 o. A# R6 kend function
" ^/ Q0 k5 E/ a4 j/ L5 t%>- G* |: {! H0 a+ b
===============================================3 {% q5 A7 O; m3 I  Q" S

! r% ?( J- n; ^( y/ h8 H& u还有一个用于测试这段代码的test.asp
, [$ a! v' p& B1 i7 `: y6 G有兴趣的自己搭建个IIS测试下
! K0 L" B& n2 ~' M<!--#INCLUDE FILE="RSA.asp"-->   d  p! l/ B2 N
<%
! y2 v  _% D9 Q! @) D! r, S' Nfunction Encryptstr(Message)
  @) I# U: T  R" q' zDim LngKeyE
& M8 y5 i7 v' PDim LngKeyD
# k' T; l- U% s2 cDim LngKeyN 3 O* x0 Z4 e; A
Dim StrMessage   i$ `# f$ b- t8 e0 z
Dim ObjRSA
# |7 U4 [5 e- x0 E$ E8 d- o- Z: cLngKeyE = "32823" * p. @( d. a) y& }$ D1 p* q$ I
LngKeyD = "20643" 0 I# w5 A/ W6 W6 n2 B) z
LngKeyN = "29893"
4 `9 l1 [8 u: _StrMessage = Message - t) `- b9 {: X' i& |- ~. ~
Set ObjRSA = New clsRSA 6 P$ J6 C; [  w) B/ ^+ @7 W" X% L
ObjRSA.PublicKey = LngKeyE
" K% p' }* _6 D: K) qObjRSA.Modulus = LngKeyN
# J  k  R9 W$ p. uEncryptstr = ObjRSA.Encode(StrMessage)
. _; Q+ U3 v: D, mSet ObjRSA = Nothing
5 t" A3 z+ O/ N! E9 eend function
8 {, P% u6 `  M( A2 qfunction decryptstr(Message)
* G$ }7 ^9 c  n' Y9 ~8 }; aDim LngKeyE ' c% e5 o# Z9 Q9 S" C
Dim LngKeyD ; `6 R( E+ L# e- _+ E; y- _4 x
Dim LngKeyN / D$ b  \/ S4 O. D3 i* r
Dim StrMessage
. d/ A1 L  O7 z1 Z7 a, K9 u( BDim ObjRSA ; U) o  Y: t/ _
LngKeyE = "32823" . b; d( X/ Y7 A1 B0 N
LngKeyD = "20643"
  M' r  n2 x9 i  E6 ^% N. `LngKeyN = "29893"
8 t& N1 ]" p8 \6 Z/ [StrMessage = Message
6 b+ ^: P% H3 [. {Set ObjRSA = New clsRSA 6 }, x: I5 Z# x3 Y' t
ObjRSA.PrivateKey =LngKeyD ) I( {9 {  J7 o: E) _
ObjRSA.Modulus=LngKeyN
( g% r; Q, w' c! o; P, `+ fdecryptstr=ObjRSA.Decode(StrMessage)
% `; B% ~- `. \/ N, G; W, B: qSet ObjRSA = Nothing   [- g5 q$ M1 f3 J
end function % @$ R+ ~5 X! h4 J* l
dim last,first
0 s! n1 _% B2 j) }- n4 l" Y& Gfirst="!@#$%^&*()" " i& A1 K) @: k& D; }
Response.Write "加密前为:"&first 6 \" y: A& u0 I! b8 S; }  f
last=Encryptstr(first)
! |* ~8 Q: S" U7 Q* {5 ~9 fResponse.Write "加密后为"&last
. Q2 k2 i0 S  g# e, e2 MResponse.Write "解密后为" &decryptstr(last) # M& Z9 }* z  N- \6 K+ B
%> ==============================================! [, P: r! M4 q# i4 f& O& J: K
剩下的就是字符的对照表了. \0 R% ^$ y; ~* P6 t! o% k* }( z
===================字符集================
; w! g# h; n4 x3 J  e3 ^1_____6EBB
6 l8 R  G& G. \) P! k) e" Y: n7 K2_____5C1F
& d1 H% Z+ B, `+ |/ k3_____4D75& Q2 q! C. s$ ?; A8 ?2 W
4_____26CC
/ A3 N2 p2 G3 F# W5_____4F88
- I. d) h: }( }& Y: ?. p6_____3F4E  C1 z) M6 x/ p$ m
7_____0A9D
) J& d' p$ c1 @- h8_____1A1C
3 m" X. g+ c( A7 F) m! _$ }9_____6D20
# F3 X' }7 t: ^5 o5 @9 x0_____1089
! y, D2 O6 T: F8 l% p" Qa_____0F3E, D- V. }* @' W6 X, N3 w5 V
b_____3159
7 A% F" n' ~; w: i: v/ S( ec_____3517& }1 D" V1 d) ?( c
d_____419C
) Y( A# f. E. ~, o; K! {e_____615C8 T4 t. |; f7 W: t6 D3 y
f_____556F5 |6 D. i  _+ e5 H2 V  z
g_____2B7F' s1 I8 k1 w' }/ f3 I
h_____0F9C/ h7 |) I- D- T* x! Q8 _1 |0 T! J+ t
i_____00FA: b* g2 q& _& r& u9 S
j_____5A50
  ~# q# _* O; M, p# @8 Q- G) Jk_____2850! S9 i8 E, f% e2 D2 X5 j4 y
l_____3E7B7 w. M/ t% d( o' p  B% L: R
m_____71C5
4 j, c/ y7 U& l# i) ?n_____1FC85 J3 Z+ j( O( l0 p/ l6 j0 R9 G4 p
o_____74C1
8 u& P% Z' j8 G( F8 Zp_____5FB8
& z  {3 a/ Z4 l3 {/ qq_____6085. j0 z' f. ~* I  F8 w& d& z
r_____3AC4/ b# a" W6 ?' C. S5 Z( t% P9 E
s_____2F508 C% O# ^0 p/ P
t_____36F86 H" V$ I8 a6 L+ v9 F# o6 J" E7 D
u_____70105 c' f/ z9 U6 u& R- t. r4 M7 A  K
v_____0B428 j5 d" Z! M* N# S
w_____1C7A$ v3 b* M9 [3 j; I. L- a
x_____16F83 c% p" B3 `7 J
y_____2EE7
4 V; P' M/ F; T$ S# hz_____5CF3% ^; d+ F+ K$ p- }0 C
!_____6233
2 S- Z8 F( T% P6 v* u@_____3A45
# w$ I9 W9 V5 _: @+ T#_____2291/ l9 L  U4 Y- u3 @% w
$_____5D5C
1 K/ C- f) f* X& s2 [' G%_____09B9" O. ~# ?" Y! H  E2 k* n5 A
^_____43EA
! j" P* ^8 i6 \2 a$ D6 M&_____62B9
# \# W6 C4 Z. {2 G4 W4 f- P. Q*_____63014 E; e1 t: T% X6 w+ B" l+ ?5 v
(_____4659! N2 B) @: q3 N9 K
)_____5C82

鱼儿无心

收藏了。。。。。。。。