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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
% }" K- b) a, g8 x原始出处：http://www.3ast.com.cm+ {6 t' @* z( Q/ U3 I
" u& g% X0 v, D: z/ w
看不懂的直接绕过
' D8 I$ c) u9 \- h. J4 q加密前为:hwy123456) R) K0 D* O+ U
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E6 t6 N9 D/ L6 w# X

8 n+ Y3 u5 `' a0 D( N+ X============================================& E1 K& n2 U6 G: f9 M+ C
上面是当时自己校内的心情。现在已经解破出来了，分享给大家7 r8 X5 @2 T% l# W+ h! f# y
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
3 e7 k: b7 u, o! |, m  p以下是RSA算法文件
, \& f' h4 P. d& m5 }& |( W
+ Y  }+ n+ C7 X& T6 |文件名RSA.ASP% m8 |1 X' R  L, g) [. j. \
===============================================3 G* x, h- C0 z* m) E
<% . a. ]4 `* T* s. h9 t; r, N
Class clsRSA
$ m* u( `/ Z5 H: aPublic PrivateKey # F5 R3 N; X& U% j9 G. j. ~% z% ^4 a2 ?$ q
Public PublicKey
5 }( u- k( u- h' g& tPublic Modulus $ l2 U4 C5 s2 p2 E5 I2 r
Public Function Crypt(pLngMessage, pLngKey) + G8 ~+ [# i; U; k0 Z
On Error Resume Next
; V4 b/ L/ m3 IDim lLngMod , v5 {( ~; |7 _  H4 y& T- R5 W4 m
Dim lLngResult 9 x' w' i& H. Y7 `; ]' m% O) ^
Dim lLngIndex 3 s- M3 z  Z8 J0 z9 v+ w7 d
If pLngKey Mod 2 = 0 Then
8 ]- Q3 \( i. `lLngResult = 1
! ^4 e7 _/ c3 r: T5 ^3 H7 X1 oFor lLngIndex = 1 To pLngKey / 2 7 [+ Z0 F# C$ s! T, I4 V
lLngMod = (pLngMessage ^ 2) Mod Modulus 8 \; ~2 L7 t4 g+ h; F; J
' Mod may error on key generation 6 W  g/ i) X4 H: O0 C
lLngResult = (lLngMod * lLngResult) Mod Modulus
7 L, c. }6 t' D2 B% mIf Err Then Exit Function & k) P0 ]# U* W
Next ' B9 o9 t% m: g$ \- r% Z& `
Else 9 [% ]/ B1 [7 C
lLngResult = pLngMessage
% Q! |' L/ i' `) b" ]+ t9 l7 l/ zFor lLngIndex = 1 To pLngKey / 2 / U( w) ^1 G" v- q5 v" |1 y1 X3 R: H" }
lLngMod = (pLngMessage ^ 2) Mod Modulus   `, E  s$ a0 r2 M$ E. m. ?+ K
On Error Resume Next $ F$ |$ g8 S' a
' Mod may error on key generation 3 E$ @, t7 _" h0 g8 H% _; t1 N" G8 a  @% T
lLngResult = (lLngMod * lLngResult) Mod Modulus 7 O) i5 r9 Z: j  P* o
If Err Then Exit Function 8 B; M- z+ u; w. P* h+ X9 q
Next
! N: k  Z# o2 i2 @" E& b9 w# NEnd If
, @, l0 i( Q0 b: \; RCrypt = lLngResult
+ P+ V2 Y3 k" [) Y6 Y9 _& Y0 ZEnd Function: c+ H/ h4 e( M: @6 C, [0 f
  l) y, G! T4 y) P+ \' h
Public Function Encode(ByVal pStrMessage) + t2 L: p" a. u' I4 w1 T& h
Dim lLngIndex & y( {4 n3 n; R' S4 G
Dim lLngMaxIndex
3 \# v  o" y; BDim lBytAscii
+ T; s' H6 i" S: l3 G- X6 c  s9 TDim lLngEncrypted
( \, |/ Z+ S, y) p3 {* B" S  z: flLngMaxIndex = Len(pStrMessage) & `% \3 B+ N2 j" X3 {* G
If lLngMaxIndex = 0 Then Exit Function
, ~( o5 `% w3 ?2 ]% c/ yFor lLngIndex = 1 To lLngMaxIndex , M. _1 R  x- l" D# c
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
6 Y% W2 z( k8 l/ f$ b6 J0 N3 a* ElLngEncrypted = Crypt(lBytAscii, PublicKey) * W, o6 V+ g6 _% ?
Encode = Encode & NumberToHex(lLngEncrypted, 4) ( h) h! v( n, H. _- \
Next ! X# [7 z. z) r3 Q* r, w
End Function 9 R. J4 i+ J/ A
Public Function Decode(ByVal pStrMessage) - U: q( G, X& b1 v
Dim lBytAscii 8 k3 }* |3 Y" F) b0 x0 P, ]+ t: D
Dim lLngIndex
2 s4 b+ t, s! H9 P, m& z* R/ ~. kDim lLngMaxIndex
: M" X8 O& \3 E! U& k( QDim lLngEncryptedData
6 `' U1 v) z: ?7 y7 R  K5 O7 hDecode = "" - Z/ g, y, C1 O- B# _% Y' D
lLngMaxIndex = Len(pStrMessage) ' F" S# p' r8 V/ j
For lLngIndex = 1 To lLngMaxIndex Step 4
& o' @2 W+ |9 j' f% f% BlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
9 X8 m; Y+ T4 o9 J0 Y& AlBytAscii = Crypt(lLngEncryptedData, PrivateKey)
' C: i. B. }! g; _3 X" iDecode = Decode & Chr(lBytAscii)
2 R: e, \6 c3 ^# p9 sNext 8 J, {2 O# A, A9 ]
End Function
: t: }- w/ p' ?! v* u5 S+ x" t8 [6 gPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
' M& [8 I- X; {( Y4 vNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
: C) {- f6 P3 X+ i) AEnd Function " V" E1 X( ], ^0 d4 F8 n1 s2 G
Private Function HexToNumber(ByRef pStrHex)
$ j7 T4 F: u/ s" }HexToNumber = CLng("&h" & pStrHex) ; O6 G1 X6 I' o2 m5 i% i. S
End Function
3 a! y0 i' p: Q/ c, w/ B  e1 \End Class
2 w  `: E* N  [# }' O' P+ A. }+ Yfunction Encryptstr(Message) 2 R) ~1 {- q0 u2 S
Dim LngKeyE
) R: [* R4 {6 d9 l/ T6 y; YDim LngKeyD ' Q/ q2 K- R, b; \- G, v- k3 j8 X, ^; J
Dim LngKeyN + T5 K( C8 h6 }
Dim StrMessage
9 |' l- v6 ~+ \: e1 c$ I0 NDim ObjRSA * d2 _1 q* [7 Z- G, S% x8 s
LngKeyE = "32823" % Y' s: b7 M! z; n  K5 \1 W
LngKeyD = "20643"
; x2 H0 c/ p4 p  N  Z: C5 ZLngKeyN = "29893"
0 ~1 s+ j; Q" _- e! t1 d& D# {StrMessage = Message 1 b! R1 Y9 a) R, _
Set ObjRSA = New clsRSA
4 R5 l3 F" u& o3 `' kObjRSA.PublicKey = LngKeyE
+ o8 R  B6 U/ EObjRSA.Modulus = LngKeyN
# S# D& }! g- v% m% kEncryptstr = ObjRSA.Encode(StrMessage)   S1 @$ s7 t+ |$ l6 _
Set ObjRSA = Nothing
+ [% W. n* Z, P& a6 ]end function9 P9 j: K( I! r5 G9 M
Function Decryptstr(Message) & B" c4 l9 I9 m4 _% r5 w
Dim LngKeyE , H9 d+ Q. u3 m2 V# _
Dim LngKeyD # ~$ s8 h4 Y6 ~. t/ Y
Dim LngKeyN
4 r  W" m2 x( v" bDim StrMessage * v$ k" U( w) d: e, @" b
Dim ObjRSA # K6 y# A4 k. ]. t
LngKeyE = "32823"
8 B" O9 }3 j' U6 c; P4 Z/ wLngKeyD = "20643" 3 z7 r& o& `  v3 J- z- S
LngKeyN = "29893"
' Q. t3 X) J! P8 sStrMessage = Message + I% D3 }$ Z' @' F2 ~0 k
Set ObjRSA = New clsRSA
' Y" h1 k2 @) T0 Z" R$ P$ [ObjRSA.PrivateKey =LngKeyD
) S' I8 p. R3 G0 q: E5 PObjRSA.Modulus=LngKeyN
8 C$ ^5 Y" ~3 i$ Y" J% i9 }# X2 fdecryptstr=ObjRSA.Decode(StrMessage)
. o0 S) @0 }+ \7 O% M- P0 F9 ZSet ObjRSA = Nothing % i/ ~* Y2 }; y1 [9 q2 [2 y5 }
end function
" D# C# g/ H+ G  v: l; P% @# x" k%>! Z2 T7 G7 y; \) e
===============================================
" ~6 e$ h( ~  Z! m( p; s1 J# v" T$ Y, l* j9 r
还有一个用于测试这段代码的test.asp
9 ?+ t$ ^5 u5 S有兴趣的自己搭建个IIS测试下* I! ~! K" h3 R) R3 C- N  }
<!--#INCLUDE FILE="RSA.asp"--> & a2 f2 R( e' J: m3 u# Z+ O
<%/ D3 b% e! Y: W* a5 H
function Encryptstr(Message) 9 ^, I) `6 h3 f9 i
Dim LngKeyE / L, z* K' ]! z
Dim LngKeyD . v2 t* l' j7 j' }
Dim LngKeyN
2 |& w- g+ O- s+ c6 a& ]Dim StrMessage
9 z* `. @/ _5 u  Q% PDim ObjRSA 7 [- W; J  N" C  T8 Y
LngKeyE = "32823" 6 d  W/ F5 E+ c* b' m' |
LngKeyD = "20643"
6 B6 D. s! P* I- g4 m# N) QLngKeyN = "29893"
2 R/ N; ]. ^7 r" K! E% BStrMessage = Message
, m: I' }6 T# ?3 a4 P5 ]Set ObjRSA = New clsRSA 9 z; b! Y% J' o3 r7 o( W
ObjRSA.PublicKey = LngKeyE
& e3 R7 m( r+ F' qObjRSA.Modulus = LngKeyN " I: l6 r9 T% R8 C1 L$ d
Encryptstr = ObjRSA.Encode(StrMessage) ( _' q: M1 r- r5 y1 d7 U0 a
Set ObjRSA = Nothing : e4 j1 U/ |: n' Q$ Q7 v! s
end function 5 K0 T. V% S+ E; F
function decryptstr(Message)
' J8 y5 _! g! g' b7 ?Dim LngKeyE
5 r, N. n1 K& z) wDim LngKeyD
! S0 S0 j  g" R" _( D# [Dim LngKeyN $ ^( r# E  k% Q& g3 D
Dim StrMessage
/ L: j8 ~! [# i8 P8 @! i; ZDim ObjRSA ! Y! H. D1 T4 ?  ~
LngKeyE = "32823"
! I, u7 R0 j, L4 ]- ^+ v+ XLngKeyD = "20643" : X; G' x3 B* o- W  n
LngKeyN = "29893" " S) L2 {' l, x7 b/ a6 W2 }
StrMessage = Message
' v! t6 o1 g& L% O% B* ?Set ObjRSA = New clsRSA
+ P1 \  p8 _8 IObjRSA.PrivateKey =LngKeyD 3 ]8 ^) H' N0 ]! _/ X3 l7 {
ObjRSA.Modulus=LngKeyN 4 b4 k: ?7 v, n) c! \# U+ S
decryptstr=ObjRSA.Decode(StrMessage) - Z7 m) F' \5 [  i; W
Set ObjRSA = Nothing
, I( q# h7 E- F! h% g  Kend function
0 h" t, }4 ?8 B5 M6 s( a2 ]0 m- m0 vdim last,first
. S; E, H! ~& v# V; Xfirst="!@#$%^&*()" ) y8 O( B5 ?: ]. X7 E7 ?- Y
Response.Write "加密前为:"&first
9 t' {7 t4 l; U3 z* ilast=Encryptstr(first)
7 W! k! O$ ]8 D0 l& P) d; P! [Response.Write "加密后为"&last 8 D2 l  ~, x  q1 T/ j3 s2 t% ]
Response.Write "解密后为" &decryptstr(last)
* f* o6 L0 |9 F%> ==============================================9 e7 t3 C$ a5 o) A
剩下的就是字符的对照表了
% z& A" B% z) T# ?) ~7 Y===================字符集================2 z+ t# n/ X5 a- ]6 q
1_____6EBB9 c  N9 h) e, o  s* ?" D( R
2_____5C1F/ ?# b9 p  T1 e& Y1 M
3_____4D753 U5 H9 P+ S3 C. W2 g# w- U  _
4_____26CC
1 P: j$ w! n, b, Q5_____4F88
9 m& m2 f( ]4 @2 N3 B8 {6_____3F4E
8 A2 ?* H/ J3 M5 m0 v7_____0A9D
/ y7 {: [6 Q% m, O2 c8_____1A1C" a: G9 w" ], j* u- @# [
9_____6D20# [( C, B1 T4 o
0_____1089! g0 t. ?; [: h. T! g' ?
a_____0F3E3 a9 Z# o" A& V, G8 W
b_____3159
' w, A; @5 L, w  vc_____3517/ p/ m6 u1 Q8 g: D% `2 A
d_____419C
0 q+ N& |: }9 Y0 u8 O* h) t7 S& l" Xe_____615C# @: Q6 B8 j0 T0 F' U- J
f_____556F! N! Q7 D& }* V* n1 t. G" r% j8 W9 T
g_____2B7F
3 j- c) P4 W- z% |7 z3 {h_____0F9C
/ W5 m' _2 B/ @) r8 Zi_____00FA
, E" ^8 n' J2 wj_____5A503 [4 `$ _6 u3 T5 Z5 S
k_____2850% G6 H, ]) C8 f: X; C4 j, b" Z
l_____3E7B
6 V5 ^: l4 I+ A6 g5 rm_____71C5( ]( `+ g8 O9 e  X6 ?- W+ V, M
n_____1FC8
2 A, s$ i$ k( X; |5 R7 To_____74C1
- B& \( e$ R' ?p_____5FB8
3 w0 u# k1 e. A8 c' M, d7 rq_____6085+ B3 [. }5 ?  U8 K$ @1 ~& _8 A* t. Q
r_____3AC48 H. ]5 T2 p' O1 O4 J2 v# D
s_____2F50
- \3 P+ Y- g6 I) [: B' {: o- ot_____36F8% \, e9 J! C# I2 U2 j2 Y
u_____7010" D: u! q+ F0 s. f8 f0 n$ F
v_____0B42$ q  G% B; U- {+ `/ [
w_____1C7A
4 d9 t* A9 H) v' ~( Ix_____16F8
9 ^) S. L+ d, E, p; ~* I& _y_____2EE77 ?% `1 w- M& X6 q8 {8 w
z_____5CF3' r& B% i4 _. r# J7 l
!_____6233
, q$ R( `0 s, h* O@_____3A45
3 ]2 Y4 J$ x1 k/ O0 y3 a- K1 F#_____2291
6 L& m& Y8 |7 J2 d$_____5D5C$ ?; }  n4 ^1 i, s9 e; }
%_____09B9' v1 D, t  S3 Q0 Z! [" _
^_____43EA
) |5 |& R! g4 \&_____62B9
. ?5 F- ]  h8 Q% r+ y*_____6301+ P& ^# {" e" y! E. S
(_____4659
* `+ o! u8 w" O6 O8 O) ^* i: I& w)_____5C82

鱼儿无心

收藏了。。。。。。。。