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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm) t1 r1 [1 o9 |
原始出处：http://www.3ast.com.cm6 b, g  R& O3 H0 B
) N4 p! ~. T1 G6 w$ x8 U+ w6 I$ i
看不懂的直接绕过
: k3 F7 Z5 G' W- }& ?加密前为:hwy123456- q2 c) ~/ \& {: j$ s
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E" W) s) I, M: K: m7 n' H

* v: j! c2 Y0 o6 O4 {. U: w============================================
' e4 A0 x: }3 u; h7 g上面是当时自己校内的心情。现在已经解破出来了，分享给大家0 z0 O2 l7 b$ \* l7 P7 t; R( ^
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法: T+ [5 J/ @6 z. B
以下是RSA算法文件
& `% Q8 ]2 F3 ~% b/ b; H; o# ]: ^0 ?" F
文件名RSA.ASP! H* M" O6 ^6 w3 ~1 ]
===============================================/ V. i3 T7 G" A: g
<% , O( f  l! Y$ U) t
Class clsRSA ! _# `, {5 F8 h; p0 \$ `$ {: y. W
Public PrivateKey
7 f. d* C- Q5 t  v/ h7 o7 V( z% A5 nPublic PublicKey . F1 A$ E; C: ?( j
Public Modulus 9 ^4 q1 \- x1 D5 Y
Public Function Crypt(pLngMessage, pLngKey)
+ ]3 K* J% y7 ~, H2 Z7 YOn Error Resume Next 2 r+ ^4 G; T( m6 o
Dim lLngMod ! \/ Y: E+ p& E# Z* W/ a7 Q7 J
Dim lLngResult
) w4 S/ }2 E9 \8 I0 o* V( A: fDim lLngIndex
; T0 f7 \. L$ N( m7 g. cIf pLngKey Mod 2 = 0 Then
, z1 K+ H3 K4 v5 j+ I  LlLngResult = 1 + C2 o* b4 s/ G6 ~, {' @, Q
For lLngIndex = 1 To pLngKey / 2
& P: i/ i: G! ]. ]lLngMod = (pLngMessage ^ 2) Mod Modulus ) s2 @. m  t: [2 y+ p0 m  D
' Mod may error on key generation ( b) b! w! d+ D3 C
lLngResult = (lLngMod * lLngResult) Mod Modulus - n: m) U- u* Q, k- k
If Err Then Exit Function 3 h! s: n: D$ a$ J  I8 G) X
Next
, H( F, h% Q% r4 k+ s' i0 b& eElse 6 z! Y- h$ r- {- Y! V! m
lLngResult = pLngMessage   C8 J8 Z8 b5 v) T
For lLngIndex = 1 To pLngKey / 2
& |3 ]4 l  U% Y! m9 wlLngMod = (pLngMessage ^ 2) Mod Modulus
4 c  I  H9 N1 K3 iOn Error Resume Next $ o5 w9 J3 i7 X6 Z; {' n
' Mod may error on key generation 1 m. K% \% I) C9 Q: l. G+ @
lLngResult = (lLngMod * lLngResult) Mod Modulus ( `% q8 v8 f" g  i9 u4 y% a
If Err Then Exit Function
  m8 o( ?. n$ c) ENext
- g+ \4 w: O. e! m1 BEnd If # ?. y  l$ Y* Q: E. C5 K" `+ G6 r
Crypt = lLngResult
# q" `( h8 ?7 n% D' xEnd Function
2 D/ f! {: J, i+ A* I. H0 _- U) p& F& R0 \+ Z
Public Function Encode(ByVal pStrMessage) 5 `" ]6 S: y; u& f1 |' j$ ]
Dim lLngIndex
' w7 p; G0 a  c5 P: ]2 FDim lLngMaxIndex
) w7 d; s/ X! yDim lBytAscii - ~2 I& q" e; q2 s' N
Dim lLngEncrypted
& c8 h0 e! B0 M; I3 b" DlLngMaxIndex = Len(pStrMessage)
( \$ u8 s* |# g% q5 E4 cIf lLngMaxIndex = 0 Then Exit Function ( V, C3 i. I4 E$ N3 l4 ^
For lLngIndex = 1 To lLngMaxIndex
4 B6 ]  U7 b( U6 L% q; u  e+ LlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
* x2 x- W) Q9 m6 |- a  [lLngEncrypted = Crypt(lBytAscii, PublicKey) : O$ Z  o& X0 B, f0 h, I+ |3 x
Encode = Encode & NumberToHex(lLngEncrypted, 4)
( I3 e2 H* F  s2 M6 @! `5 KNext 0 B+ p  E1 O) V+ P1 A$ E# s
End Function # _3 d3 l- P5 X0 |2 z. q4 R; K2 t: Q
Public Function Decode(ByVal pStrMessage)
3 A" a+ p; I- L+ _Dim lBytAscii
  i* p% M4 ^4 P! lDim lLngIndex
. M# ?) d8 z! wDim lLngMaxIndex - T5 Z4 c$ ]9 K8 A1 q# i0 M
Dim lLngEncryptedData
/ y5 I0 A2 E( E- H$ p1 kDecode = ""
) W% F* u) k9 a1 s& D: X. ?lLngMaxIndex = Len(pStrMessage)
2 c5 t) t1 _( FFor lLngIndex = 1 To lLngMaxIndex Step 4 4 w' F( z8 p0 t
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) " [+ Z3 [% k; }* ^* @$ [
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
2 t1 @5 N% u/ O+ V5 I/ Z) kDecode = Decode & Chr(lBytAscii) ) U  D' K8 \4 P) a. r, L7 N! t
Next 2 i# o$ r/ I* t& H: s1 c
End Function 4 n; _) d9 q# g) R" u3 J5 e
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 0 x# H1 s, A, V" H
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) # E4 t; V5 L- Y+ f+ l
End Function
) _8 Y/ [1 n! j; A, ~, W/ QPrivate Function HexToNumber(ByRef pStrHex) / J; d0 P7 k/ j% z# K4 I+ b. U
HexToNumber = CLng("&h" & pStrHex) 3 K" e5 X8 l% Y! y; w' n1 N; h+ V! D. Y
End Function . t" W  t! g9 t$ X7 t  ~( p: T, E
End Class   {1 r( O  b( a- t
function Encryptstr(Message)
# z+ F  P. T3 E9 e; TDim LngKeyE + l0 a. `$ j1 @4 C* C% S) A
Dim LngKeyD
+ [' ~; }" F4 V2 M, V& FDim LngKeyN
7 V+ e/ `. i/ c$ r7 {  k# fDim StrMessage
: z7 v8 x$ V8 n- O4 J! j+ u4 X3 HDim ObjRSA ' Z% ]' r- n! e3 }/ t8 g
LngKeyE = "32823" ' S1 O3 W! t, M+ ^6 O' y. F7 p5 n4 ~
LngKeyD = "20643"
0 L, ~3 {& f# K. jLngKeyN = "29893"
! ~5 {' f( d2 M2 B/ F- GStrMessage = Message 1 O  I2 n' y( x1 O; u$ {& e: {
Set ObjRSA = New clsRSA ) b( a7 _% R9 b9 T# J4 ~
ObjRSA.PublicKey = LngKeyE ' `1 \7 d2 H+ }6 s7 W
ObjRSA.Modulus = LngKeyN 3 r% u0 G* U; _) a3 f4 P$ P
Encryptstr = ObjRSA.Encode(StrMessage)
6 q+ q. C/ B/ D( {+ rSet ObjRSA = Nothing
2 f- a  k0 E, L6 w8 Wend function4 }6 p7 \7 B* V  g) |, F
Function Decryptstr(Message) 0 a! b  ~' j  I4 ^$ @
Dim LngKeyE
( e0 B/ d5 |( \! ^( bDim LngKeyD & y( [# y  [' j6 f* R' ~
Dim LngKeyN
0 l0 D/ k' j% {5 d+ _" PDim StrMessage
$ w. ?2 W( z! t. jDim ObjRSA   D& s4 W$ F: p1 }' m  F  `
LngKeyE = "32823"
" H% \* J7 y, R# f5 `1 dLngKeyD = "20643" ' Q. H5 A9 A  `" a; e9 }
LngKeyN = "29893" ; M: i: G* u3 g8 n, B. p
StrMessage = Message ) e7 [$ H* Z9 i& _  X3 `. i
Set ObjRSA = New clsRSA 7 N# N+ U* Q' F
ObjRSA.PrivateKey =LngKeyD
/ W/ u- n3 V4 }) hObjRSA.Modulus=LngKeyN & A% }5 a8 y) v8 V& O, n
decryptstr=ObjRSA.Decode(StrMessage) 2 L+ i- o' D/ k$ J
Set ObjRSA = Nothing
+ l9 L% [2 H2 B* I. y2 Zend function 4 D0 y9 u$ N; W9 `! C
%>
) {4 o$ R$ x4 ]# m  Z* ?- F( n===============================================5 k5 v  b8 l. G; H* F  w* T- g6 a
0 A( s4 F5 S( z4 b: ?" Z: u  }* H
还有一个用于测试这段代码的test.asp
1 F8 |8 ]6 b3 l5 J7 ]  Z有兴趣的自己搭建个IIS测试下" M6 k( C1 R+ M
<!--#INCLUDE FILE="RSA.asp"-->
  D  m, @' q2 M9 S: Y<%
2 w3 F0 m, c0 @0 f2 F+ ^function Encryptstr(Message)
) p: W3 B/ B( b7 T9 K" YDim LngKeyE
6 _% R" z- g+ b+ a) \Dim LngKeyD
2 K+ T8 c2 l7 vDim LngKeyN
8 I) l7 x5 n3 u7 B  x$ L1 p) qDim StrMessage
! u$ q$ S6 \5 L- ]* R3 W* jDim ObjRSA
6 ?1 T- k/ E: M  p+ V2 ^4 q: ]LngKeyE = "32823"
" z# |% O0 ]' Y" ^0 @8 ?7 m  dLngKeyD = "20643" 4 S. I5 ^: N) v. J% `" o
LngKeyN = "29893" 7 B+ I* y5 @$ q0 @& U' A+ Z
StrMessage = Message
. s7 [  Q4 g( n( I6 ~  ]/ `Set ObjRSA = New clsRSA + |0 v- t0 R- s6 m
ObjRSA.PublicKey = LngKeyE
2 A3 {/ p. v: q/ `. sObjRSA.Modulus = LngKeyN 2 o: g& ]. J* x! y" ?
Encryptstr = ObjRSA.Encode(StrMessage)
& w3 w) ~0 x5 g8 {Set ObjRSA = Nothing
, a# y( b4 I2 fend function
" m+ I  \+ G) O# t* W0 l" Yfunction decryptstr(Message)
6 N% G: M$ ?) N2 A1 TDim LngKeyE # t& q( b! B; A
Dim LngKeyD 2 S8 K% X; K) {1 P! z' T- L
Dim LngKeyN 3 I. B/ Y- P; N% e  y5 t4 V1 s
Dim StrMessage , z% u  T2 R3 ]: i3 J1 l5 L. m
Dim ObjRSA + S# T4 O2 n+ [9 r( @. x
LngKeyE = "32823" ! o. l7 ^, S3 @3 X( x- g4 u: o2 R! Z% T
LngKeyD = "20643" 8 s1 M/ L6 v2 |& p, Q. y0 G  s
LngKeyN = "29893" % e7 S0 [: \4 I7 {
StrMessage = Message
/ |: B2 O! V8 N# OSet ObjRSA = New clsRSA ! f8 z+ E9 s9 k+ k5 ]
ObjRSA.PrivateKey =LngKeyD
8 T4 _, _4 w5 I- W/ J: PObjRSA.Modulus=LngKeyN
4 I0 `+ N# f. o' A$ ^decryptstr=ObjRSA.Decode(StrMessage) . E1 o  l- Z: h: N
Set ObjRSA = Nothing $ [9 J" l7 M6 Q/ x0 L. ?: c
end function   G: J( f) `$ H- z, }, `. f/ u
dim last,first
* r* d1 A5 Q- Jfirst="!@#$%^&*()" 2 ]) i0 t# u& ^( E  N
Response.Write "加密前为:"&first
0 F- o# ?! O$ `$ n- T7 Xlast=Encryptstr(first)
" h3 |) l5 a  I) O3 qResponse.Write "加密后为"&last ! f9 P: P! P1 ^
Response.Write "解密后为" &decryptstr(last) 8 T; e: c8 {! x: ^; e  V) Y
%> ==============================================
$ }9 C. @" Z0 {& T8 Y( l剩下的就是字符的对照表了. v7 ?: Y/ u8 {9 V* A( I6 x( l
===================字符集================* E- m5 i/ h8 Q1 o) ^* h( @
1_____6EBB
3 Z0 Q2 D$ Y8 n9 G# Q7 ?+ n4 h6 [2_____5C1F
$ j$ N5 h( I$ E  }" X7 e3_____4D75
3 |# Z/ ]  n# K6 k4 A4_____26CC6 K7 C, b) a8 _/ w. f6 a1 s: Z
5_____4F88
& \# V; c8 ^9 ?; X4 \$ E( ]4 c6_____3F4E
- W: I$ d9 u1 P( B0 K, l7_____0A9D) O( C* o' t7 C5 {2 L* ^5 y* R6 a1 t
8_____1A1C: P9 I. D6 T6 y
9_____6D201 t9 G8 G4 Z1 H! _6 Y
0_____1089; Q; ^% g& e, s1 Y5 |
a_____0F3E! ^7 ^7 i% U9 k, L8 C/ P
b_____31594 s1 B& a' ^4 S( `- p! x8 Q7 E
c_____3517
% p% U: Y( {; ?$ j9 K4 \d_____419C
  R2 d7 M! v- s0 P6 g2 O( he_____615C! Q7 E! w0 V8 ?
f_____556F; T1 L9 a' J1 \! P# K  n
g_____2B7F
8 @* T' W- a8 K& s& d, bh_____0F9C
& J6 R! o- J3 }) t5 q$ ?$ N" E$ ii_____00FA
* k# j. s9 \2 Y; aj_____5A508 f/ R3 @% i, _. w
k_____2850
6 G! Z8 O3 f3 w* S7 y( O: Jl_____3E7B
& W' V; p& E0 d7 h. x1 r0 k. u/ lm_____71C5
! P0 K  L1 z9 j6 vn_____1FC8
. X. r8 F, {. p4 [* {( O1 Q( H" |4 ro_____74C1
9 q$ ?, G+ @0 l1 B% [) ^2 C3 hp_____5FB8
' y! O: h1 r9 I) V2 h( Kq_____6085
  d6 B6 s% `8 Q% [4 lr_____3AC4$ ~4 F( q) j& F. B7 ~4 x
s_____2F50- H  N7 W) u6 z3 t$ N
t_____36F8) s7 t# b3 B6 _" H# U1 F& V
u_____70106 P" P: U( g0 r' [  @
v_____0B42* Q. C0 {- ~0 b
w_____1C7A
+ I" Q, b  I9 K0 i2 u: l3 t4 gx_____16F8
) f( ?- D1 ~$ Uy_____2EE7
$ _5 \1 ^$ u( Y. W; Xz_____5CF36 q, t4 D5 B2 @9 m& y
!_____6233, x% C, J. h6 U
@_____3A45* z3 W: L. B+ W
#_____2291
, @0 b2 N& A; g1 h0 l, b$_____5D5C
4 `% W: F5 h) H* @& k$ a) @%_____09B9
( w& P/ z- U1 A' s9 J^_____43EA
/ O7 ]8 t$ P3 O; m; P8 ^&_____62B9' j2 Y7 X$ s1 F" D
*_____6301: Q% u; D. j  a0 T3 C
(_____4659( L+ e; B6 L0 Y& o3 C4 j, V
)_____5C82

鱼儿无心

收藏了。。。。。。。。