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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
/ W& S8 a% {) V" V# \原始出处：http://www.3ast.com.cm6 b0 a0 I9 i  }- f* q

2 l' u+ z0 t( R2 g1 J/ F7 |看不懂的直接绕过
* K" ?0 ^8 i' y3 M) \加密前为:hwy1234561 d4 y4 P; g- H% _
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
5 D! Y+ \; L% R: K
; G' J5 {8 {( g============================================9 H. U/ [* W) t  b4 W
上面是当时自己校内的心情。现在已经解破出来了，分享给大家1 P& S- p) |2 }- t8 x+ h
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法5 @! p8 T, W  s! X  W
以下是RSA算法文件3 \& Y3 X; S& ?1 _- e% q# }2 K
% S7 p& _/ N7 a/ @+ A* f
文件名RSA.ASP
3 S" Y* A; v# ?' k- \/ N===============================================+ i# q' J' G9 Q3 g
<%
: g& c/ r5 S% k2 HClass clsRSA + g; [* h0 k; a: q' K# A. E
Public PrivateKey 3 c# |3 _' T; g" X# d7 I
Public PublicKey
" i& i- U+ Q* Q; kPublic Modulus
) A' b9 V8 p4 }4 n' `7 VPublic Function Crypt(pLngMessage, pLngKey) ; k3 ~  k. d, d; V4 g
On Error Resume Next
0 l% }% q( @) c" x) E! u( [# I+ R! FDim lLngMod
. a* e8 s9 m  E! k5 ?" M* yDim lLngResult
: B- q. Q  I2 ]3 B# X6 XDim lLngIndex
% M" b& e7 L' k* }If pLngKey Mod 2 = 0 Then % E# Q0 X# W3 C% h
lLngResult = 1
6 p6 ~- @$ s. X5 cFor lLngIndex = 1 To pLngKey / 2 3 u+ h  p! W7 S7 p2 \9 X
lLngMod = (pLngMessage ^ 2) Mod Modulus
2 A; n1 {% E, l5 W2 w! _! I' Mod may error on key generation ! w/ N1 k; }* E3 o' V
lLngResult = (lLngMod * lLngResult) Mod Modulus
0 j5 O, I# [* R0 OIf Err Then Exit Function
7 v8 k& u6 [# U) G) L& U0 yNext ; c! D) v6 S8 @* z, ]
Else - K, g, ]1 n7 B; ]3 @1 E; b& l1 J
lLngResult = pLngMessage & O1 W8 D6 u, J' T% p$ p9 W
For lLngIndex = 1 To pLngKey / 2 : ^$ p4 b: D2 x9 x) `
lLngMod = (pLngMessage ^ 2) Mod Modulus
: S8 P' C5 }' _4 B0 OOn Error Resume Next . j: N; N' f3 L: h3 A+ f
' Mod may error on key generation ! z/ Z  N0 Y. e0 k  i1 G
lLngResult = (lLngMod * lLngResult) Mod Modulus
% }! i2 k* l7 c$ |5 e; {# qIf Err Then Exit Function : Y& `4 x( C; {7 b- l  q; n! }7 @
Next # F# f' ]- B/ c; G8 ^
End If : U% j6 j2 ~& I8 R, S' p5 F5 N
Crypt = lLngResult
9 {. {! c  s& _End Function
6 S  g: u8 l. w- N: P& E$ {
: H. r/ m: v5 p6 VPublic Function Encode(ByVal pStrMessage)
4 c$ J" l- D4 }" yDim lLngIndex ! G0 D& H( |* O2 {; L! |
Dim lLngMaxIndex / f+ s" C8 H- T9 k4 z2 L
Dim lBytAscii
7 W" O0 L! N; h# `! \2 dDim lLngEncrypted
' x% F) ~, `, i+ Y# [. {6 q+ a* O. mlLngMaxIndex = Len(pStrMessage)
" u& v0 K* h8 k* W. n( J0 iIf lLngMaxIndex = 0 Then Exit Function
: H, ]+ j+ b# P1 kFor lLngIndex = 1 To lLngMaxIndex
' d7 P( u. Z, blBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 0 H* Q4 [$ D" T7 l) F
lLngEncrypted = Crypt(lBytAscii, PublicKey)
9 r' |% d1 D% [& Z" ?Encode = Encode & NumberToHex(lLngEncrypted, 4) # m% v5 \7 I" ?' n  ~
Next / ^# m) O, i) k: Z  g
End Function
' U3 Q* H% Z; {& G, fPublic Function Decode(ByVal pStrMessage) 9 ^' r% k. A: {; H) x
Dim lBytAscii ' W9 i8 Y. s' B. J4 R( S
Dim lLngIndex , b6 Y. y4 t) C* I& A  o! C
Dim lLngMaxIndex
- W2 `; V: Y/ `1 `) F9 p- G7 EDim lLngEncryptedData
& |! ]5 n' a4 K; VDecode = "" / K5 k3 C7 O4 M6 D$ ]
lLngMaxIndex = Len(pStrMessage) # c0 q& w/ F& c. S' r+ l
For lLngIndex = 1 To lLngMaxIndex Step 4
3 x. H; ]; v# U* M7 |8 @lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) & r1 s# J; l& C& ~& j
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
' v- @% s: b8 v3 ^# YDecode = Decode & Chr(lBytAscii)
3 c, Y/ h: V: ?Next / _! g0 M# C1 u% r; X, O
End Function
& g5 K9 R' e/ y$ w$ i% a9 M: fPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
- k, D, U1 j$ X- j' m6 sNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ; C- }% V4 S& N; E6 U* ~
End Function
! F! {, ]0 k6 J  ^9 lPrivate Function HexToNumber(ByRef pStrHex) * u; g9 u' y0 i  T9 @% }" j
HexToNumber = CLng("&h" & pStrHex)
7 o3 \  _& s3 E4 z: o$ W+ y& NEnd Function # }0 f1 y# O2 |
End Class ( F8 y' J6 c) J
function Encryptstr(Message)
2 M, r, G8 E- cDim LngKeyE
% P# m: l6 _/ w2 U4 ADim LngKeyD
  O; ~& D* i6 y3 eDim LngKeyN % u& _1 o7 n$ A! d7 m
Dim StrMessage 6 p( i) x0 J8 R- ]4 L
Dim ObjRSA / n" z' O2 ?% {. k3 t
LngKeyE = "32823" 5 O/ b5 F, f4 w/ j5 N  J5 W
LngKeyD = "20643" 8 S. D- m4 t! {6 C; }4 J; S
LngKeyN = "29893" 7 u+ @" o9 v$ ?& [
StrMessage = Message 4 U% D& X+ D2 a
Set ObjRSA = New clsRSA % A5 m, a" f/ m7 [# M3 `7 N+ |
ObjRSA.PublicKey = LngKeyE
. `  U) i, g' n* ZObjRSA.Modulus = LngKeyN
3 D# U( J4 g- a9 d: X0 CEncryptstr = ObjRSA.Encode(StrMessage) 3 l7 t1 {: ^9 N) _# E7 z# a
Set ObjRSA = Nothing   u7 @6 S) v) n( Y2 M- l, w- G1 N5 |+ Y
end function
/ G8 ^+ A% @; [) bFunction Decryptstr(Message)
. d# G3 @% `, i" \4 @Dim LngKeyE ; a- w- n9 Q2 H/ ]- C0 ?' N  M) q
Dim LngKeyD + s2 G; Z, g/ Z! z7 F, @" ~) h
Dim LngKeyN 9 U/ ^5 ?2 p% K/ G& T3 ]
Dim StrMessage 9 P' d* ~5 @3 N: S: K8 F
Dim ObjRSA
( T" P* X3 l! _/ _3 vLngKeyE = "32823"
9 ?) \6 Y0 Z& u5 J9 W! k: T4 |LngKeyD = "20643" 7 Q9 M! ]0 ?' g" g$ d
LngKeyN = "29893"
3 [" j7 j5 r- U/ ?" m' s% DStrMessage = Message / W$ k! S. c9 u) r. o! N
Set ObjRSA = New clsRSA 7 N4 u6 w. K2 x" U2 X( G* a
ObjRSA.PrivateKey =LngKeyD 3 G( Q5 @  `5 C6 ]1 O9 I6 Y( t" R
ObjRSA.Modulus=LngKeyN
8 Z9 N4 E% q% I+ T7 |7 w! Idecryptstr=ObjRSA.Decode(StrMessage)
& d: j- X& w, X. O! `  N* `Set ObjRSA = Nothing 0 W3 R1 E/ Y0 D; n& h: h: q
end function 1 h8 U& x5 {8 q: y
%>
( {. ^& s* D) K3 H* ~===============================================# \+ j( |1 w' f$ y9 D5 O
8 Q6 ?& j- r" Y
还有一个用于测试这段代码的test.asp
4 |/ O7 W, T5 A" q$ }有兴趣的自己搭建个IIS测试下
0 r0 E( x3 T! a! k1 d<!--#INCLUDE FILE="RSA.asp"-->
7 R# N# p: a( s" u+ A<%- k* @+ E; l3 V) ?  E
function Encryptstr(Message)
6 E: [5 [9 x6 FDim LngKeyE ! E1 Z/ N# K; E' r7 W4 I
Dim LngKeyD * ?! A7 J3 }2 G9 S% t
Dim LngKeyN & b, A" S% z# v( n5 ]- X
Dim StrMessage
( i* Y" W$ L3 P  L# l$ F: WDim ObjRSA + X' y+ V/ y! Y9 e& V
LngKeyE = "32823"
; i9 |. Z& ]# c; d6 Z$ _LngKeyD = "20643"
5 W2 @9 r. d( w. X; w& Y5 \LngKeyN = "29893" + j4 n4 m. ^7 b; E! s& p
StrMessage = Message
; l7 J/ x( K$ v* q" Q* T$ rSet ObjRSA = New clsRSA ' o- L/ h: s. c  M
ObjRSA.PublicKey = LngKeyE
. H, l8 l. j& u' zObjRSA.Modulus = LngKeyN ' E, j3 A) A0 F, t- J4 D) Y& x& D
Encryptstr = ObjRSA.Encode(StrMessage) + o2 v2 ~8 o* b+ [: p4 H' ~2 {0 X
Set ObjRSA = Nothing 0 d& g1 U" I/ \# L# t
end function ; t- H( [. M/ b% l. r3 t5 h1 Z1 Y
function decryptstr(Message) ) I- Z3 Y; m5 D3 m9 m$ K* P7 f
Dim LngKeyE : _# @  f2 [! d2 V& j7 v
Dim LngKeyD
+ N* r3 U: {1 _3 yDim LngKeyN 6 n, ^% N) e: e6 K; w8 f
Dim StrMessage
. k5 x" o8 b$ p2 LDim ObjRSA
1 w0 x6 j  ^# W9 DLngKeyE = "32823" ; r) p4 }0 A& i3 _* W$ [
LngKeyD = "20643"
" M+ L3 U$ a) D1 x, v9 s- B  K5 x( ~! VLngKeyN = "29893"
2 t/ g+ r! S6 Q# E$ i) fStrMessage = Message
+ V; T( n+ @5 C+ x, oSet ObjRSA = New clsRSA " g6 B, x7 i6 {" A" }
ObjRSA.PrivateKey =LngKeyD
4 G3 \1 X9 t5 E; w, ~2 \7 `ObjRSA.Modulus=LngKeyN 9 Y# K; x. I/ Z# t0 l
decryptstr=ObjRSA.Decode(StrMessage)
2 u- C" b8 u/ p; j6 R- M% K9 SSet ObjRSA = Nothing 4 Z5 @1 f* H5 b& j+ j
end function ; G( d8 w7 M: w4 |8 ?2 ^5 r3 c+ f
dim last,first
. r9 x1 o; A! _4 R5 h6 w4 ufirst="!@#$%^&*()"
* y* {8 Q5 x: n: S& JResponse.Write "加密前为:"&first
9 P2 d- m; ~9 D: J- `' Q1 Y# w* {last=Encryptstr(first)
2 L% D# n- c- n+ fResponse.Write "加密后为"&last " p7 @. \8 e8 c% m8 d% m
Response.Write "解密后为" &decryptstr(last)
' p: O5 W! L3 w# u%> ==============================================, q9 n# U, U7 H
剩下的就是字符的对照表了' G+ R' a0 E* L& i
===================字符集================$ `. E0 O" x5 X" l" N  P5 B
1_____6EBB
5 I) L# b  F  w6 m2 ]5 H. D4 N2_____5C1F* f% P6 J( I* x+ \7 w. g7 J" g& h
3_____4D75
. z& k, U, s* |5 {2 J1 X' B4_____26CC! M6 D4 e& B& H* T
5_____4F88. [, j+ c* m# P8 ~# E/ W
6_____3F4E  q# A( o7 x7 D6 T) }) v& d! w1 _
7_____0A9D* f5 R& M1 m& A* t
8_____1A1C6 o+ c  T0 Z( r
9_____6D20
9 E- I2 P+ ]5 ~0_____1089; e7 v  b1 C/ \0 h. u3 _
a_____0F3E
# ]( `- S5 {6 [: mb_____31592 K, b& ?+ \, ^7 h; E
c_____3517
& B- V8 w# f1 Hd_____419C3 B. C0 f6 Z; x: ~5 }; d
e_____615C& ]( R- f2 @7 F+ Z: e) M7 G
f_____556F4 T, c- N2 H5 c  j
g_____2B7F0 j: P' E1 ~: J( S4 \
h_____0F9C3 e; Z  n+ G* d" F) Z! f7 J, o& i
i_____00FA( o3 h0 q  _# u- q- \2 i, j
j_____5A50
  a  T8 q+ k; K! x! ]* k$ Ek_____28505 t$ W  b# d" U+ o* z
l_____3E7B
- b# v: F, N: k  S4 h2 Hm_____71C5
4 B" d( y) ^3 }* P/ Z) @; e9 l# v( Pn_____1FC8
$ h& o0 q: G' r9 h; Go_____74C1
' d2 x/ @8 n% c  C% E. Hp_____5FB8
& M# K. A4 @) n, I9 J+ Rq_____6085/ ]9 t; w. m$ a0 [( d5 z
r_____3AC4* J9 q; K4 L. {, A  c, i
s_____2F50) M: y7 F6 i- U- @: b
t_____36F8* Y* H/ b$ J( e) C! e7 g3 C6 \. a1 Q
u_____7010, g( O  O" n# D% E" b; l3 S8 Z
v_____0B423 o/ v* _4 _% h! u) Z
w_____1C7A/ d  y0 ^" w: y9 I: m
x_____16F86 G/ k- Y1 V, s* x& y0 K- g
y_____2EE7
7 s* M3 r" N( y/ e8 y4 Z! P6 ~z_____5CF3
; ~0 u& W1 Z4 l: ~!_____6233! b: b' q* Q9 Y  d
@_____3A45
' W5 H4 O/ a: o2 K  `#_____2291+ V- ]0 t1 g& w; W
$_____5D5C! T0 i0 N/ C# S+ r/ ]9 ^
%_____09B93 T/ Z( O: u/ g" T$ v3 `+ u( U
^_____43EA# r5 o4 m. K7 M- f' p
&_____62B9
, q/ L: T0 H# F: o4 J8 _- J*_____6301  o: n7 e1 M+ Y) V7 X6 M9 C3 |6 S
(_____4659! O' M' N  t2 d" B5 `
)_____5C82

鱼儿无心

收藏了。。。。。。。。