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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm  o3 `4 {4 \. \  z
原始出处：http://www.3ast.com.cm
5 n: T- t5 b3 f8 u8 V6 u1 P7 K) s0 q3 F1 C7 M, B
看不懂的直接绕过- r- X3 q+ V0 a5 S! s
加密前为:hwy123456
- [4 P& M1 K' T9 b' X加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E) L: h8 U) A1 d! e7 O2 _7 E
& |5 [' m/ v/ h! E+ j% {
============================================$ W. D# A2 h: K; i
上面是当时自己校内的心情。现在已经解破出来了，分享给大家" S) e/ R- `& k' p2 d
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
+ S& W: T& t9 \以下是RSA算法文件
# Y' G; q, j1 g$ n& M& r8 l2 W, t9 A. E  T& V
文件名RSA.ASP6 w2 C! [* x4 U; d* M; D
===============================================
# f3 T5 v: C1 W2 K* P<% ' O2 S; v: N* C* g' C( g
Class clsRSA , D  |7 |7 K) V$ r' ]3 d
Public PrivateKey
' S8 F# P- q. I# D+ `2 f7 @# lPublic PublicKey & I$ O/ v6 F  t; P& D6 ]* |
Public Modulus * _" M7 Y) e4 Z, [  S
Public Function Crypt(pLngMessage, pLngKey) - z$ a: B  q/ v; U  ?
On Error Resume Next . e. y- x. x  k. ^- c4 r5 X
Dim lLngMod 1 a" e0 D) k& y; I3 n, q5 b: p$ n2 B
Dim lLngResult - w- f8 M* f' _( \2 G- t( y
Dim lLngIndex
0 `$ o' P, p0 V4 zIf pLngKey Mod 2 = 0 Then 7 j* V' E; i, j+ F! p# `2 d1 y
lLngResult = 1 . E6 T* M" j4 q: J+ l* b' ~
For lLngIndex = 1 To pLngKey / 2 9 |2 }. j2 h7 L( [9 x
lLngMod = (pLngMessage ^ 2) Mod Modulus ; u" A/ z* }& M8 T: k- a) J! m
' Mod may error on key generation
. U( H1 x) u0 B. `4 T. ilLngResult = (lLngMod * lLngResult) Mod Modulus   i% }$ N  S/ ?9 u
If Err Then Exit Function
* X& g5 L5 o) Y; lNext 7 G4 x, ^; l; E3 z( }' b5 |" Y
Else 5 @0 Y& K% D0 h6 S) b" U# ^
lLngResult = pLngMessage , ^" J7 o8 [- ~* K6 t% t& R: y
For lLngIndex = 1 To pLngKey / 2 # ^* ]1 B5 ]/ D! `' o
lLngMod = (pLngMessage ^ 2) Mod Modulus
* |- O$ Y- Y* oOn Error Resume Next ) T8 u$ U  _" {6 h$ R
' Mod may error on key generation
3 E& p8 \$ ]/ y5 y0 `lLngResult = (lLngMod * lLngResult) Mod Modulus
8 Y/ J8 |7 w5 C2 X% _0 w% L* \If Err Then Exit Function 2 u& k! i5 ?& ?! t( C4 ?* e
Next 7 z7 q6 w5 O5 t5 L* z, C, Y7 q
End If
  B' D) ?* V& r  Y- }Crypt = lLngResult
9 `  e; \) O. {& w6 k: h7 v( EEnd Function* R) H* E" B) P, W# L( P( B

, m/ z; A2 a* Q4 g* V+ vPublic Function Encode(ByVal pStrMessage)
0 P7 n6 _2 S  c8 e9 W' b8 u7 G$ j: A4 mDim lLngIndex ( v) B( f7 `0 v
Dim lLngMaxIndex
+ m& w) Y2 z$ E& Y( L/ i" \Dim lBytAscii
7 L7 l- Y8 o& J5 h* wDim lLngEncrypted
: h. \8 p4 h- {6 B" ClLngMaxIndex = Len(pStrMessage)
" |& X" u& {+ a1 t! s: WIf lLngMaxIndex = 0 Then Exit Function : q, y6 c3 h3 z7 E
For lLngIndex = 1 To lLngMaxIndex
8 u, V$ a# _5 m/ S$ p5 a& @$ A/ _lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
. L  v8 l4 o( q/ tlLngEncrypted = Crypt(lBytAscii, PublicKey)
) N) B" q% Z# DEncode = Encode & NumberToHex(lLngEncrypted, 4) 9 h9 h; |6 n' b9 D6 U
Next
. i; M+ G; L' Y  qEnd Function 4 A9 r9 }. i5 t0 F; X' i4 e  a
Public Function Decode(ByVal pStrMessage) ( V; k! F% g7 B, J; z$ R
Dim lBytAscii ( n3 ^: X* E3 _" s( W4 L
Dim lLngIndex
# o, R6 x  p, v, E/ c' ODim lLngMaxIndex
+ {5 j: k2 G; g% r7 I8 YDim lLngEncryptedData 9 {* _  z5 B5 l' G" s
Decode = "" 3 {* ]1 V- p: `/ Z9 x, {
lLngMaxIndex = Len(pStrMessage)
9 G- ^% l, h/ ?6 rFor lLngIndex = 1 To lLngMaxIndex Step 4
# G6 p% `( m9 A) ?, }lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
# [% C0 A/ p, ]) rlBytAscii = Crypt(lLngEncryptedData, PrivateKey)
' r; _4 U& ]7 @5 d8 Y. N( BDecode = Decode & Chr(lBytAscii)
& y# x- f6 n( P" G9 c; }Next 8 u& n, C3 J. R6 h  D: M1 ~
End Function
5 q2 c6 f2 B2 M$ M/ @4 wPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
  D2 a7 e' _# g! f$ o* A0 S5 HNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ! f1 e: z0 W$ P0 i4 e
End Function
2 G. Z- n4 }7 a9 O( bPrivate Function HexToNumber(ByRef pStrHex)
9 ]4 K- W! h1 R: Y: L9 Z" K2 s2 hHexToNumber = CLng("&h" & pStrHex)
, ^0 i' D, `* Q" I6 v% D- vEnd Function
" G0 A% e4 I8 L. y! X- F2 lEnd Class ! [7 C) s$ Z( Y
function Encryptstr(Message)
7 j6 I9 B$ g* z- c3 L- |0 M- WDim LngKeyE , \4 c% _2 u# k* m$ v
Dim LngKeyD
  A, u: X5 F4 j8 u. KDim LngKeyN ( B$ B. C9 B7 P  r$ y
Dim StrMessage ; u2 H; R5 l3 U- _6 S  u- [  z: U
Dim ObjRSA 8 B3 r2 r, Z. A) v+ G
LngKeyE = "32823"
8 ~( D: I( b7 d4 K2 R2 aLngKeyD = "20643"
8 ^8 z# S7 L. B0 C, YLngKeyN = "29893" 9 s/ @$ ~% z+ l$ H4 z
StrMessage = Message
% l3 D; Q# Y" P5 i( l, SSet ObjRSA = New clsRSA ' y2 n# E" p. B6 w3 O9 ^; t6 O5 [; \
ObjRSA.PublicKey = LngKeyE 8 j: n  v3 S& l  T0 \
ObjRSA.Modulus = LngKeyN
' L0 g! ^. J7 B' _9 R4 fEncryptstr = ObjRSA.Encode(StrMessage) / \4 @# C) l' I8 ~
Set ObjRSA = Nothing
/ w1 |4 j9 Y9 ]0 p0 F  y( V9 Qend function: N+ m( d3 `' [7 }, L6 R6 j
Function Decryptstr(Message)
- Q* ~$ ^. N1 j$ J* x( z; [Dim LngKeyE " j0 i& I( |9 d# n+ |
Dim LngKeyD : J7 E& f' V6 H$ V9 |# `( ?7 P8 e
Dim LngKeyN
$ Y5 Q5 T: k7 z- zDim StrMessage
  H, f; Q0 R! H7 |3 }+ F) ^1 y0 LDim ObjRSA
, Y% a$ ^& a1 M7 t) oLngKeyE = "32823"
$ G5 P: S7 a" [  M- `+ bLngKeyD = "20643"
8 T2 S  z, w$ V) Q$ ]2 O+ c2 b6 |LngKeyN = "29893"
) j  F. z: r3 F% b( N/ m! e0 WStrMessage = Message
* p& d% @7 M. D" KSet ObjRSA = New clsRSA ! a9 c  a+ y; e* D' x
ObjRSA.PrivateKey =LngKeyD
/ f5 }+ j  Z, q/ d/ T  d3 y2 YObjRSA.Modulus=LngKeyN 9 K, r' l6 }+ i2 c1 M- p
decryptstr=ObjRSA.Decode(StrMessage) ' `4 A& U% c9 }( g$ }, D
Set ObjRSA = Nothing 2 a; j( l/ b) X/ L
end function
6 B2 B, m" e5 w4 V8 I- C%>3 G, Y: C9 [, ?6 d2 r1 h7 a
===============================================$ p# [$ t+ |1 R5 \( Y
, `8 V8 ?! S' ^; j. ]! |( T
还有一个用于测试这段代码的test.asp
+ c& N- n! r" A/ Z2 d有兴趣的自己搭建个IIS测试下
8 ?  d2 R: x2 w8 g" D<!--#INCLUDE FILE="RSA.asp"-->
3 L: V3 j# S. |7 o4 B8 Y<%& t7 S' I  Z2 }8 r
function Encryptstr(Message)
& a# c7 f; f4 ?0 b- XDim LngKeyE 3 e, x. q% v5 n( A8 ?# {) v) t
Dim LngKeyD 9 d; A, e; W: m8 X; w0 N( D) e
Dim LngKeyN
; E; w0 O/ o5 ]* a: o* nDim StrMessage 1 A$ W- }" _6 w, E$ p7 h1 A
Dim ObjRSA
4 Y1 I0 E( t  J! R9 NLngKeyE = "32823"
9 J0 _8 H$ g" k3 F% O8 [+ ]" aLngKeyD = "20643"
; Z4 c2 H3 L) E1 T/ y- S- ULngKeyN = "29893"
. W! N% K! A; W8 dStrMessage = Message # z) Y$ t" _- {/ v
Set ObjRSA = New clsRSA # i5 H' m" A: l0 S0 z
ObjRSA.PublicKey = LngKeyE $ i5 @7 d, }# N( O8 n# Z& H# ^
ObjRSA.Modulus = LngKeyN $ b& }4 d7 f/ e2 w
Encryptstr = ObjRSA.Encode(StrMessage)
: W9 P$ e3 B3 O# N2 iSet ObjRSA = Nothing % o# h3 K# H' x. l8 r4 }9 Z8 m" X
end function ; K& o( y) D2 x
function decryptstr(Message) . f3 E! z' ~3 K: c
Dim LngKeyE
, j6 ?5 {6 _! y/ r3 CDim LngKeyD + u/ n2 m# W& H: A: N
Dim LngKeyN
- e; S0 [5 w% t6 f; G% i5 ]Dim StrMessage
) j# F: m3 I# j6 }, y" @Dim ObjRSA
3 b  `, A" }; p9 Q- qLngKeyE = "32823"
! S) S  U' o  y1 M! B1 |# MLngKeyD = "20643"
7 x. l% w1 f; I4 o' Z% C' [. n6 L3 pLngKeyN = "29893" / e6 R6 N2 n( l! \4 I6 o6 e
StrMessage = Message
5 j% Z1 Q# J/ A( \, N/ lSet ObjRSA = New clsRSA
8 t, h6 G3 ~3 P( Z1 mObjRSA.PrivateKey =LngKeyD % G! V: p$ z$ e  {& O1 ^
ObjRSA.Modulus=LngKeyN
4 P( }6 l/ t( ^. G1 E/ gdecryptstr=ObjRSA.Decode(StrMessage) $ I$ y' d/ ^# @
Set ObjRSA = Nothing ; V% H- {5 B. ?
end function 5 |" ?# G' [5 x  M
dim last,first , g" W$ F+ j- F1 K$ R% b
first="!@#$%^&*()"
1 n$ B% n9 j* A' x7 t0 }  lResponse.Write "加密前为:"&first & e# g& T2 A$ h! [8 s) {" g- Z
last=Encryptstr(first) ( P# v+ P5 r: L9 k4 W4 H9 j" j
Response.Write "加密后为"&last
# X5 M  t: C& r4 b/ p6 MResponse.Write "解密后为" &decryptstr(last)
9 g( _  s; w! }, X%> ==============================================4 V# g2 b! C6 K  l
剩下的就是字符的对照表了
6 Y( d( W7 S" B8 X. D* G===================字符集================
5 v- m3 e+ }7 Z. w1_____6EBB3 [9 r' k/ `' n/ z/ G% `$ J
2_____5C1F
3 o% t- f4 V& X6 I% ~3 H% T3_____4D75
$ c! W3 F" G. T. N# ?4_____26CC
$ \* z$ D% D& |4 ^4 z/ T5 h7 F/ B5_____4F882 @- d6 j# w# R4 \' \! u; _' P
6_____3F4E
( I1 T. V( X) `6 O2 H+ U- C+ X( s7_____0A9D
. x. q3 i5 e. J6 x) Q! O8_____1A1C
+ [0 ~# w$ p& M0 D5 w9_____6D20  ?8 W/ I; j, B/ n" H7 i( b
0_____1089% ~. n7 f3 e' {/ c- O, l
a_____0F3E8 S  ]* Y* c0 _% N" v
b_____3159: ]6 ^' R, w* ~5 W$ p8 k" l* `
c_____35179 X/ i$ b: }/ O2 k, q
d_____419C: S; S. ~/ b) _6 x7 Q- v
e_____615C0 [. n4 r9 Z, K: H! a& L8 k- _8 h
f_____556F
( H: W) u& T  v8 q2 U& D- Sg_____2B7F( [: X/ P+ _( X% K) k6 m  {
h_____0F9C
4 R6 ^( y% E! Oi_____00FA
  |* Z+ D" h' q$ p- oj_____5A507 w; b( b4 g+ h- }. o
k_____2850' B8 h+ L. [$ K, @, ^1 W) b
l_____3E7B
$ R- i3 z" Z) d* c7 O1 ?m_____71C5
& g$ n, l/ L2 F. e( u$ ^" Jn_____1FC8
% N, [* k+ R7 g2 w3 @( \& N. zo_____74C1
  G8 a6 t1 X. M  G* Y1 l$ o8 np_____5FB8
, E( R6 e3 I" M- N. y3 f; A# d. Iq_____6085
4 _0 X8 V# b) A, l1 b5 D4 Wr_____3AC4
7 T. ^# J5 L# c* U6 T3 us_____2F50/ \# v0 W/ n4 N, Y3 [/ a( r
t_____36F81 j0 b" Z- K7 c3 Z5 z
u_____70106 I% N  q# L+ o$ _, ~0 p
v_____0B42
7 X& D" d% F4 l: n! Vw_____1C7A
0 q% ^. D* B) R7 K5 Z: dx_____16F80 }& i8 o: ]( k! n% `/ s0 Z; U
y_____2EE7
: \0 p4 K6 d: p5 J8 I( ?0 @0 Wz_____5CF34 e  G0 h* _$ `
!_____6233
0 p5 Y2 Y9 x4 x) M' |: U@_____3A45) ~, ]8 q$ E' [& |
#_____2291
* ]+ I, ^: b- z. h- w+ b* D  J7 |$_____5D5C
. S! E. `% W  W# x2 I0 J8 R%_____09B9- ?1 ^3 |6 d8 D8 a2 Q3 N4 D/ M
^_____43EA8 m& m4 C# e' L. u) k
&_____62B9
/ Z. Y4 I. t5 \  w*_____6301# l& a$ o; e9 z) q. \$ A
(_____4659: }1 Z1 B! G& v% S/ G
)_____5C82

鱼儿无心

收藏了。。。。。。。。