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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
; ^2 k) n) o4 Q- Q( f原始出处：http://www.3ast.com.cm/ R. A1 Q1 t$ t; |2 Z

; h4 s& \: `3 l2 d! e2 E看不懂的直接绕过
! N* b& w7 v2 }0 z1 _加密前为:hwy123456& J% l/ a6 w. D! j
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E% ^' Q: e/ w; f
; X( |$ C5 _9 q/ r
============================================
6 M3 H; h* s- V' h! U- @4 _: o上面是当时自己校内的心情。现在已经解破出来了，分享给大家; ?1 I$ D/ H7 S( d! O) ?
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
% v& `8 V) o3 S8 H% ^3 U$ J+ O, `以下是RSA算法文件
. F5 s8 P2 ]' ~" D+ D7 R4 {& w$ y* x0 b9 C' ]6 T1 {# J) ]- W$ z
文件名RSA.ASP" s. H! Y* o- u$ _" y( x( ?' ?
===============================================
  E- v& i8 N# W5 d<% 3 o3 J" Y" I* D7 ]2 G: |3 o2 Z
Class clsRSA
- R0 `% C* S0 dPublic PrivateKey
# R2 R+ T( ~3 R4 pPublic PublicKey
" D9 z$ o2 r8 @% r- a# FPublic Modulus ( j, p) [, d. M2 F
Public Function Crypt(pLngMessage, pLngKey)
& a& g$ p/ f5 h' ]* m8 ?4 |9 {On Error Resume Next ( L6 {# S9 T6 y% {/ x
Dim lLngMod . d+ t/ G/ T/ j! k. u1 u
Dim lLngResult
) F2 G& R  o& n9 \, H& X+ @Dim lLngIndex / h3 W9 k6 D( t# I! M5 r5 x
If pLngKey Mod 2 = 0 Then 6 ?2 I- c6 V; l0 W$ s& D
lLngResult = 1
  c; q! g6 G/ @2 yFor lLngIndex = 1 To pLngKey / 2
$ _( Z; |0 a' [4 YlLngMod = (pLngMessage ^ 2) Mod Modulus 3 y. [- l% ^% a
' Mod may error on key generation
6 z0 n' _) o8 J$ [) x$ TlLngResult = (lLngMod * lLngResult) Mod Modulus , O+ d+ S4 O' s
If Err Then Exit Function
8 S( Q: r- a" |2 O9 |% SNext
. [4 E: I4 P8 O& q! [; WElse
0 _# Q- v  |  [/ ilLngResult = pLngMessage
+ Y' B, z. U7 k! \3 iFor lLngIndex = 1 To pLngKey / 2   r) ^) t! g' r$ _) H5 x, T
lLngMod = (pLngMessage ^ 2) Mod Modulus 5 f0 t3 ]" `; n- F& i) c- v7 R: `( F
On Error Resume Next
- I/ }, O% s. F+ I+ y' Mod may error on key generation ( v' S5 ?) E( S* a
lLngResult = (lLngMod * lLngResult) Mod Modulus
* j4 e; Z9 n* G- H" Y# nIf Err Then Exit Function ; a) w. C& Z  }& ~" [
Next % D9 N6 q9 ~3 F. F4 v# C- ~. p
End If
/ a5 a- M; L5 W9 m, ^* t; yCrypt = lLngResult
! k. H$ N9 s: f- t' kEnd Function/ {. n1 n! j7 F7 S

8 X# I' `4 P, t9 Y/ yPublic Function Encode(ByVal pStrMessage)
/ K- \" J0 I! g. x8 Q( PDim lLngIndex
& Q. l4 q  ~+ a" ~2 G6 T6 w' PDim lLngMaxIndex
. Q  u* I  N7 j+ e  q: q5 b9 tDim lBytAscii
' q' r& a4 m& \+ l/ kDim lLngEncrypted
3 U: q) @* |; D& n/ i, {1 dlLngMaxIndex = Len(pStrMessage)
9 I" A' r$ T  O% TIf lLngMaxIndex = 0 Then Exit Function
8 T' R% O0 L8 \. G4 _. \For lLngIndex = 1 To lLngMaxIndex
3 }+ [0 f# N2 `1 i' s/ K% dlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) + M4 |1 g% @: w! e* t7 B$ o
lLngEncrypted = Crypt(lBytAscii, PublicKey)
0 P4 y9 s6 n9 h% Z! S4 BEncode = Encode & NumberToHex(lLngEncrypted, 4)
, \3 C* |# s* t  kNext
! h7 H6 t* A4 T/ }5 OEnd Function
2 V* [) S) e* b0 tPublic Function Decode(ByVal pStrMessage) 8 A: d. ?6 n5 s) c) M9 u+ l# a* Z$ c& ~
Dim lBytAscii 9 b0 q3 w( b5 C) y) a' n
Dim lLngIndex
+ Q0 @2 j" [  M9 K$ r* E0 H- [Dim lLngMaxIndex
( f; s2 M4 K. }$ iDim lLngEncryptedData ! p" G! u& e; m* C
Decode = "" 4 Z$ T0 C  J- r" N
lLngMaxIndex = Len(pStrMessage) $ @3 Q" E0 Y/ {
For lLngIndex = 1 To lLngMaxIndex Step 4
) m& ?0 E, ]: ulLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) " e/ u$ z& K7 Q. ?2 H
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 0 A- n3 j% X+ Q5 }
Decode = Decode & Chr(lBytAscii) # U8 c9 i9 Q8 V, l
Next
) h8 F; k! u6 PEnd Function # Q* x' }$ J4 ]
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
1 [1 f% H& K- r3 }NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
7 R! ^6 W! U# c* x, DEnd Function + V$ F* t* ~6 W; Q
Private Function HexToNumber(ByRef pStrHex)
- a* i& D1 X8 ?8 X- {HexToNumber = CLng("&h" & pStrHex)
" o7 E1 Y" \$ `/ |6 tEnd Function # p  r9 b4 a( x6 E) Q4 U* U* a, b
End Class
6 b' F9 E; U* _/ ?7 n. ]/ Qfunction Encryptstr(Message) % T: [1 g6 d4 H; X
Dim LngKeyE % e/ {7 X9 c) j: z) u( {7 w* g
Dim LngKeyD
5 \4 {1 V& i& u+ U0 m' Y7 z# zDim LngKeyN ( a. g9 T% d0 v0 |% Y
Dim StrMessage % C% |4 i4 V( _* x& x
Dim ObjRSA " ^4 @, l8 G/ h  G7 N2 m8 a) L
LngKeyE = "32823" $ |- b- W0 A* N! o$ [
LngKeyD = "20643" # i# [/ s- i8 ~% c$ a$ Q- E0 i! l
LngKeyN = "29893"
& A- _1 `- |* Y1 ^$ DStrMessage = Message
% p, y- F+ P. R8 ZSet ObjRSA = New clsRSA
/ C& |$ F+ W7 H( v9 k( tObjRSA.PublicKey = LngKeyE & _2 ^5 e- a2 o+ j3 B
ObjRSA.Modulus = LngKeyN
/ X* F( h+ j( b! k1 |* A! C5 ~. UEncryptstr = ObjRSA.Encode(StrMessage)
% `$ K7 C  Z$ ^9 Y; YSet ObjRSA = Nothing
: Q0 ?- \; t1 @, I: Uend function
6 }: g0 n2 `. u: {( i2 j% KFunction Decryptstr(Message)
" W% Q9 b2 ]" W* b' I7 G, i* \Dim LngKeyE
3 r' D& ~9 f' _Dim LngKeyD 0 w: {, b5 [: X/ O. |$ x. ]
Dim LngKeyN
" d0 E: {: z8 f  \3 c( z: sDim StrMessage
) c- f1 Z  X$ ?; L3 qDim ObjRSA
. D: z6 R" ?5 w) m  WLngKeyE = "32823" 7 I. h0 `) o. ]9 {
LngKeyD = "20643" + X# l* j% I+ @6 ~2 p
LngKeyN = "29893"
+ T/ B; [( N/ ZStrMessage = Message
7 x* c% v" T! H9 h3 h# gSet ObjRSA = New clsRSA . W2 [' a4 f& s7 k) t4 ~4 x8 K
ObjRSA.PrivateKey =LngKeyD
; A1 g6 @+ X/ |; y# c) ~! oObjRSA.Modulus=LngKeyN
$ y8 q3 k3 f. s' @" |8 b) e+ i; z, Jdecryptstr=ObjRSA.Decode(StrMessage) ' {1 u! B  |- o6 ?8 K
Set ObjRSA = Nothing
$ t* c: g' X" U# W: |+ lend function 1 `7 [( d" z" E/ n, N% q
%>6 g: B" q2 n; r9 Z0 I& A
===============================================
# L/ P) B" c8 q. h! V  G' I
  u+ L1 W! P& @0 K- a7 Z; A还有一个用于测试这段代码的test.asp* ~3 N* n4 D  M. r/ s4 n
有兴趣的自己搭建个IIS测试下. g6 P7 @2 x2 f8 I2 h4 \
<!--#INCLUDE FILE="RSA.asp"-->
: {; }: |% j) j% e<%! a( i0 T! i+ z. S
function Encryptstr(Message) ' Q* N) @# I  F1 i3 v3 h
Dim LngKeyE
0 |! {6 Y# S# @4 z& W) @& NDim LngKeyD 4 w, ?2 R1 o) L1 e; b
Dim LngKeyN
/ P8 G" m1 ]0 F7 S7 L  oDim StrMessage & D5 g+ t* u# g  g/ m# q
Dim ObjRSA - P, M$ T5 r9 C) ^3 z4 j; M$ i9 F
LngKeyE = "32823" " r$ A2 {# i) w/ ~
LngKeyD = "20643" ) N/ V( S' M& `$ }
LngKeyN = "29893"
1 N4 N- L2 @1 _StrMessage = Message 1 b6 j- P* q. v1 I2 ?
Set ObjRSA = New clsRSA / H. Z7 F( V( G+ H
ObjRSA.PublicKey = LngKeyE
2 P6 B9 v' ?) T2 r+ d; kObjRSA.Modulus = LngKeyN : H$ v4 r7 W" R( n5 f7 `2 \
Encryptstr = ObjRSA.Encode(StrMessage) . Y% b0 d0 \" \) P
Set ObjRSA = Nothing
, }' O9 ^1 v* b! T) X; Eend function / U9 B- ^  C4 v/ n
function decryptstr(Message) 5 e  {: |& X( F& v' _
Dim LngKeyE 1 N" U+ C. @  W1 x, V4 ]
Dim LngKeyD 2 T* l2 y$ O& [, V0 E1 g) G5 o) X- S
Dim LngKeyN 8 i) H7 K& ?$ F
Dim StrMessage & k( u  P% L& [1 a2 H1 R- ?9 m+ r
Dim ObjRSA
5 P- Y5 f6 v+ M# C" t" NLngKeyE = "32823"
5 y" R& D9 x$ ^, X) A) [& }LngKeyD = "20643" & b8 P& J1 G; ]5 L; a. t% w
LngKeyN = "29893" 3 U* p5 j8 s( C2 e2 o4 x: P
StrMessage = Message
9 o0 F- c! u) Z1 e/ z4 iSet ObjRSA = New clsRSA
& N6 ]) P9 p9 f: N9 S& q8 @# WObjRSA.PrivateKey =LngKeyD $ w$ g0 ~; |- g* A9 A. i
ObjRSA.Modulus=LngKeyN 6 V; c7 K, \/ Y. ^3 q5 B
decryptstr=ObjRSA.Decode(StrMessage) 9 p$ ]& q( s4 {' ^% s
Set ObjRSA = Nothing
! P( ?* i/ }: pend function ) j$ e6 l& Q! f1 N9 b8 y: Y
dim last,first
! x) q, ^+ {7 O/ Qfirst="!@#$%^&*()"
6 X2 A$ K9 S5 F  w; [# h5 Y' AResponse.Write "加密前为:"&first
5 N9 ?8 O$ a4 E1 D5 J  ^last=Encryptstr(first) . _' Y  B7 j5 y
Response.Write "加密后为"&last
# R& s( n3 O8 {! dResponse.Write "解密后为" &decryptstr(last) 3 _! V! x9 B, o( P+ q7 @
%> ==============================================
: p# ?) H% d. w! u: F/ [剩下的就是字符的对照表了
2 p( K3 a& }3 E8 ?" B9 c===================字符集================
" Q8 |# R# L5 T: @1_____6EBB
; k9 q1 }" G3 _- Q& x- f6 K2_____5C1F6 B0 {7 n# d1 f5 ?7 v  R% |( |
3_____4D75" E* g9 m$ Q" M" b  o
4_____26CC
. g( y' }1 v2 G. \# g$ K& B5_____4F88
) u! a0 ]; e# j% o; b6_____3F4E
& @* C  e6 k: ]5 G# X& d( P7_____0A9D# v, K7 J$ w( A9 a# F, c" Z: `6 {
8_____1A1C
; c0 Z) z. }1 @% x7 F. n9_____6D20$ x8 G5 v( r& j0 Y3 U
0_____1089
$ v) u$ C3 @+ }  s; f- j5 `0 Na_____0F3E
2 Y6 w+ ~& _5 g% ]' jb_____3159
  @# j7 e4 B; T7 e5 u9 U( Z! Jc_____35170 _0 Q5 q, J( r7 Z1 J2 R( u. ?
d_____419C7 t' \# Y2 X! ]
e_____615C/ a8 [# A! q+ K0 B* p
f_____556F5 d0 k5 d1 ?1 j5 p/ p
g_____2B7F
: w# k8 H) b8 R8 D7 f& wh_____0F9C; n% X* n5 E- b; P; c# |8 ~! A
i_____00FA
' i4 N+ R7 h6 {! aj_____5A50  `; [; X: ]" ^" b4 G+ C
k_____2850
/ X0 Z9 \; r; @+ m+ Hl_____3E7B
1 Q! |9 c6 _; ^: c# l- U8 Um_____71C5
9 B7 G7 H* S- b0 H3 |n_____1FC8; e& n( J) H/ m$ i1 f
o_____74C1
) t) o8 C* }) T: Cp_____5FB8& o# K9 J/ X' `2 n) y6 ?
q_____6085
* q  R# V7 p) g: p4 Ar_____3AC4" Y1 _- k! o; a& N0 E
s_____2F500 @2 ?+ v: V5 {7 i! T
t_____36F8* q' n& ]+ f6 d' o! {7 I1 W5 g) {, u1 P1 ?
u_____7010
( F( d& m' W- U+ H1 [v_____0B42- }% O. G2 Y: |8 ?
w_____1C7A% Q3 O* H8 k; Z/ B0 O7 S
x_____16F8% d, D3 [" c0 Q2 @
y_____2EE7- v0 ]) Y% o" r" H2 K0 u! z( O
z_____5CF3
& i- ]5 Y9 z8 Y! {" |# J% J  y0 V!_____6233
& s  n4 D$ ^2 W@_____3A45, ~0 q1 ]; Y% n% T! B% p  P
#_____2291; T$ J! @8 v- `6 ~- C" g
$_____5D5C
# F  N0 m: H+ ?7 y8 x, I5 F3 D%_____09B9
! W/ K' R$ U$ q) e4 c. L^_____43EA0 }: z* `) X$ `, t- k
&_____62B9
: D8 F) E" y2 K7 N0 _6 D5 [$ [5 U*_____6301
# @" H! T% w, w& {(_____46591 V! W3 M3 j) f8 ~8 [
)_____5C82

鱼儿无心

收藏了。。。。。。。。