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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm2 M) ~5 ^  y! M6 X8 G8 a( |
原始出处：http://www.3ast.com.cm
- P: l. Z5 k6 G0 ?( t
2 V/ b; E7 `/ S: G0 G看不懂的直接绕过4 {! U; \  @4 t: L6 w
加密前为:hwy123456
, ?$ C- {8 L$ M6 K加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
. `( f6 o) Z1 U  M! R. L; ^
% y% C3 E5 _& u! `& e/ a5 ~2 U& |============================================0 z: l3 V' O" o8 T
上面是当时自己校内的心情。现在已经解破出来了，分享给大家' M0 H3 b3 L! i2 F% b; c
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
8 [5 A1 P( I# D: z* M) o  K以下是RSA算法文件! Q5 \1 K, L" W4 N

; K: y# `9 ~" [# ]: g: p' t% t文件名RSA.ASP
( Z* b- Y2 @/ E) n' A( F===============================================2 i: ]/ q1 l: _
<% 7 r; L5 j! e7 H1 W
Class clsRSA
6 @( v2 {5 Y/ VPublic PrivateKey
; j/ s+ j7 M0 sPublic PublicKey
  u( k# S3 ?9 @1 L2 APublic Modulus - g7 k. O3 v/ _& u! O
Public Function Crypt(pLngMessage, pLngKey)
) ]& J6 ?& g  e% S  ROn Error Resume Next
. z, W* |4 h/ _, |, A3 MDim lLngMod
! \, r  [2 B, ^; b8 a7 dDim lLngResult * q- \0 V5 K7 x2 j* Y$ K
Dim lLngIndex
0 V- w" F5 N  A+ P7 wIf pLngKey Mod 2 = 0 Then
! I+ _/ W& x3 A& KlLngResult = 1
+ ^% L1 C1 J! B/ J- [For lLngIndex = 1 To pLngKey / 2 3 [/ c  a% [! I8 \/ ?+ p2 z
lLngMod = (pLngMessage ^ 2) Mod Modulus
( }* B% T. }7 c' Mod may error on key generation " `/ \) H# q" X' I; F* s
lLngResult = (lLngMod * lLngResult) Mod Modulus " H5 ^) l2 M  `' X# B$ f
If Err Then Exit Function   ~% m7 Q- `1 p1 F( {
Next / Q3 p! J* O0 ]( @
Else
! x; c# R6 \. B" y/ x0 [lLngResult = pLngMessage
# ^. ~# r& [3 a2 f4 V: h4 B4 F' y5 h; `For lLngIndex = 1 To pLngKey / 2 # y" r# u3 K- J/ `) T
lLngMod = (pLngMessage ^ 2) Mod Modulus
, M$ ?1 H) T8 nOn Error Resume Next
$ {+ M) t9 P* F. V) C) A' Mod may error on key generation 9 G2 ?& n! K4 u; a) b
lLngResult = (lLngMod * lLngResult) Mod Modulus
& H9 F7 H. Z, z3 V9 n8 ]If Err Then Exit Function
# I9 j* p3 D" A4 Y- ANext
' @# Q  E" C5 f) y; ~3 m+ h  Q+ UEnd If ( S( C7 r) x! m8 J
Crypt = lLngResult " X* L  X6 U$ u: _6 x2 d" P
End Function9 I) J6 p! |3 m9 i1 S
% ~6 i; w  w% a! h  Y5 Y0 {# M6 i
Public Function Encode(ByVal pStrMessage) , ~1 F6 w# v  l8 \+ }
Dim lLngIndex ! {$ |6 w+ Z; M8 y) B/ |
Dim lLngMaxIndex
" e& U* d$ k) E, wDim lBytAscii " Y: |2 T# r( ]' B
Dim lLngEncrypted + A5 E) b$ b# H5 V, Z7 N! K" a
lLngMaxIndex = Len(pStrMessage)
: j, K! G( {' sIf lLngMaxIndex = 0 Then Exit Function
; c: B" W3 l$ o2 yFor lLngIndex = 1 To lLngMaxIndex
( x5 G0 e( E! V/ S2 ?; a% wlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
" q. U) X2 a& L  i- M4 JlLngEncrypted = Crypt(lBytAscii, PublicKey)
) e! o" `& ?; m9 L+ Z, s3 J) dEncode = Encode & NumberToHex(lLngEncrypted, 4)
6 @, X! W0 ?$ p& H, D( C" INext ! N! a6 z0 }4 u# R% z& e
End Function
6 a5 Z4 j9 F9 Y; ~- _/ OPublic Function Decode(ByVal pStrMessage) , E% d. a. q7 ?
Dim lBytAscii   W- p8 a. G4 e! @/ V" c& U* |2 X
Dim lLngIndex
! E: O  ?2 a2 I0 Z7 ODim lLngMaxIndex
9 C8 T2 _( m; o* @9 k% r9 y$ XDim lLngEncryptedData + t% f2 K2 x1 A
Decode = ""
# l" \; |4 B, R9 c! h" g1 }lLngMaxIndex = Len(pStrMessage) : V. ]( \2 `* T* k3 R  ^
For lLngIndex = 1 To lLngMaxIndex Step 4 3 }7 d; W, \9 |# B7 D! X
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 0 k0 s9 i/ N4 d& ?
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ; u& c/ C8 t1 Y$ J0 Q$ n
Decode = Decode & Chr(lBytAscii)
# \, z! J7 o3 d8 b) g, N  t1 hNext 8 x3 B# j# y8 J. z
End Function
2 d& s7 S' K8 k+ m) y7 H0 I8 t3 sPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
* p) I2 D1 w2 _5 |0 c" j3 FNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
! R/ |5 S& `5 a) ^3 c$ t: e+ ^; hEnd Function & b" C8 v. E. a0 V; Q9 z9 k
Private Function HexToNumber(ByRef pStrHex)
- z$ R9 m$ S1 V8 {HexToNumber = CLng("&h" & pStrHex)
) {, {' I5 J& R" sEnd Function 6 ^; n- H. }6 S, m+ V
End Class
% \" s; B# U2 L5 V& hfunction Encryptstr(Message) ( T( @; d* t& I3 a6 |' K% O
Dim LngKeyE
) P$ q1 q" V4 K; O. wDim LngKeyD
; F5 Z  f3 l# k# o( h) tDim LngKeyN * o" _/ P: g7 ?3 i
Dim StrMessage
. ]! D$ |- P( w0 _: U$ S' G5 b6 RDim ObjRSA
% I( M3 |% }/ gLngKeyE = "32823"
5 w2 V. n+ S6 [LngKeyD = "20643" ) U: l' q+ |$ J# G
LngKeyN = "29893" ' d, |% i, }0 F. W. v0 I6 C
StrMessage = Message
% {- k4 I1 R- H, [1 j( t. G  rSet ObjRSA = New clsRSA + R- L4 g9 y2 n4 O
ObjRSA.PublicKey = LngKeyE
! W, \" \- b. E; k% K* DObjRSA.Modulus = LngKeyN
& X! ^9 N: c- LEncryptstr = ObjRSA.Encode(StrMessage) : ?& R3 T& l6 Q2 O% R  V! w
Set ObjRSA = Nothing ( X0 ]# O+ A1 a8 f1 }
end function
3 i8 A( }, n! U) @Function Decryptstr(Message)
$ n$ h3 E" r$ z1 r( r1 QDim LngKeyE ; \( C3 Y" @1 f: N1 r
Dim LngKeyD 5 e6 `5 r/ Z0 h  F. e
Dim LngKeyN
2 n% v1 D9 ?" l% e2 fDim StrMessage
7 M! O  g+ I) x' [; A. HDim ObjRSA 6 J- v1 }6 l% f8 W
LngKeyE = "32823"
2 p& l/ k* S# K/ p* c, r6 L' LLngKeyD = "20643" ) a) Z$ @" b  T: S7 e& P
LngKeyN = "29893"
  f, L9 b* Q6 ^% E' _0 l0 V0 EStrMessage = Message 0 M" E& e7 S/ |! e* @' p
Set ObjRSA = New clsRSA + \* q/ j3 A# E4 l4 u: D3 q" d; O
ObjRSA.PrivateKey =LngKeyD
# T4 u& n% l& `. t$ UObjRSA.Modulus=LngKeyN
  q0 ^8 Z5 O9 G$ q$ B2 p0 Idecryptstr=ObjRSA.Decode(StrMessage) ) d" W/ D. j. I( H
Set ObjRSA = Nothing / ]; O, O8 ?/ y- ^. P7 l
end function " e3 S7 D9 u* O3 i! A" H! Y
%>
' c2 b! k, \/ @0 r===============================================
! x# |2 k% d$ u( b; |( P4 E+ ~+ D. }0 T
还有一个用于测试这段代码的test.asp
- v1 D4 Y( f% x& v有兴趣的自己搭建个IIS测试下5 H! ~2 p9 m" V, ?$ T* o
<!--#INCLUDE FILE="RSA.asp"--> 5 R* q2 S" J/ P$ I
<%, n+ R  D- F, ~$ d
function Encryptstr(Message) " W4 d6 r; O; T6 Y* |3 L- L- U
Dim LngKeyE
0 n5 Q, J, h0 l, N: ^/ M+ FDim LngKeyD & U, j- r2 i! f, l, g
Dim LngKeyN
' S  [/ S7 k6 n  NDim StrMessage
2 u) t( \; J7 r# o/ sDim ObjRSA
0 E; u* ^) ^& X9 j* a  F6 oLngKeyE = "32823"
2 B* d8 X& I* F% }1 o7 gLngKeyD = "20643"
9 T* A1 d. k- KLngKeyN = "29893"
# Q5 |8 M  \! h4 a' zStrMessage = Message - b+ q% W# z* g, }* B
Set ObjRSA = New clsRSA - F( n3 }- Y, T- S: W+ ~
ObjRSA.PublicKey = LngKeyE
5 z0 {, l+ \) mObjRSA.Modulus = LngKeyN
$ E4 y" f& F# V9 {8 uEncryptstr = ObjRSA.Encode(StrMessage) + k9 v0 c; f. I" ?' b& `
Set ObjRSA = Nothing
7 @! `0 ]2 I  o% L3 iend function 8 E) `) c& ~6 N9 V& e9 S
function decryptstr(Message)
% B" Z+ O3 B  m$ w2 G! y2 m" }Dim LngKeyE 8 A1 L  G: R% g% q6 j- x
Dim LngKeyD 0 q0 A9 f) M- Q5 x; d* I9 X* W2 N
Dim LngKeyN
; |' D  Z9 g+ l" K1 ~; }* f  ^9 Q$ K- UDim StrMessage
+ A# \* l2 H) c  h5 g# d0 zDim ObjRSA 2 W1 @$ Z7 U4 x! V1 D
LngKeyE = "32823"
3 S; H( N( {' v6 u/ O) OLngKeyD = "20643"
# @+ D7 ^5 r/ W  h# i' XLngKeyN = "29893"
" }( p3 b* A/ e; T  sStrMessage = Message ; p, F' j0 N0 j" c/ Y' [( h/ _
Set ObjRSA = New clsRSA ( [+ E9 r3 L2 n2 Y
ObjRSA.PrivateKey =LngKeyD
; ^: l" l3 L! `' pObjRSA.Modulus=LngKeyN
8 G/ R0 P. p2 A$ X. {decryptstr=ObjRSA.Decode(StrMessage)
% p7 ?# D( I  A+ r) @$ g6 \7 LSet ObjRSA = Nothing
; r+ C, i1 G. Z; G, a" I& v3 xend function
/ }& Y1 R; Q* adim last,first $ D" s/ m) k6 _* q) n  _1 r
first="!@#$%^&*()"
9 k- }' a$ u, k0 _- k- X+ E7 cResponse.Write "加密前为:"&first
  Q, S9 Y$ X9 Z% ?6 w  x" Z6 j8 @2 clast=Encryptstr(first)
8 v& g: ]5 W8 G$ s% y/ z9 D# wResponse.Write "加密后为"&last
7 S6 m+ t3 U( u8 H4 P$ `Response.Write "解密后为" &decryptstr(last) + k  A7 ~$ P; N4 |6 z* M: Q
%> ==============================================
& f; C; Q1 ~4 K8 k  q4 k# c9 i5 z  W剩下的就是字符的对照表了
3 w- p/ G" Q( H0 J" W$ W===================字符集================
  F, z/ S) k) A" r+ Z: s. q1_____6EBB
' Y- g, t# q/ u2_____5C1F
2 T% U; e; b7 {& F! V, b; a3_____4D75
6 L2 |6 A/ u" d5 T3 F, O/ F4_____26CC8 P8 G7 _) }, E
5_____4F88
7 X$ u: _5 d8 T, ~8 G3 g6_____3F4E0 \( I( t6 K9 t& n
7_____0A9D8 M6 D: P+ U/ P' o8 v. r
8_____1A1C
5 W, d+ _' Y) H) y% Z8 B9_____6D20
  t$ d5 U* C1 D. D: t' R5 m' o; D9 R0_____10892 @+ Y$ e+ H: W1 ?2 `
a_____0F3E
& A, ?# N$ N  ~$ C7 X5 r+ Y8 jb_____3159
; P- X! P' c  c6 o/ w9 t* Rc_____35178 Q0 H2 s: J' Q: _$ P% T
d_____419C: O0 h& p' u4 ]- b9 ?0 E
e_____615C* Z) }0 ~: [9 y% @) Q% Y' g5 `
f_____556F
: t. N& F' [4 x9 ~g_____2B7F) d8 e# D# K/ q+ Q+ A+ b" X
h_____0F9C
9 ~; X9 i9 V; ]7 w+ P; t! }i_____00FA
& K4 a9 h# }: a1 E( |2 [j_____5A503 u1 e8 ?7 @; U( f' z9 D& ]! S
k_____2850
3 Q& ^3 t4 q8 K. hl_____3E7B& U6 |1 m3 c5 q; ?
m_____71C5% B# H1 s: {2 F
n_____1FC8" f$ o, [# o7 h# m, l" ]
o_____74C1
# [+ C+ _- }% `. _0 `9 up_____5FB8, P2 ^9 P- U0 w' P
q_____6085+ I: k% t9 I+ `: B7 `6 Q# K
r_____3AC4
7 N! z. P+ n/ Y) b  _' t2 Z. \3 ~  fs_____2F50
& Q, j/ ]7 b8 d. _. U9 h" At_____36F8. X, t1 p6 X6 A; W' S& G! V* w9 L% O5 F6 h
u_____7010) a/ ?  ^6 ~1 x. S. e7 i
v_____0B42
/ |7 B: W% |0 }; ^w_____1C7A
+ O3 [) i' u* ]' dx_____16F8
8 P- P/ t# k9 I7 I( Y6 E" Py_____2EE7
0 e+ w6 t% z$ @4 Y+ oz_____5CF3$ L3 j3 d. ?" f6 G$ z7 s
!_____6233
+ i* Q% p, G. E3 ^@_____3A45
$ c7 ~7 s7 `. P  F/ N#_____2291; N& J( Y2 H2 i* n" L4 m
$_____5D5C; O/ P% q9 h: _# q6 Q4 n  q: R9 c& ~
%_____09B9
5 t. y; q4 _9 ^& ^  ]^_____43EA
& w2 Z7 i/ t7 h8 E9 M% F&_____62B99 u: k/ q. {/ W& m3 `
*_____6301
. p$ L5 ~( ^* `, ?(_____4659
$ f- l& _% D* R% U( g/ Y# T  h)_____5C82

鱼儿无心

收藏了。。。。。。。。