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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
# s1 M4 n3 J) T" y0 J0 z$ {原始出处：http://www.3ast.com.cm
8 r8 |+ z. Y+ f) c) a" `% @( s4 A
$ L) G0 |9 p2 V! w- ^1 T看不懂的直接绕过
2 V2 P2 ]9 d/ e) [" Z加密前为:hwy1234563 x/ g' r. F! E6 h; q& S# e9 [
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
1 h% N7 U8 I9 j9 e7 |) K( X8 B3 I3 W; b% \( B/ i: U
============================================  o. ]7 D% C( |0 g9 g% K
上面是当时自己校内的心情。现在已经解破出来了，分享给大家3 C! S7 S  c3 G* ?) n! M
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法! ^5 V: X9 A  B+ g; ?  [! \; G" [
以下是RSA算法文件6 {( Q2 m1 m  R1 G

1 @7 O# R! [5 H. d文件名RSA.ASP4 Q% p3 U* ^2 k6 @0 q
===============================================
: L" w- A4 l: @; h5 t<%   C/ s+ P7 I! m) `
Class clsRSA 3 G7 E/ w; s8 _% y: k0 @
Public PrivateKey
$ z2 Z2 w8 z5 a/ K4 {Public PublicKey
" \- v4 k: l) e+ GPublic Modulus
, T. u8 I/ v$ uPublic Function Crypt(pLngMessage, pLngKey)
! E) a  X# G) EOn Error Resume Next ) }2 t2 d7 w3 W3 H; _3 D3 i
Dim lLngMod # {, A5 r$ F) C1 N  a
Dim lLngResult
, n" |# B/ o- qDim lLngIndex 4 x8 Y1 c: W' g% `% c
If pLngKey Mod 2 = 0 Then * c' T) @9 k, k0 r# ]* v3 E$ t
lLngResult = 1
8 B  F4 R1 y) BFor lLngIndex = 1 To pLngKey / 2
! J8 M- A. _5 _* M# ClLngMod = (pLngMessage ^ 2) Mod Modulus
1 `$ |0 r  E9 _, x' Mod may error on key generation
; G7 S9 ~7 z! \9 `( plLngResult = (lLngMod * lLngResult) Mod Modulus
3 K% z8 V! z) S! ]1 AIf Err Then Exit Function 6 |7 I& Y4 q5 l( X* U
Next + C0 a3 \8 s) k9 l  z7 y" @8 J
Else
# |) V* T. U! x! OlLngResult = pLngMessage 7 R" x- }1 T% ~+ w9 B
For lLngIndex = 1 To pLngKey / 2
% {! r9 S+ w! J* H  xlLngMod = (pLngMessage ^ 2) Mod Modulus
+ |" x- T3 D' ^& n; lOn Error Resume Next 0 Q- z6 F2 s$ {5 ?5 U" S9 U# a, Y
' Mod may error on key generation
) Q/ e% i) @$ {% klLngResult = (lLngMod * lLngResult) Mod Modulus
1 @; ?& i6 ^+ S( G9 i5 HIf Err Then Exit Function
4 z) x% K+ S7 D0 aNext ! M3 i* ~- r2 `, _' W. B
End If . ?! e: b7 z( Y& r0 d. I5 Q" e/ G
Crypt = lLngResult
; _/ u4 K9 B6 s) b) XEnd Function
' |2 z; k! U6 m
! B7 {) K8 U5 w1 m/ M, j* q& aPublic Function Encode(ByVal pStrMessage) 5 q5 o! l, l) d& C2 [4 E" d  ?! n# H) C
Dim lLngIndex & {0 S" k1 d& T* c$ A3 E
Dim lLngMaxIndex + w" R3 Q7 m5 k3 z
Dim lBytAscii ! p7 D; M( O5 [  m. U$ T
Dim lLngEncrypted
5 g+ F# M; J( [* ElLngMaxIndex = Len(pStrMessage)
; e  G3 I; U8 F. gIf lLngMaxIndex = 0 Then Exit Function
* z4 S! O8 L5 ]For lLngIndex = 1 To lLngMaxIndex
/ e) [0 |# J2 f9 S# tlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
1 I( Z- r) w6 k0 ?0 f, \lLngEncrypted = Crypt(lBytAscii, PublicKey)
1 c/ @2 v+ M. c2 l- b* Q6 Y/ KEncode = Encode & NumberToHex(lLngEncrypted, 4)
: `/ V: J9 @9 Q# B8 [6 JNext 5 \8 T! o8 K9 ^! T: v9 x
End Function 0 `  \2 Z8 h% l5 H, t0 ^
Public Function Decode(ByVal pStrMessage) " f+ ~- W1 h- ^, s+ |4 `
Dim lBytAscii " z4 @6 X" h$ l! ^) w- Z0 [  h
Dim lLngIndex 6 }: h0 W; V! z; R
Dim lLngMaxIndex
: ]$ f' h7 }  T& aDim lLngEncryptedData 3 W3 D" ~5 T2 `1 W
Decode = "" ( |8 W; m: J2 g( Z# z1 b8 T& D
lLngMaxIndex = Len(pStrMessage) - b+ B1 s7 H9 R% k3 ]$ c5 I- j  q" o
For lLngIndex = 1 To lLngMaxIndex Step 4 3 {0 X8 G% h  C! R1 ?2 J
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) " y1 M3 [2 S1 o  R8 z% L9 w$ i+ ?
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
* v! e) B8 p4 N$ [# h. ~' Y2 b7 FDecode = Decode & Chr(lBytAscii) . A. u# c( A$ R( u
Next
$ \" X( M/ @. S) e0 m/ ZEnd Function 5 g) q0 r* n7 Q7 M  L' ^9 ?2 A
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
" t( K3 O: s% R0 {1 FNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
! F: G! u! k( O$ i& b+ N+ zEnd Function
% Q/ n; H- X8 p8 K) zPrivate Function HexToNumber(ByRef pStrHex) ) G4 G4 |8 o; t
HexToNumber = CLng("&h" & pStrHex)
: l$ E) b' \* b- q. @  T" xEnd Function . Y( }7 b/ v" n! m) G
End Class 1 G7 @+ u5 E+ i0 H$ u" x/ `
function Encryptstr(Message) 0 o. {8 F) ^1 ^3 x" p- b
Dim LngKeyE 5 `' P! p  L7 Z
Dim LngKeyD $ V# G. E# j$ S
Dim LngKeyN 4 s+ t2 U8 z8 G
Dim StrMessage 5 D4 f- G, \8 Y# x/ g
Dim ObjRSA
2 T' `) l; U% p3 B" G/ v# ?LngKeyE = "32823"   E9 f8 w' ~: L+ J7 U6 |4 G
LngKeyD = "20643"
8 X* h; g  H/ Z$ G# k9 f. {LngKeyN = "29893" $ n# O6 |, b' E  `9 }
StrMessage = Message
8 E% U& n. ]; X! PSet ObjRSA = New clsRSA
' @/ z& Y! n5 y& kObjRSA.PublicKey = LngKeyE
# x' Q' n3 v" O! |* O1 D9 KObjRSA.Modulus = LngKeyN ; A$ x+ W0 i5 U, ?2 a# B! [7 i8 R0 {
Encryptstr = ObjRSA.Encode(StrMessage)
( W* a8 c9 s, w2 r0 cSet ObjRSA = Nothing * S  D, W3 j0 r  ~
end function. Y. ^2 ^. f0 y: x( k
Function Decryptstr(Message) " W( g5 J: s- z# F
Dim LngKeyE
* @3 D$ v% U, `9 B) L  IDim LngKeyD
9 v7 P& J  g9 r, Z; `) p0 K0 C( V* r& PDim LngKeyN 2 c& B3 \7 l( W) O! y
Dim StrMessage 3 i; p$ A* c2 N- \6 i2 K) K
Dim ObjRSA ( V1 L0 N9 c" W. t9 Q# {
LngKeyE = "32823" / ~/ S- [/ g( j0 q) I
LngKeyD = "20643"
6 d0 U; Y9 @8 x) g! R' D- Y% tLngKeyN = "29893" + V7 d( p& h: P1 Q# O6 ^: S
StrMessage = Message   s, R- S1 |' n+ ?7 n' m6 {
Set ObjRSA = New clsRSA
3 L2 f7 G- f1 S, ]% h- h6 s, `ObjRSA.PrivateKey =LngKeyD
. x# p: c5 U+ q& U) YObjRSA.Modulus=LngKeyN 2 j' \. E" y, S+ J6 d' `& y
decryptstr=ObjRSA.Decode(StrMessage)
( N" E& P0 o, wSet ObjRSA = Nothing 2 @" L. b( U( F4 k2 O
end function
; j2 a  f7 V, M+ ?+ _% X; c# [%>' E; k, P( |2 c. n" I: U$ T) A7 p1 Z: L
===============================================
/ W+ Z% U' w" R0 v0 L6 V) B" z5 O, j; N" c
还有一个用于测试这段代码的test.asp
) w1 p# l& j: ]% |& E$ u4 v有兴趣的自己搭建个IIS测试下+ n8 r6 t8 q. m& g7 Y+ L
<!--#INCLUDE FILE="RSA.asp"-->
& e' I+ j6 Q+ K( i+ o9 f<%
: E( [3 X+ }: C9 vfunction Encryptstr(Message)
2 \- I: d9 J# P! RDim LngKeyE
1 b9 G& v2 c% @7 b6 V. |0 o8 tDim LngKeyD * `# S- |1 r7 z9 @- p! U
Dim LngKeyN
- f( P5 w* A$ RDim StrMessage * e7 V$ v$ q' |# C$ V
Dim ObjRSA + f. |  Z5 U! G' }7 G7 l7 h' B# P
LngKeyE = "32823"
/ ~/ L- p) @8 N$ G# K, p1 y9 xLngKeyD = "20643"
+ R% d7 C4 y3 `LngKeyN = "29893" $ Y8 C5 d3 G9 C3 K$ `
StrMessage = Message
- p0 ?7 e) l, B& n0 b7 `Set ObjRSA = New clsRSA
" \+ U- ~% I; T5 b* QObjRSA.PublicKey = LngKeyE
. Z# M$ i( x! k7 mObjRSA.Modulus = LngKeyN
  C, z  V# s" r+ \Encryptstr = ObjRSA.Encode(StrMessage)
& ^- c: q* |# w' F$ pSet ObjRSA = Nothing & |. N6 B4 R- r. w% `' }9 {2 M
end function 8 I5 j- `; K" E. w9 f9 R
function decryptstr(Message)   X! g" {5 q- u
Dim LngKeyE ( J. ~5 j) l" K0 I! }
Dim LngKeyD
+ D, i/ @& T# h# yDim LngKeyN 3 K" M6 _0 Y* q1 a. p
Dim StrMessage
/ B+ K- r+ P' d8 R. pDim ObjRSA / n+ }" P/ B) g* y6 f4 h+ g
LngKeyE = "32823" 3 o$ q) F  _' Z" F( ~; }4 w( t
LngKeyD = "20643"
( @# t5 d3 U8 h  v; ^# O( t) U; P% lLngKeyN = "29893"
; C/ ]& a1 K% {$ f8 D9 G# PStrMessage = Message
4 B* L6 B' i7 a$ HSet ObjRSA = New clsRSA ' a& _% N5 Y9 d( {
ObjRSA.PrivateKey =LngKeyD + s3 F* C2 T7 w: N) c# ?. e
ObjRSA.Modulus=LngKeyN 1 B  K* v( e- o: V6 T8 d- @* I5 {
decryptstr=ObjRSA.Decode(StrMessage)
( h! T# u- c( p( R) eSet ObjRSA = Nothing & j$ q" u8 r, C2 T
end function / x) v+ B! K: d! a0 M
dim last,first 1 h* V) T' s3 H+ L% ^
first="!@#$%^&*()"
8 }1 V$ |2 i' B! D$ z+ _* f, Y2 jResponse.Write "加密前为:"&first " O, A: q) h7 Q+ r4 L1 ?8 H0 L
last=Encryptstr(first)
$ h1 d2 M! ~8 \5 t0 ]" p: |) N4 BResponse.Write "加密后为"&last - Z$ @4 r: |5 w* ]& o3 q. w: s6 C
Response.Write "解密后为" &decryptstr(last) : l1 e+ C, k$ T8 ]9 }8 n
%> ==============================================! W9 N: h8 S, Z! b
剩下的就是字符的对照表了
* h: u; Y& f  K* N===================字符集================2 n! y! R  h5 R& f5 `" r) J
1_____6EBB
( Q4 @$ A9 V( T2_____5C1F
- Q' G, ^7 i8 b  \% U  H3_____4D75
" ^! A' v9 W" W0 p; b& h4_____26CC
0 w" V2 D* y  ^; N$ {5_____4F88
( S8 m9 }+ |$ ~4 T( ?7 v! X5 L6_____3F4E8 x" s) `. ?) O3 h$ p7 r6 K. J
7_____0A9D
7 e. w) ^- Z9 w/ c( E" Q) J8_____1A1C
' S0 s/ h: n/ C6 j% L  `/ ?2 k& s9_____6D20' q' C; h3 v; d- e- W
0_____1089! }3 T. ^  Y6 `+ l# m3 x
a_____0F3E2 [# |3 |# P' k/ q8 v. n: w: C
b_____3159) V2 R' |0 [0 h$ e" T, Y
c_____3517
: L* B* I; I2 f. o" k+ l1 n3 J7 Hd_____419C1 Y8 J. e- @' R
e_____615C
* I0 i% u/ d9 q& |3 sf_____556F* a( g' i$ O: q; |& K4 F* {7 c# n: q
g_____2B7F
7 X; b5 g# B; x* b- e: D) c. v/ d8 ~, qh_____0F9C+ |* A# T1 w& T8 x' ~% {6 w
i_____00FA8 F- X! ]% T/ Y1 ~& e
j_____5A50
7 l" B% O+ O6 F6 Z- L2 tk_____2850
# j- D$ u5 z5 q1 \! \5 N! Il_____3E7B
& Z, f0 c( G. W: P) Lm_____71C52 r# ]/ D1 r( D2 ]# F7 C3 W. V% \
n_____1FC8
! l' d% r5 K" a3 G0 h- `o_____74C16 E% ^) t0 _9 }) M
p_____5FB8
, v: T9 a. c5 I- u/ S. f7 U6 L0 Gq_____6085
7 q6 D0 U  H% d* K* V, f* Ir_____3AC4. R' ^) }$ W) ?9 m9 R
s_____2F50
0 h+ F5 `, U9 h. tt_____36F80 w. o/ O+ h! y* L' y" w
u_____70108 A- R3 ^# S1 j
v_____0B42
' q7 m2 P$ T; ]8 K4 ~6 Kw_____1C7A% ]$ K. L; I% X1 F7 D! y
x_____16F8
& I; {5 w. G6 J& Iy_____2EE7+ B9 f1 l+ W% ~  z+ A& V
z_____5CF3
6 e: u  w9 [7 r!_____6233
: C" U6 f$ ~8 C9 ?, ?@_____3A45
: a5 P5 V0 Y2 v# {#_____2291
% @9 d: s% Z6 D- V# {  T$_____5D5C8 x6 s3 Q: H! S7 \
%_____09B9
3 m  p8 e0 }- V/ `0 N9 C9 `^_____43EA
; k2 @) R* \: p&_____62B9
7 O! p" C5 H' N; a9 h8 E- n" [1 S*_____6301+ {9 `$ d: ~) J) Y& @  C7 a  o
(_____4659
6 u, D9 D5 g/ w/ `) e& R0 C* M)_____5C82

鱼儿无心

收藏了。。。。。。。。