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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
; v8 ^' Y6 A3 V; g原始出处：http://www.3ast.com.cm
- E; Y4 U+ ~% b; P2 Z* K6 `) N: N5 }& i+ A% v6 C2 N" w1 R
看不懂的直接绕过4 n& O" Q9 q# q* D/ c- ]
加密前为:hwy123456
  |) }; j' k: x% Q, X6 R: }. O7 N加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E, G9 |3 S+ Q/ U$ T. r

  w/ m: ?# A4 R( F. Y============================================9 J. H2 {- ~8 X5 p% Z8 i: b
上面是当时自己校内的心情。现在已经解破出来了，分享给大家' A, i; V* P# q& d8 y3 D
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法, P& S; S9 W% o: T8 x* a6 L
以下是RSA算法文件
2 G" f' R: C" j* p* b
- Q2 g9 s# j6 o+ @7 U. ^文件名RSA.ASP
5 X9 m5 \  N$ [===============================================  g2 E& C6 i& ?5 {: y, r
<% : C- l2 O( V& r$ r
Class clsRSA
8 O0 j- d1 `7 X5 RPublic PrivateKey + i4 r; c; W4 y# Z& E5 G
Public PublicKey
/ |& x' ?$ L) DPublic Modulus 8 }8 d/ m  j4 W9 O
Public Function Crypt(pLngMessage, pLngKey)
3 e; c3 H9 q3 H: e( qOn Error Resume Next
- \% R" @) v' H' W" LDim lLngMod # ?* ~+ C, h; }# S5 g+ R6 `
Dim lLngResult & h/ O/ |, P% s) `( a* y- @) Q
Dim lLngIndex 4 M* L* w* ]& M; _* \  s
If pLngKey Mod 2 = 0 Then
3 S; ~8 i* M2 l5 k0 QlLngResult = 1
. v  J; Z, R6 H. f8 H$ XFor lLngIndex = 1 To pLngKey / 2
0 G8 u& L' K/ S" h5 g. W& QlLngMod = (pLngMessage ^ 2) Mod Modulus
1 ~2 j  h2 y- z2 @2 q! U' Mod may error on key generation 4 q" P* V  ?. t! o
lLngResult = (lLngMod * lLngResult) Mod Modulus , V# ?9 b. ?. ?, `
If Err Then Exit Function 5 z: o! g% ]1 [) b% T4 L
Next - Q7 {0 N& C0 T3 R: N
Else
8 L- m' m0 Q4 e& v5 Q, i0 GlLngResult = pLngMessage " M* `+ h1 K0 G2 N
For lLngIndex = 1 To pLngKey / 2
. H( v# S0 U1 X7 o5 NlLngMod = (pLngMessage ^ 2) Mod Modulus & f1 a4 z3 q5 G  e( R/ a
On Error Resume Next
; v. j! g" n7 m. B; a' Mod may error on key generation
- c8 b) q3 C7 F1 MlLngResult = (lLngMod * lLngResult) Mod Modulus
1 [5 u$ g' {' l& J9 e' j% AIf Err Then Exit Function ) q0 ?+ K# X1 x* }: c$ S
Next : u9 E+ x' U0 \+ B6 w4 v4 K
End If
4 [: x" O% [* N, bCrypt = lLngResult
8 W5 p- O9 `9 I$ o) d3 }End Function
, f4 ]6 c- e- [5 L' \) Q% C) A3 @3 f2 h
Public Function Encode(ByVal pStrMessage)
; Q, i. ^( J* p8 i( C6 JDim lLngIndex + C( X1 W- a1 ^: F# |: a2 U" |
Dim lLngMaxIndex / o+ B# W8 B( g2 ~3 z8 N1 L
Dim lBytAscii ' \; p( F4 M/ s5 J. v
Dim lLngEncrypted 4 v$ o( v+ [; j% p' ?- y1 S
lLngMaxIndex = Len(pStrMessage) : M# p' a$ u2 }7 \
If lLngMaxIndex = 0 Then Exit Function
8 O4 ^" y8 v* l) _For lLngIndex = 1 To lLngMaxIndex ' z" O/ V. @3 _/ z. Y) Z* @2 F
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 2 v  p) R/ @+ ^$ `: [
lLngEncrypted = Crypt(lBytAscii, PublicKey) , s( R2 P% M0 C) Z( A
Encode = Encode & NumberToHex(lLngEncrypted, 4) ) p" V" c1 G+ d2 o. P; N; D" C
Next
1 |$ V. I( n4 b3 W9 `5 u& jEnd Function * W$ c2 T+ q3 X
Public Function Decode(ByVal pStrMessage)
3 i* I6 `" I$ XDim lBytAscii % Y6 n+ Y9 N' a" Z% G
Dim lLngIndex
- |# o. G, ]; I: t) ^6 ^: rDim lLngMaxIndex
3 a. z+ [/ c, u: t9 d0 i% nDim lLngEncryptedData
/ |( j- @+ t/ Q# h8 F% H6 [( VDecode = ""
3 i, `/ A7 j' _( M2 ^; P0 ^  ElLngMaxIndex = Len(pStrMessage)
4 I, o! S! y- ~/ xFor lLngIndex = 1 To lLngMaxIndex Step 4 $ ]/ U: m9 [6 p, l7 Q  m; p% W4 n
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) . R/ B% T! s/ j
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
- q' k+ n" l2 \- b) YDecode = Decode & Chr(lBytAscii)
' M& U5 k# d1 w% ~# b- DNext
% _. r. w+ H3 P: D8 B1 Y7 yEnd Function 2 {& l3 r5 Z0 x$ O9 e- g  m6 ~
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
( e7 h" w! m1 \% Z6 v* F7 DNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 9 U3 W) A* U0 E; r: l9 ?
End Function
+ }5 P7 a$ F; UPrivate Function HexToNumber(ByRef pStrHex)
7 i( W+ L/ D$ T6 a! hHexToNumber = CLng("&h" & pStrHex)
% O" n! K) q" p# ~+ `# u: c% d# x+ oEnd Function
& ^* }5 V( X) z. v* M% bEnd Class
2 x# f) D+ _3 C- m) P" x0 dfunction Encryptstr(Message) 5 e: M/ z$ D- Y( B8 i
Dim LngKeyE 9 T& I. G# {( j1 k7 E
Dim LngKeyD
. e6 h% J+ {' N' Y4 |7 hDim LngKeyN ( W* L5 c: W$ {5 k; n2 \
Dim StrMessage $ ?/ C9 j' B9 z( R  z$ F. l
Dim ObjRSA
1 X4 w7 f" |. D) F. V7 w8 RLngKeyE = "32823" : Z7 y8 s4 s4 J
LngKeyD = "20643"
  a" `7 I1 k4 c! c  Z# E+ HLngKeyN = "29893"
& s# Z8 d$ s4 h$ t) `5 R5 u$ b8 RStrMessage = Message 8 _( B$ z3 m- [4 k
Set ObjRSA = New clsRSA . b# K5 S4 Y0 r- `3 D' K
ObjRSA.PublicKey = LngKeyE " G( D- S4 w1 `) I4 u, a8 R: Z2 u
ObjRSA.Modulus = LngKeyN
/ y& L3 Y' F2 a4 X# g8 t9 O2 bEncryptstr = ObjRSA.Encode(StrMessage) . E. ]1 T+ N) f; p6 I) ~' W; O
Set ObjRSA = Nothing 3 {; U3 T" y; C5 L4 e! t/ c' c
end function
7 m# X  W/ D" `7 {Function Decryptstr(Message) $ w9 y5 n- [3 a
Dim LngKeyE
* G$ f0 f8 m6 }: V: p# o5 XDim LngKeyD
& G: y1 S# K1 B/ ?Dim LngKeyN - Z& y: J7 p  {4 B' o
Dim StrMessage
6 g1 B1 q9 w% a% G- `Dim ObjRSA 7 @+ X7 v8 G/ Q3 R$ N1 {& {; V
LngKeyE = "32823"
. {& c2 _2 |% f* J% f. qLngKeyD = "20643"
: m* a: D& u/ s2 Z7 TLngKeyN = "29893" 0 p: ]- A; |" P( [6 n- P. J
StrMessage = Message
1 y  U: Q2 a4 ISet ObjRSA = New clsRSA 7 k; X2 n% u" _3 R: C
ObjRSA.PrivateKey =LngKeyD
1 t5 w6 X/ k8 Z) |! `3 I' t9 d, w4 sObjRSA.Modulus=LngKeyN
% I1 }. t  V% W8 b5 b0 W# ^decryptstr=ObjRSA.Decode(StrMessage) % W$ o: Z& d4 F7 T
Set ObjRSA = Nothing
6 ?5 ~+ }. c2 w7 A; qend function ' Z( P2 R' @: o$ I, |
%>
+ A4 X( {/ I" d+ O7 d===============================================
+ H) x" g/ E3 }8 {; G0 A1 n. M' ?; e+ b+ k6 d6 X" k
还有一个用于测试这段代码的test.asp
: z# i8 U8 P+ ~5 j0 z/ z/ u4 }有兴趣的自己搭建个IIS测试下2 j# N' h5 W9 [: H& W9 A
<!--#INCLUDE FILE="RSA.asp"-->
1 |# }- `- n4 b1 d- o<%+ g" y" b) o7 N6 i( p0 Z
function Encryptstr(Message)
) N3 |& m7 {. p# x; y. A2 F5 \Dim LngKeyE + i% O& d% s9 {8 N0 W
Dim LngKeyD 5 S9 i: @1 `" [/ r0 v$ c# |
Dim LngKeyN 0 A  T- @0 X/ c/ w  c
Dim StrMessage
6 T$ Y! W4 b5 t! sDim ObjRSA 6 v* ~" X' l& F9 I) Y% ]4 Y7 c
LngKeyE = "32823" 9 ]/ i3 h+ |. r9 _5 ~
LngKeyD = "20643" 9 l. M% D0 Z/ L! c1 a3 n1 m
LngKeyN = "29893"
* E( t0 q& Y, N8 z. ]; h# r% YStrMessage = Message
2 P# t0 E! ~) P& U9 Z' _$ Y+ YSet ObjRSA = New clsRSA
3 |  Q: N; H" E3 v% d- nObjRSA.PublicKey = LngKeyE
  A, s9 ^( W9 g- d5 LObjRSA.Modulus = LngKeyN
+ E- J) \( o% [( T+ V8 zEncryptstr = ObjRSA.Encode(StrMessage) * x% O7 ^9 |' r7 g! A. x0 M% s8 R
Set ObjRSA = Nothing . [5 D. N/ t' z
end function
, G# `1 v& `, D% H% W! `function decryptstr(Message)
$ l# _* X6 h( j; }4 i; ODim LngKeyE
! \0 M( ~$ ^& JDim LngKeyD
  d/ U8 ]3 V: |) _6 u4 r% s" NDim LngKeyN . o8 W) R$ y( x5 I
Dim StrMessage
6 X1 @5 ?# \. y8 n& e2 J! \Dim ObjRSA
% h6 ?9 H) O& ~LngKeyE = "32823" 1 M' A1 |& r8 U) d# }6 `! M
LngKeyD = "20643" , I1 m" C2 t3 C+ Y
LngKeyN = "29893"
1 f4 y. `1 x7 d8 f2 PStrMessage = Message
, `, Y' Z/ g3 E5 \Set ObjRSA = New clsRSA " N+ ~6 o: w8 M1 W. T2 o* }; W
ObjRSA.PrivateKey =LngKeyD
9 L/ {: y3 r* t' E; p" xObjRSA.Modulus=LngKeyN
/ h) u9 U4 u" |" sdecryptstr=ObjRSA.Decode(StrMessage)
- J9 b! }3 ~) `) V) ~) k9 lSet ObjRSA = Nothing
0 X9 `+ v6 z: d  R: _end function , C% @. d$ b$ V' _4 W) M  T
dim last,first , X+ m+ |8 S3 M6 t4 a# I
first="!@#$%^&*()" - p. H2 i, I* L, P
Response.Write "加密前为:"&first 7 u/ [7 o9 j+ [$ p1 N
last=Encryptstr(first)
. ]" I( `3 A; m- |Response.Write "加密后为"&last + L% G/ u% }( X0 {6 J# o1 C5 H
Response.Write "解密后为" &decryptstr(last) - Q, K; F( A, s6 T* z1 Y. }
%> ==============================================7 Z0 u1 {/ J: k- L$ ?' b2 f6 k
剩下的就是字符的对照表了
/ J+ |3 ~) T6 G===================字符集================
; i: ?9 g" C: Q3 ]1_____6EBB
! N$ I. C  u' s$ o; z- _' y2_____5C1F/ R2 `0 Q. z7 A  \% r) `5 B3 a$ }
3_____4D75/ V! Z) n$ f5 R& @
4_____26CC
  ?1 W* g8 j1 o  C0 e- q5_____4F88
% f; L7 T: P& G4 l6 C6_____3F4E) }) v$ v9 b0 E% j5 D
7_____0A9D% T0 W* b2 k% k4 C
8_____1A1C
4 g. c/ x& u% `* t8 S+ ~9_____6D207 S, }7 P+ Y# `' S2 x, W
0_____1089
% z( T8 g: z0 D+ da_____0F3E+ U3 q/ y: h# [9 A! e
b_____3159: z4 n1 N, M% \* ~$ s/ M& P3 ]
c_____3517
8 B* V! q& u% E' g1 S" j" Ed_____419C# ^/ H6 Q3 U& l( b& n
e_____615C6 F+ m+ T4 [3 ]
f_____556F
: y" T% G& t2 m" }5 k' L" B' ng_____2B7F6 h0 ?+ l: b9 U/ a
h_____0F9C
) n, ~- k3 j7 a% m0 Si_____00FA
$ \+ [. S/ P% [j_____5A50( D& f) r6 h9 Z
k_____2850/ Q' ]4 c  ^4 k' o/ s
l_____3E7B
* T" I- c( a+ ~m_____71C5
) x  |; A: l( I  e* |" un_____1FC8; g2 M& ]- s, F, ]8 E. {
o_____74C1
9 T* ~; Y7 z* y7 `5 E5 Tp_____5FB8
! X: O- @- A( g4 M( l' {q_____6085
7 {# H5 T' V2 m* H  A& lr_____3AC4! X  H8 a1 B% \4 _7 `, W
s_____2F50
0 d. e! V3 Q7 h% @t_____36F8
- ^/ I$ e  G8 @u_____7010
% a& u4 @4 l& Sv_____0B42
4 q! b2 n+ ~8 R0 H; vw_____1C7A& w7 `$ V; y* N1 s/ u' ~
x_____16F8/ N, I) m9 b1 H1 [
y_____2EE7  O* B4 i' Z0 a
z_____5CF3
7 F- _$ W$ ^0 n: N0 h: S+ W7 V!_____6233
2 [4 P; Y# R6 b; b5 ]% k@_____3A451 d7 a" a. M, D) \, y# ^+ @
#_____2291' v6 a5 z7 k+ J
$_____5D5C: q6 x* g) Q' u, @& N
%_____09B9
* W' M' a5 i5 M  [^_____43EA9 E/ V& M/ W; T8 z" y, C1 u
&_____62B9* Y9 g0 K6 B: U' o: Q6 W. p' c
*_____6301
5 K. q  W6 x4 d2 l$ h(_____4659
3 D/ o8 A$ ^1 {$ G: U- h: g8 I0 H)_____5C82

鱼儿无心

收藏了。。。。。。。。