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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm% G! g& _  F3 H6 [3 r# l
原始出处：http://www.3ast.com.cm
2 N. _+ F6 O9 ^! d5 `* j
4 Z5 R, ^: \2 x看不懂的直接绕过
- q. q) G2 i; v$ r+ ]加密前为:hwy123456) h5 k# F4 i; K+ {7 M" R# o
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
' t) R8 U1 B, T8 F0 N4 X
4 j7 w% S% c0 D* H3 `" |5 Q============================================
% b& ~  k/ `3 c0 ]* q4 C/ N上面是当时自己校内的心情。现在已经解破出来了，分享给大家& m6 n- V4 m8 q0 v1 j5 l( K
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法# B. Z1 a4 B; R/ J* k
以下是RSA算法文件  ~7 b: e; X' k+ _

' @3 J2 e, H0 ~/ m文件名RSA.ASP
4 A' P* j5 b4 w' C0 n' r( N===============================================
( S2 q9 l; E, R# c<%
# r6 ~9 O- S, LClass clsRSA
5 v; X/ P3 g4 O# M  QPublic PrivateKey
) |% I" L) c( a* Y$ YPublic PublicKey / A3 m* Q: U  B! a5 ~
Public Modulus
( H- P! T. W/ {Public Function Crypt(pLngMessage, pLngKey) 4 N) ^3 d4 f  d" `( C
On Error Resume Next ; U- P- p9 s1 K1 S. z5 ~
Dim lLngMod
% E5 B  y, q, g! G4 W+ cDim lLngResult
) l0 o! f- }& D% V; HDim lLngIndex + F  C! i& n* _( z& o- s7 m/ u
If pLngKey Mod 2 = 0 Then % y# k) u2 q; c8 S5 R# G/ }
lLngResult = 1
. G# q9 V+ @) h0 P* Z8 B$ n4 iFor lLngIndex = 1 To pLngKey / 2 6 f! e& Q$ E3 j0 @2 }( \6 N6 K' m
lLngMod = (pLngMessage ^ 2) Mod Modulus ( R& w, S' w2 Q. S8 K! s
' Mod may error on key generation - {% g, D+ E% X) v5 x8 Q
lLngResult = (lLngMod * lLngResult) Mod Modulus
% O9 n6 F8 M4 U6 X$ f+ eIf Err Then Exit Function 4 o) I# z" ^- q5 [
Next / h1 D2 c% F6 _3 {' _+ d
Else
: L3 `& X. @" }7 F$ ulLngResult = pLngMessage
. V" H+ `- w  k4 rFor lLngIndex = 1 To pLngKey / 2 4 V6 T) Y3 b- F5 y' p
lLngMod = (pLngMessage ^ 2) Mod Modulus
) {7 E+ v0 f; E. Y1 B0 C$ mOn Error Resume Next
. D, X2 [5 K& C' Mod may error on key generation
6 W) j# ]# t8 J1 _+ F: @! WlLngResult = (lLngMod * lLngResult) Mod Modulus
  G% {  X; d" z/ h8 xIf Err Then Exit Function
2 I' t* l$ \* U  j2 rNext
+ W/ @  l& M1 U  G% N$ c# u$ y" rEnd If
) G# V1 C- J* h! [Crypt = lLngResult
/ T( }5 p1 H6 @End Function: y% g% a7 _. |9 C/ f  t4 D; Z, w# Z3 X
: D+ D; C( f: _4 D8 ]( A
Public Function Encode(ByVal pStrMessage) % c7 d% A6 ?" j1 o: R/ [; S7 ~" ]
Dim lLngIndex
$ B1 T$ T, G1 }9 G' b' t/ R. FDim lLngMaxIndex 6 g. b$ n% [0 ^
Dim lBytAscii
) t, a9 e' T1 i( |# xDim lLngEncrypted
7 O8 g; V& {1 D! L* l& r3 Z; elLngMaxIndex = Len(pStrMessage)
1 C: B: x5 R9 _If lLngMaxIndex = 0 Then Exit Function
, B+ \$ _; @, d# A2 P9 N; @0 FFor lLngIndex = 1 To lLngMaxIndex
' O) |: \- ?/ Y" YlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ! e) f" ^+ v8 _) z# _0 h+ O8 P
lLngEncrypted = Crypt(lBytAscii, PublicKey)
6 ^8 X- j* M4 C, p2 MEncode = Encode & NumberToHex(lLngEncrypted, 4)
, `  \9 z9 A' WNext
; b6 j1 S; U# @) y* C. }End Function & i# K# |; ]2 q8 m
Public Function Decode(ByVal pStrMessage)
5 I6 \0 Q8 m' i( s# {# x. ~8 QDim lBytAscii
; d# y& K+ r' d4 l& @Dim lLngIndex 7 [- J( [5 d9 P
Dim lLngMaxIndex
$ J- T) u2 i+ |0 P- LDim lLngEncryptedData , i) E7 h( z8 g
Decode = ""
( G% K, l$ B/ K9 l: qlLngMaxIndex = Len(pStrMessage) ' m7 u9 a- B% g' D& Q
For lLngIndex = 1 To lLngMaxIndex Step 4 ; G% X2 S7 l3 V1 s6 o
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))   E* M0 n$ x2 ~% Q/ b
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) # V" N% _7 |: S0 i5 Y+ ^/ P# l
Decode = Decode & Chr(lBytAscii)   z+ w7 J0 A/ ?% N$ C6 Q4 K
Next
" [0 {7 x1 ~7 ^End Function
6 S( @$ `8 k) _Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 9 `+ M% g; d; J" H) F5 |
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
3 H" K3 \' [- c. R; r' h+ ?6 R5 qEnd Function , C9 Q5 G7 V  Y" x7 Q  c4 ^7 {
Private Function HexToNumber(ByRef pStrHex)
( w! m+ r; G/ C* N% sHexToNumber = CLng("&h" & pStrHex) 4 D; [+ a5 ?& w* o0 \; x* M
End Function / ]) p; ~( j% z
End Class
6 r0 H! m: N8 z4 V6 P' rfunction Encryptstr(Message) 9 h' l* `: P" [& [+ i  T
Dim LngKeyE : l" h% Q% C. f
Dim LngKeyD . Z+ r3 c, d+ k
Dim LngKeyN
8 v9 S2 R' o- d, U3 C0 TDim StrMessage ) B* o$ z$ C, q% I% s( }% j0 `$ d
Dim ObjRSA 7 _9 m6 A% t3 C8 C. e  w/ w
LngKeyE = "32823" 7 M6 L9 E, N( R* W" u5 R
LngKeyD = "20643" 7 J/ _3 H9 ^5 B5 {4 y
LngKeyN = "29893"
: `% C, l8 T/ |& Q  I; gStrMessage = Message 8 `! G8 ?7 J1 u) q: T- L, l6 ]+ j
Set ObjRSA = New clsRSA % E# i2 {( E1 z& @, Y; s8 S: [
ObjRSA.PublicKey = LngKeyE
: n6 G: t) Z3 L! m, AObjRSA.Modulus = LngKeyN ! z' ~7 B9 |  s9 s
Encryptstr = ObjRSA.Encode(StrMessage)
3 W; b6 F* E1 ]) M$ K/ y* fSet ObjRSA = Nothing
! L& J  B$ F, ^. @- e* Fend function# L, ~3 e! E" ^* |
Function Decryptstr(Message) 5 u- u6 d: I" f# |# B! y& q3 @
Dim LngKeyE   q9 H, O7 b. `2 n
Dim LngKeyD
4 {1 B4 o, V0 iDim LngKeyN & L5 }0 J' E0 j0 _8 u
Dim StrMessage
/ R4 s" K3 q5 S6 R- \9 IDim ObjRSA
. W( I( j) n9 ~9 E7 }2 j- K5 XLngKeyE = "32823" ' ^4 t: S  K7 t# i! x4 ~$ B
LngKeyD = "20643" 8 \' |5 B# F: R7 S; K& D0 s
LngKeyN = "29893"
0 U/ @: F0 `  G; Q1 @* g" K% a4 s* L8 cStrMessage = Message % |  C% o  F+ r" \  m
Set ObjRSA = New clsRSA . l. N. r2 M) f# Z- u. D
ObjRSA.PrivateKey =LngKeyD # u; `# o3 z  S
ObjRSA.Modulus=LngKeyN & R& Y2 D' x$ p' h+ i. B
decryptstr=ObjRSA.Decode(StrMessage)
6 x2 U0 ]5 j+ K7 E4 ~, H. l2 gSet ObjRSA = Nothing * t; e% _# J" _! e
end function " M  b1 r" u7 F3 }1 z( s
%>4 i& K& G/ \9 O" g2 {
===============================================
5 e  H- ]0 u1 G/ o& n, q
  Q6 U1 h& y' h还有一个用于测试这段代码的test.asp
# {( |/ i5 ~+ v" [4 y有兴趣的自己搭建个IIS测试下
9 p, K$ W; |# q! R7 k  N) y<!--#INCLUDE FILE="RSA.asp"-->
6 ?# T4 S! Y* b. c5 y" r2 b& D<%1 J9 R  r5 a' H! y+ p9 V" J
function Encryptstr(Message)
" c0 L! w( Q  fDim LngKeyE
6 j' U# h# k& R5 aDim LngKeyD 8 R9 g  S; Z2 o9 v7 G
Dim LngKeyN . F( L$ F7 m2 v; J  e) U8 W
Dim StrMessage
0 H3 |/ f6 `# e- T6 h! S2 F! f7 `( cDim ObjRSA $ P& e3 u9 ], G- x7 ?
LngKeyE = "32823"
  u" q0 u: B( N& i- p+ Z/ C  |LngKeyD = "20643" 6 l# Y! v) [% n1 c' A+ [7 V
LngKeyN = "29893" % j% w: L0 @& U" S
StrMessage = Message 2 D+ E) |! r0 L+ w7 T- E8 A* K
Set ObjRSA = New clsRSA
5 {0 I  @1 C- IObjRSA.PublicKey = LngKeyE
4 W; [' P) |( m; ?8 tObjRSA.Modulus = LngKeyN
- P8 d, V+ }/ V! o, W; j/ j1 hEncryptstr = ObjRSA.Encode(StrMessage) - @, X, u( T! T- x9 [
Set ObjRSA = Nothing
9 w0 ]3 I/ B, G6 J# {$ Mend function # }, X% p* k8 h1 \. w
function decryptstr(Message) 8 Q% w7 `, C0 g
Dim LngKeyE
9 a. G) y$ b4 C. SDim LngKeyD
, W! Z+ X+ A2 n/ F- l' x0 [Dim LngKeyN
- d# z. r% e) f- }* ?( sDim StrMessage / B8 _: A: o: q
Dim ObjRSA - B6 o' W' m2 H7 s0 |
LngKeyE = "32823" + p! r" A: G* z6 K! r( t: S! E
LngKeyD = "20643"
# m3 T3 e/ ~; T; G" U) JLngKeyN = "29893"
, b* x6 j" C1 x/ H9 w1 `StrMessage = Message . w, K, t2 d( b4 G
Set ObjRSA = New clsRSA - I  J5 v7 z  M2 ?1 C5 E
ObjRSA.PrivateKey =LngKeyD
; U$ W4 l/ C( u: r! WObjRSA.Modulus=LngKeyN . j  a& }/ {2 g  u' ?8 Y" t1 I
decryptstr=ObjRSA.Decode(StrMessage)
) m+ q' d# R* ~& J6 B2 j9 b% rSet ObjRSA = Nothing
+ B$ V: H& [2 L) send function
0 [/ H5 ]6 c7 p1 C* b+ p# rdim last,first
0 ?: ^  }7 k! M) Q; b( Kfirst="!@#$%^&*()" ) m2 g& L% p& i; Z# _
Response.Write "加密前为:"&first
0 m. n4 U! L! g. q; g9 vlast=Encryptstr(first)
- V5 S4 E5 E- S6 Q. T0 w8 oResponse.Write "加密后为"&last
* f7 ?8 N+ l" a1 D6 V& GResponse.Write "解密后为" &decryptstr(last)   N( r9 |! f0 r8 J, `! k
%> ==============================================
& z) R! F3 U1 f) _2 k* ]; Z: D' P剩下的就是字符的对照表了2 R7 _+ g; f' N6 _: Z
===================字符集================9 N' n# s' j# ^
1_____6EBB
! V* ^) W/ S: [- G/ `( z0 ~/ _2_____5C1F8 N8 _% i; y) \/ b
3_____4D75
3 h; S" J' q/ w3 K, R6 y( m, ?4_____26CC, m7 |& O- W9 z& U2 ?9 c0 }+ _* F
5_____4F88& X: x( Y4 @8 U5 {
6_____3F4E7 v9 A$ }  b  A8 N% p1 p$ S$ p* n7 y
7_____0A9D
0 p4 A5 ]2 M0 V8 H# O0 G8_____1A1C$ T# I8 a- {# M: u$ n7 T
9_____6D20# b  r- B8 g4 S2 l
0_____1089
1 Z+ `2 O/ {. Wa_____0F3E6 A7 Z8 @0 @) K" `2 R" D5 a
b_____31594 J) R  h- a4 z) t
c_____35174 S$ K+ A1 k- H: l, Z
d_____419C
, c7 n  j1 g& R1 k, Ae_____615C& {/ N$ F/ r0 ~/ F0 [/ Q+ o
f_____556F
9 c: l; }6 h' `( t( V6 ng_____2B7F! g" g* }9 ]. u$ \# B6 ^% W" [
h_____0F9C
1 N0 S+ H* T1 G& f; f9 Ui_____00FA
9 C$ ]. W, R9 ?j_____5A50
1 ?; P  X) I6 ~! hk_____2850
: _# h: F* K% z- k% Tl_____3E7B6 m7 ]! U5 n  t
m_____71C5
. J/ e7 S) T- H! en_____1FC8  l' g5 }4 f2 [0 E2 |5 L! R7 C; {
o_____74C1
" L8 `" A' j* u, R3 ]p_____5FB8- T$ Q! q- N1 D$ w7 J' j3 N) l
q_____6085; Y) {' D; U( \  P2 {5 R
r_____3AC47 T: n5 k/ ]% @9 |
s_____2F50/ e6 ~, A) F2 Q/ r" s( A/ {
t_____36F8
/ `# Z/ h6 D7 F( }u_____7010
+ @- _1 A$ T5 F( {' C+ D. B  o9 Sv_____0B429 Q( ]6 U+ P- Q/ _1 M6 I5 M9 C2 P
w_____1C7A
' a6 L0 _, a+ V$ D% Dx_____16F8" f& s( r( C" e; b9 u# r  B: R
y_____2EE7% R9 B6 q# G5 z& M# Y' M& m
z_____5CF3
8 a% z/ G8 @, b) |- P3 Z" U+ W!_____6233. i2 b" D2 a0 E3 N+ ^: i# ~
@_____3A45! ]( F+ @: M$ p  R7 k
#_____2291! P! e5 @! k2 a0 Z( w8 Q3 I8 d
$_____5D5C4 q5 e5 t+ F& M; n  A3 a) S
%_____09B9% l. w7 z2 P0 L* k2 O# o7 @
^_____43EA9 F9 Y4 U- B; ]) A- p
&_____62B98 c6 p! Q* r! d* ?7 }
*_____6301
- A/ R7 d: H! L(_____46596 P. y  Z- L  }7 z+ g" @+ S" |' S
)_____5C82

鱼儿无心

收藏了。。。。。。。。