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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
! e! K- a6 U% _% B原始出处：http://www.3ast.com.cm9 K! _5 T. }/ \% J

; ]! Q" o/ A  T" v4 y+ J看不懂的直接绕过
2 Z, F( O' F. V; x加密前为:hwy123456
8 u- Y& g$ G* C& B) I加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E; ~) o4 z9 D  `2 @* q
5 M# e5 j! E0 t; l* x
============================================
! U/ a3 V- x; y! P7 F) Z上面是当时自己校内的心情。现在已经解破出来了，分享给大家
+ }4 i2 A7 {' B* g0 r  x' Y也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法1 m  Y. c8 k# {. f; n! p
以下是RSA算法文件
6 C( q) X* W: m+ `# j$ z2 _  U9 B7 J. ]+ g: C
文件名RSA.ASP
7 e+ S' i  [/ f===============================================
/ F; f" q- ]  e& E<%
+ ~9 y! i  y4 }+ P# m, q; EClass clsRSA 5 k4 D/ A* A7 f: g& k& _- `7 S# X
Public PrivateKey # V! a) K% R0 `) g: a0 i
Public PublicKey   }- Z4 Z! j+ p: a/ \/ T' e4 p  ]# ^
Public Modulus
2 d/ j: y! J8 M/ EPublic Function Crypt(pLngMessage, pLngKey)
0 p& l5 [" p: \6 n" h; ~/ gOn Error Resume Next ! v" Y, M* W# R$ v' A. h
Dim lLngMod
5 L* q- M) M* H5 JDim lLngResult ! Q. K" w4 k1 x* E
Dim lLngIndex 4 e+ }* Z4 \$ u- ?6 x2 O8 u
If pLngKey Mod 2 = 0 Then 6 y- M# O* E7 j' f. X9 [
lLngResult = 1
. S' A1 \# ~( @- |6 bFor lLngIndex = 1 To pLngKey / 2 " p8 z, T! J% \5 F1 }8 A# L
lLngMod = (pLngMessage ^ 2) Mod Modulus   D4 x2 R2 [4 O) o
' Mod may error on key generation # B0 Y. `' i8 W  K0 K
lLngResult = (lLngMod * lLngResult) Mod Modulus
% |5 m' Y  Z4 a9 }& pIf Err Then Exit Function   t" ^- V1 e8 w0 [, E5 O
Next # Q8 h( p8 n" ~+ [, G" I7 |
Else
7 ?$ Q, n4 i0 P% B' H, }/ b3 M+ glLngResult = pLngMessage
! W6 v: h6 J/ `4 HFor lLngIndex = 1 To pLngKey / 2
% u: `1 V: ^1 i) x9 e) ulLngMod = (pLngMessage ^ 2) Mod Modulus
/ S4 N: {5 s  U1 O% t2 _* _! ~On Error Resume Next 3 }- u# W3 u6 N
' Mod may error on key generation
" H: L" f+ Y# t/ i3 IlLngResult = (lLngMod * lLngResult) Mod Modulus ! T9 E6 S4 u( e; C6 ~, e9 r! L  l
If Err Then Exit Function - Q! J1 V- u9 W) U
Next
9 Y- G2 t4 {. R# y2 cEnd If   H; h5 f1 l* k2 B# s2 |) L
Crypt = lLngResult
! J' o4 `* r$ w) ], vEnd Function- G$ e; z' j6 w0 X' f" |/ ^! P

& g3 ~- ^, L% ^# k5 z+ VPublic Function Encode(ByVal pStrMessage) . v& Q8 L( n, \
Dim lLngIndex 2 ^# t! P; M" E; K
Dim lLngMaxIndex
. S# `# U6 L1 B  F5 `/ S  V/ uDim lBytAscii
' E% r9 S  `" f+ E# P* k# U" }Dim lLngEncrypted
% N0 P: a1 N. J7 w! q1 k, jlLngMaxIndex = Len(pStrMessage) ) F! _" s4 Q* O1 z9 E
If lLngMaxIndex = 0 Then Exit Function
) A1 B6 @$ r. N$ L, sFor lLngIndex = 1 To lLngMaxIndex $ a8 h" ^, G. A) N( P  H2 e* V+ \- R
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) - F& ]& K8 F0 r: K; p( e6 a0 j
lLngEncrypted = Crypt(lBytAscii, PublicKey) - y( f  A9 J  W  T+ H
Encode = Encode & NumberToHex(lLngEncrypted, 4) * H. T! x4 `3 T) V% k' {) z; b1 G6 ^
Next % N9 T2 `! v" D, b& T
End Function 9 u! x& B" _8 d0 v( X5 Q
Public Function Decode(ByVal pStrMessage) # Z4 ~' P4 r8 Z4 i7 [+ x1 J
Dim lBytAscii ; S3 }' V- [" M4 p" |4 h: N
Dim lLngIndex
# I$ h5 P5 q$ C, E4 T. g& F$ `Dim lLngMaxIndex 9 G" `& d2 D0 t5 H+ K
Dim lLngEncryptedData ; h) W6 o0 K; J4 ~' g
Decode = ""
3 b0 J7 |; P4 ^3 d- ^lLngMaxIndex = Len(pStrMessage) - N1 ~$ K8 k+ m
For lLngIndex = 1 To lLngMaxIndex Step 4
8 n& {. U0 Y  h1 RlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 1 p6 x5 |9 s; _+ V+ o( {
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ' _) s. P0 z  z+ @2 J
Decode = Decode & Chr(lBytAscii)
% k  |  m" W/ ^$ |9 R- h3 {Next
  y2 B# P% N5 a/ L0 OEnd Function 1 _* {0 t0 i4 t' }, B9 E/ I3 j0 L
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
2 a! {# N0 l% [NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
  h2 A5 K" g2 Z  wEnd Function 7 ]* r- W/ L$ w' {
Private Function HexToNumber(ByRef pStrHex)
- T- h$ s4 Z5 ]5 L  N/ ^HexToNumber = CLng("&h" & pStrHex)
- e" |) T+ G6 Z; C/ ~End Function
- q- `$ z: M8 _5 d- X$ X" a3 }End Class " W) S8 ~- R# D2 }$ [: d; W
function Encryptstr(Message) # A1 [/ m4 X$ c& i
Dim LngKeyE / e# E3 ?" w* y# ~
Dim LngKeyD
1 x$ `1 u7 ^7 l$ v! `Dim LngKeyN . [! v+ f6 V1 c* ~! g0 a  U" i
Dim StrMessage
& J3 r& h2 U' f7 W+ ?+ JDim ObjRSA
( p- [  F: A6 Q1 lLngKeyE = "32823" 6 [  w: M8 V$ A( N1 o
LngKeyD = "20643" + E6 y+ \, ]* T' F3 X
LngKeyN = "29893" 2 N& N: j) w" m5 \/ n
StrMessage = Message % `) E" b/ b0 r  W1 I- S% p5 C
Set ObjRSA = New clsRSA - U7 g9 b5 Z6 w5 r
ObjRSA.PublicKey = LngKeyE / x5 o4 N0 z8 x' V* U
ObjRSA.Modulus = LngKeyN
! |: L6 w  I6 h2 ]9 |; tEncryptstr = ObjRSA.Encode(StrMessage)
5 r& Z. y+ c7 n: r! ?( v  [Set ObjRSA = Nothing
" [% }- a3 K+ g' }& |5 E! oend function
+ W6 }3 `5 O/ i& z; [Function Decryptstr(Message) 0 N; I3 i, c( h2 C7 ^- p% v* e
Dim LngKeyE
/ X* [& X, y2 W5 wDim LngKeyD
2 f% K; q  C8 w( n8 |Dim LngKeyN 1 d: a1 G* l( x" H
Dim StrMessage
! l# _9 Y: |* m. @Dim ObjRSA ' E: T& ^2 N' O* z! R1 b8 ?8 X
LngKeyE = "32823"
. n, B3 I) Q" Q" D1 ~* |LngKeyD = "20643" # N6 P# q) ?4 w0 B$ r
LngKeyN = "29893"
! z" z' W! G* a6 l( z* O1 j  oStrMessage = Message
: M1 \# ^: q$ a, x( d4 FSet ObjRSA = New clsRSA
8 u; K, p2 _, _3 k, `! \ObjRSA.PrivateKey =LngKeyD
+ l% M( P% G: @, F3 C. B; J$ ~ObjRSA.Modulus=LngKeyN
8 r8 M7 |7 }6 ?9 `6 y( w: _decryptstr=ObjRSA.Decode(StrMessage) 7 r9 M! m( B% o& \! e! v6 ?
Set ObjRSA = Nothing ! \% n7 A& ^5 k7 [2 l" ^
end function
1 F( {5 _9 i/ d2 [) d0 o%>! l# G7 m4 M2 V
===============================================
6 K7 V* F( E; X4 |- I. E( u" I- J$ F* a2 k# `0 g# D
还有一个用于测试这段代码的test.asp
4 p" C- E  N. e1 G( P- n% d( B有兴趣的自己搭建个IIS测试下
- D! r! ?1 K7 Q9 ^; v# P! r<!--#INCLUDE FILE="RSA.asp"-->
% h3 i" ~- |. Z: ^1 Y, z<%- ~5 n7 d1 T/ d& ?) d
function Encryptstr(Message)
9 z* i) b2 @$ IDim LngKeyE 2 A. t0 ?0 m$ o. Q: Z
Dim LngKeyD 6 s/ M7 m7 d$ N3 s
Dim LngKeyN , A; T0 a/ w' M
Dim StrMessage   T; f* L) S/ N+ y: D9 A4 {
Dim ObjRSA
3 ]# b+ d0 A! m# G9 Y4 qLngKeyE = "32823"
* j  Q, X/ Z% u" F3 A3 CLngKeyD = "20643" 6 ~$ C( j: T- K0 ]& Y  b
LngKeyN = "29893" ( h, d. W9 q- X6 e5 P% F
StrMessage = Message / C3 k+ K& T. L; b3 c
Set ObjRSA = New clsRSA 3 @% s9 y( R4 r) U6 X: M6 `
ObjRSA.PublicKey = LngKeyE
1 _8 r+ ~# t- ~, M- zObjRSA.Modulus = LngKeyN 2 {5 ~6 G8 o5 ?, P; J+ w0 i
Encryptstr = ObjRSA.Encode(StrMessage)
% U" q$ u: k7 _) q* P8 U  K. F8 X* GSet ObjRSA = Nothing 0 F2 A" F" I$ ]: ~. X7 r3 y
end function
) J: }2 O: t; I" w  e1 k2 k' @8 Kfunction decryptstr(Message) 6 R, X7 w& n" ]. o
Dim LngKeyE ( M3 ]6 y" h8 @# w
Dim LngKeyD
8 ?* Y0 m% h! V9 w) v9 k0 @Dim LngKeyN + V2 e7 l/ P: S
Dim StrMessage
1 e; I& c- y) x0 w, T  l& T: nDim ObjRSA   P/ g/ K+ f2 l* T
LngKeyE = "32823"
" H6 P& @- K, e( v5 GLngKeyD = "20643"
! `  W& W& j$ d+ N' WLngKeyN = "29893" . J- X; Y3 T# X4 r  t: `& u
StrMessage = Message , [" {/ T% |9 C$ |0 {
Set ObjRSA = New clsRSA
5 s; r% s. q' WObjRSA.PrivateKey =LngKeyD / g$ F, P: ]' ^1 g  i
ObjRSA.Modulus=LngKeyN ) Y( V0 {# _+ F
decryptstr=ObjRSA.Decode(StrMessage)
1 t! x& M7 Q" {5 X9 zSet ObjRSA = Nothing
: g: Q0 t6 |: U, ^end function
  s- \& Q1 c9 k4 Hdim last,first
& c8 f! j, L8 y% G( f( a/ ?first="!@#$%^&*()" 3 U5 B* b9 g6 x, E
Response.Write "加密前为:"&first 3 K0 [# m& x# A
last=Encryptstr(first) . R- E1 k5 n$ M  ^% J% a/ F
Response.Write "加密后为"&last
/ D! N  l+ ?9 i2 t5 [, k; P+ _Response.Write "解密后为" &decryptstr(last)
. T) E% Z7 [( |- L%> ==============================================5 {2 j: ]" c. E  M& Z% v0 f& F- i
剩下的就是字符的对照表了$ U/ ~4 g6 ?% B
===================字符集================  ^* `2 t: e. U! `
1_____6EBB( C3 J. U+ P- `# p
2_____5C1F& l  {0 |8 P5 d+ u1 e
3_____4D757 q, P9 X8 v2 ^$ d# A" N% a- ?
4_____26CC: S; Y8 W* x. E) C" F- P" t
5_____4F88
$ ]: ]# D) o. G' Y& [( e6_____3F4E
5 r# T$ h. i3 v; l- Q' M7_____0A9D
/ f5 K, Z! }, }* ^7 F5 V& o1 m8_____1A1C& `$ K( o7 c: ~3 z9 D) f- T! x
9_____6D201 v% {$ O- U' r- e5 G4 X
0_____1089, ]  g/ k' A2 w" n
a_____0F3E3 D, ~& ~4 P& I" W+ y5 V
b_____3159' C! k, \" V3 `0 |# N' b
c_____3517; V* q7 x. ?9 e# p7 A
d_____419C& D* w7 _. `: F. y3 I
e_____615C2 r' z& {- }, X: o
f_____556F0 q$ o! O% ~) _; p' ?9 ^5 _' F
g_____2B7F
2 n8 Q" _  m5 f; ?1 @h_____0F9C6 }) t' W( R! |1 w$ N1 L4 }
i_____00FA
& Y7 J% n% j& I8 n9 E' Hj_____5A50
* {( @' ]# i2 J- J( \k_____2850
- ^3 I, M; c0 T. C3 I6 Y* {. P5 Pl_____3E7B
' e& l& k( e5 s8 L4 Wm_____71C5- C( V+ O2 Y& K8 J& t+ m
n_____1FC8% z6 }) s6 n# `2 I3 l5 f" u
o_____74C1, }6 d9 q& {# g; z# r7 I+ F
p_____5FB8
% T' I% ?4 q+ ?: u6 pq_____6085$ X& `  N1 d( d2 S" P4 R
r_____3AC4& Z2 D+ j  T9 q
s_____2F50( z& w- x4 k7 a- J) d
t_____36F8, M9 O9 z6 F7 p& ]' v# g
u_____7010# {* T7 P  y; `! w& C6 W+ z
v_____0B42
+ x; Y9 [6 x8 v( @& pw_____1C7A5 f- n* P- A# l9 n, U# J. u
x_____16F8
; L  c9 H1 V* Dy_____2EE7" G1 P8 m/ |/ b9 F
z_____5CF3/ P9 G, V7 Q2 m7 ?0 e. o
!_____6233
! ^& E7 \4 w6 P@_____3A45# b( [3 n1 C( J' @9 m( E# M
#_____2291/ C7 R: C4 k% p7 c% R' T$ P
$_____5D5C
, b" B; V/ E* n, f%_____09B9
8 N6 d2 V7 q7 W' ^" j% n9 X^_____43EA
( N+ ^: W/ a4 }) \+ u& p&_____62B93 w" e# W1 W: H' _5 d
*_____6301/ b" _* C4 ]- U, M* Y
(_____4659
. H9 L3 H' f2 f& g# h; `8 |)_____5C82

鱼儿无心

收藏了。。。。。。。。