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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
+ m2 A' V. s" D' ]2 k原始出处：http://www.3ast.com.cm0 |5 t9 s5 M5 {2 w& Z2 c( q

( @5 p7 ]- M, r看不懂的直接绕过7 V5 @& P9 Y# g$ V8 k$ u
加密前为:hwy123456! \: h; P; r. k
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
0 W5 f; s: [* ~' e. Z( `. V# Z; p0 T# ^4 R6 P! R+ g, z8 r
============================================
8 W& N5 ^" P% X1 J上面是当时自己校内的心情。现在已经解破出来了，分享给大家! t2 s% y& U" r+ K' ^: g
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
! g0 T$ W  f) H! `) N$ ]) G/ O以下是RSA算法文件! J2 ^( M+ K% c, h* X5 b9 A

1 y; a/ D3 [! |文件名RSA.ASP6 s! X. k3 U9 w& w5 O1 l
===============================================! x) {- n: a/ G! I3 b) o
<%
( z( d. r2 |. O9 c! m2 y! MClass clsRSA & u- ]3 w$ ^2 @" [7 q9 q$ Y. R
Public PrivateKey & q$ ~3 u: z  M$ H& G) h
Public PublicKey 3 B* _: g4 F# N( Q9 k. z
Public Modulus # `9 `! i- H1 C2 A2 M
Public Function Crypt(pLngMessage, pLngKey) $ }0 Y& }# a/ D5 ?
On Error Resume Next 1 z1 Q! R. n) j7 d8 h! I
Dim lLngMod / D$ a. }8 l5 R& O4 H1 F$ F" }
Dim lLngResult 4 p- a) t8 q3 A1 l: g" ]
Dim lLngIndex 6 I6 ]  X8 n; A" f; I2 c( x- a
If pLngKey Mod 2 = 0 Then 4 v) E- v1 s9 z6 H+ G
lLngResult = 1
' r+ D% }( F* ?  dFor lLngIndex = 1 To pLngKey / 2
. z# O& ?! c. O% b4 j1 P' hlLngMod = (pLngMessage ^ 2) Mod Modulus
  V" E. A& T/ Z( L' Mod may error on key generation 4 `; v+ F5 |$ J2 A
lLngResult = (lLngMod * lLngResult) Mod Modulus 6 N" b# r0 T. [
If Err Then Exit Function 3 ~- L' C. s9 o+ \
Next
! R* u& E, x/ P9 D$ ?Else
, a0 R8 s6 d5 M3 ~( w$ v& WlLngResult = pLngMessage 7 u! G# k8 f5 J7 b# w
For lLngIndex = 1 To pLngKey / 2 ) r( K8 U! g4 d" c7 {/ f4 |6 j
lLngMod = (pLngMessage ^ 2) Mod Modulus
3 n6 [  g4 G) O0 m" |6 P5 rOn Error Resume Next
- X3 t2 o7 L( ]8 E' Mod may error on key generation
& ?7 `( B7 H( j- G# q( a$ w6 d) z; b7 RlLngResult = (lLngMod * lLngResult) Mod Modulus 9 n# v* ?# e, D$ Z4 a
If Err Then Exit Function
7 Q: E7 g0 F7 g" D& e0 wNext
0 ~2 N( c# X" p/ q2 yEnd If 5 M, _; {& Q' }3 P' d6 D* X
Crypt = lLngResult
5 x2 i4 J0 R, w% |& G$ f* z# j& AEnd Function
& N% o) ^) n" \# j. w5 h- @: n4 q8 {# ]7 R8 I
Public Function Encode(ByVal pStrMessage)
+ X: k1 m" |; cDim lLngIndex ) O) M; u! Z9 P: e2 k# F5 P" H9 h3 E
Dim lLngMaxIndex ) r% n% d9 m$ j, G: l
Dim lBytAscii 3 c* q5 P1 ~* b( [6 a8 j8 `
Dim lLngEncrypted , [7 G. M( l  \3 b1 |7 D
lLngMaxIndex = Len(pStrMessage)
" `, w8 H/ c* o6 c* E# Y, rIf lLngMaxIndex = 0 Then Exit Function " {, Y* C3 N* ?: ?; n
For lLngIndex = 1 To lLngMaxIndex
+ s+ ]- ~" R3 Y$ z5 W1 i5 s( zlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))   E2 G' {, C4 B2 a1 L0 W
lLngEncrypted = Crypt(lBytAscii, PublicKey)
4 d. K7 \3 J3 x( F; E5 k% i2 WEncode = Encode & NumberToHex(lLngEncrypted, 4) . j- ]6 @/ `( k
Next
- ~, Y7 ^1 S) n0 @End Function ! k9 v9 z" d+ G& T
Public Function Decode(ByVal pStrMessage)
9 u4 g* Q" R+ Q8 VDim lBytAscii , {% z1 r4 c" Y( n9 \; `
Dim lLngIndex ) w; ~; u$ _& O7 \
Dim lLngMaxIndex
+ L  M6 }; i8 T( ADim lLngEncryptedData
  n- o+ f$ d5 K) C( u) N/ h- rDecode = ""
. [4 w: K9 O4 i; slLngMaxIndex = Len(pStrMessage) 5 |0 S" Z! I5 t  K2 C1 D1 O
For lLngIndex = 1 To lLngMaxIndex Step 4
3 j" q. q2 L; E+ J2 s8 L, B0 jlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) ( q- w: i9 q: g
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 7 ~" t4 _1 C2 a# s' |
Decode = Decode & Chr(lBytAscii)
8 B1 |" R6 u  Z+ o1 LNext
7 j( @9 d  n' p5 k2 f2 K5 JEnd Function
4 f' D0 O+ g7 t5 q, a1 vPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ) V# G% {9 T& x( ]
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
( r  S8 y/ K0 `' IEnd Function , w* |3 m2 R& m# A. k
Private Function HexToNumber(ByRef pStrHex) 5 u7 m! Q6 Q: X7 m5 p
HexToNumber = CLng("&h" & pStrHex) # Y6 l, \7 `+ k, p2 Q, O& _
End Function ' X! v  X# t- e$ u0 D8 f
End Class ( j$ `' I' b, T/ r, c. M
function Encryptstr(Message) ! r# i2 _& m. s& S
Dim LngKeyE
  X: F0 b* d/ Z! t' g  UDim LngKeyD
; D3 [. M- d+ g0 m+ PDim LngKeyN
4 n0 H5 m7 R- nDim StrMessage
9 W/ J* b+ l+ |# }8 [: `' zDim ObjRSA
. |, M6 b# D7 [( _' {1 f& c( iLngKeyE = "32823" 2 I) H  n6 Z) |% F$ X( K
LngKeyD = "20643"
1 m0 _* R% K( r7 f, kLngKeyN = "29893"
8 C* I0 q& N) S# ^1 ^4 c, {4 ^StrMessage = Message
3 g8 Z/ `) \# w5 a, O8 S$ v7 eSet ObjRSA = New clsRSA
+ Y. O' F0 l% i/ FObjRSA.PublicKey = LngKeyE
/ f' c. _7 k9 Q, j+ \" S7 t% h% BObjRSA.Modulus = LngKeyN : @( [( u+ L$ c8 f
Encryptstr = ObjRSA.Encode(StrMessage)
2 T9 v/ c& R; Z$ D: ]% ISet ObjRSA = Nothing / F. R! p' ^# M  E6 o! q
end function
, y7 e+ C( V1 v, n2 XFunction Decryptstr(Message) $ q8 a' ], w( J  T/ L" K
Dim LngKeyE ( |# `7 m9 @* O- C0 U, C  {# K( u. @
Dim LngKeyD
5 q2 O" |% S9 L0 BDim LngKeyN 8 w2 E( c/ f4 x3 G, t0 a
Dim StrMessage
2 g4 x3 T: p5 ~) IDim ObjRSA ) }! N4 ^; ?5 p% b  e0 x8 `& l
LngKeyE = "32823"
) S0 a+ B5 ?( ^4 S$ }8 _0 PLngKeyD = "20643" ' f4 |' r" S2 J- p+ j0 r
LngKeyN = "29893" 2 p2 h: p+ |; Q0 Z. v3 K
StrMessage = Message
* h, b0 F  X8 d& ySet ObjRSA = New clsRSA , ?9 \( p6 g# M
ObjRSA.PrivateKey =LngKeyD ; o$ q0 R. [9 {
ObjRSA.Modulus=LngKeyN
  [7 q0 [0 v) Kdecryptstr=ObjRSA.Decode(StrMessage) / H% G8 t& Q7 m
Set ObjRSA = Nothing ; w- K' ?( V  ~* \" |/ @
end function , R: `, R4 k8 t8 v8 L- u) K
%>
; H8 d: f2 G. N+ Y9 F* ^===============================================
+ I$ ]$ [8 g0 O/ S" f. C7 _* ]' ~, C  ~* s+ \, T; G& `
还有一个用于测试这段代码的test.asp
- V/ J" v+ t; r6 F  Y; Z6 E有兴趣的自己搭建个IIS测试下: E$ l' b8 j( ~7 B( n
<!--#INCLUDE FILE="RSA.asp"-->
& ?2 d0 y) u2 t2 Q9 ]/ r, G8 T. \<%
; E' X$ V- }! ~# K6 ofunction Encryptstr(Message) , p- D% Z& O, D8 T: k* O
Dim LngKeyE
; i1 y2 Q5 T# n+ Y: N2 D* n. @Dim LngKeyD
  f  A. w6 y4 N( a/ A4 x$ L: ~Dim LngKeyN + V; g3 C) a8 y; @) a, \' Y
Dim StrMessage 0 G& C" f9 |3 m7 W4 M. I% Z$ J5 ]5 N
Dim ObjRSA
0 X1 U- c" s+ A$ F: K# H+ f  hLngKeyE = "32823" 0 p* a  X! y2 U0 B& y3 z! f
LngKeyD = "20643" % p9 N: l. F# p9 M
LngKeyN = "29893" 8 }) ]. T8 j" ~: P; o" u, Y( g
StrMessage = Message
- g, F9 G. J4 i8 S* @9 H; I4 QSet ObjRSA = New clsRSA
: Y$ ^; N* M9 g9 yObjRSA.PublicKey = LngKeyE , k6 F( |) ^8 b/ h/ g
ObjRSA.Modulus = LngKeyN
7 @% I9 m4 W; z$ S7 a3 PEncryptstr = ObjRSA.Encode(StrMessage) : q! @! U, B9 O8 I7 a3 f2 I
Set ObjRSA = Nothing 0 ^6 P* y* _0 i5 K0 \: s: K
end function
2 q' I7 W7 ~% B& k1 qfunction decryptstr(Message) ' F% l) L: B5 j. \. S2 g( v9 O
Dim LngKeyE
1 f! W6 a5 x) nDim LngKeyD & C; D0 l; d3 |) k2 A6 \
Dim LngKeyN
  h0 R0 T" h2 o  F; f% aDim StrMessage : V* J9 [1 t8 v' K
Dim ObjRSA
7 c/ n0 U. ^3 o3 H- V! p& w% ^LngKeyE = "32823"
: \( g  a/ k' p  ~, q) t+ MLngKeyD = "20643" 3 E5 `% z8 X0 F& O, k
LngKeyN = "29893"
  ^5 k" L5 |" H) PStrMessage = Message % ~7 c. x  I) ]; N* {5 t
Set ObjRSA = New clsRSA , L8 c* t7 B$ H: k/ ]* z; |6 [
ObjRSA.PrivateKey =LngKeyD 6 t' ?5 V5 t2 M& S  |, P* r  M
ObjRSA.Modulus=LngKeyN
. ?4 G9 N* x' t( W# x0 o0 idecryptstr=ObjRSA.Decode(StrMessage) & |2 U8 B& y% \9 M: z4 B
Set ObjRSA = Nothing ( \) {& F/ L8 h0 }; \- q6 ~, k
end function 1 r8 F7 E% p: _! Z
dim last,first ( l! H' D+ X0 F7 X2 H
first="!@#$%^&*()" ; Z9 W, U3 ]) g% I/ [4 l
Response.Write "加密前为:"&first
# y& U  N# C7 |- G0 J" Z! J% Slast=Encryptstr(first) , u: u( N& O+ D1 S
Response.Write "加密后为"&last
) M! ?3 F, v8 a0 V& fResponse.Write "解密后为" &decryptstr(last) 5 E1 r* p* b+ G3 x
%> ==============================================" j6 }. A; o; T. X4 h: M/ A
剩下的就是字符的对照表了( _7 J+ n2 Z9 E2 ~% R: R, n7 v" z
===================字符集================
+ \: Z8 `3 X8 `4 x1_____6EBB
/ {! S! C% v/ }5 ^/ B2_____5C1F7 T0 g( h, B5 R) @0 h$ `
3_____4D75
7 f0 s, q  b; W  Y5 ?! T8 r% ^4_____26CC
& h( t7 e# T" z& _9 X5 F; V7 s5_____4F88# M0 h3 I3 e  p
6_____3F4E
) b% P9 O# \0 k9 g7_____0A9D2 J; C  N/ z. V- }9 M2 V, b9 u
8_____1A1C9 Z" `- o1 U0 b9 p
9_____6D207 X! z& K2 w7 S" K7 J5 t
0_____1089
# X) d) k( U1 E7 X/ P0 [* Pa_____0F3E: N+ z) A! A3 w/ `0 a, E
b_____3159; S% G1 |, Z3 O2 }, B* f) n" v
c_____3517
6 W2 f) L+ I; [0 s) nd_____419C
6 R+ e/ u8 X% A  ]e_____615C
$ N5 V7 y) U' Sf_____556F
; V# _/ W9 M2 n+ Wg_____2B7F) y7 y( ^2 Q8 R/ E6 ~
h_____0F9C
$ {9 ?% x( M% i+ F0 [i_____00FA8 e2 {- j" o) n4 Q. z+ Y, I4 D
j_____5A50
& ?: t; P* }/ \( a6 Y+ V. Vk_____2850$ ^+ `4 y) F' d6 j
l_____3E7B# E8 K0 ^3 F& X+ y
m_____71C5- p1 X  {: V0 Z2 W- U
n_____1FC8
& `! |* i* ~0 l! co_____74C1& d0 [# b5 C5 }, S4 K
p_____5FB8' G6 G7 B: c- k, ?3 h8 s
q_____60856 }  H3 ]7 `$ t. K& N: u$ C
r_____3AC4
: m0 N8 o" E3 L$ `+ _) u% ds_____2F504 e" R4 s- P3 K+ f7 H9 ?1 g
t_____36F8
2 Q5 r1 Z: n- su_____7010
6 ~  s5 Z5 U4 o- w& [v_____0B42
0 N( V1 A8 i- K" Bw_____1C7A
- }4 D$ G! U6 L# w, b: Fx_____16F8
3 ?0 x( L$ j. M1 [y_____2EE7
. q$ h4 M; l4 b2 N4 ^" X7 N& {z_____5CF35 Q' }2 `. d9 r+ t8 Y
!_____6233: I$ u- _! P; M- f
@_____3A45
6 t0 s' Q1 ^& N* O% B! f#_____2291
4 D6 u& k& c* m% `3 m, w2 _6 j$_____5D5C% E5 ], P  T3 L2 J6 w
%_____09B9
8 k* h  o. y) \1 p5 z& Y! E^_____43EA+ _! f+ @9 S" g# P9 z0 Y
&_____62B9
) I6 w) W. G) d*_____6301: G/ N  \9 B) P' B  ]2 z! r% Y) S4 c
(_____4659$ ^* i% f2 [+ P; I) u1 r
)_____5C82

鱼儿无心

收藏了。。。。。。。。