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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm+ U1 O/ ~2 l% b, i( K' E0 L
原始出处：http://www.3ast.com.cm- V2 i/ ~& {" c, G( }* X
4 w, l2 t; O- ]9 t4 }0 \
看不懂的直接绕过
- J! }+ y& V$ U( S7 }" v加密前为:hwy123456
( L+ e/ I6 B( P1 E4 `) v% v  \加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
; g" F% ?  q, k5 ~  P5 X
1 I4 N0 P8 {* _1 @============================================
+ ^: D. h# f" \& q1 s上面是当时自己校内的心情。现在已经解破出来了，分享给大家, x+ h$ O. N1 X. X7 ]- J
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
3 l# \! b) J2 r! M" \以下是RSA算法文件
8 m# p1 l* R! b" \0 r. u" A4 o$ H" l8 X8 V+ l
文件名RSA.ASP
8 y6 a0 a% |: V6 t' G) ^7 E, k===============================================! h) \* o$ L) Z* V# z- v
<% $ o$ e  A8 I) g. ?( F5 l6 \# O7 q" D
Class clsRSA
* B- s, e9 U4 r! UPublic PrivateKey
( n2 u9 p" w; D; P1 F1 g( hPublic PublicKey " s2 E: L2 G7 O. Y- f6 I
Public Modulus * d% B6 `, a1 m2 E4 l4 k; t( a
Public Function Crypt(pLngMessage, pLngKey)
- v) X0 j4 X  n- {On Error Resume Next . T; \# N& L+ f4 Z0 S; F
Dim lLngMod
! N* B' K2 w$ V3 t8 GDim lLngResult
, A. @5 J: y4 ?7 L8 xDim lLngIndex $ t1 R  ]* g  f, b( b! r6 l
If pLngKey Mod 2 = 0 Then 6 t8 Q+ G  {# {3 g- O- o$ G& ]
lLngResult = 1
( q& f+ M; s: xFor lLngIndex = 1 To pLngKey / 2 * h6 O7 C' n/ y% @9 h) U6 w6 D
lLngMod = (pLngMessage ^ 2) Mod Modulus
, y6 |/ o8 ^" }, v6 \3 G' R# _' Mod may error on key generation
* ^) [3 f; V2 e- i; r0 F0 W, @lLngResult = (lLngMod * lLngResult) Mod Modulus
5 i0 h2 p5 }# h& X, Z% rIf Err Then Exit Function & D' |- A* B, B5 S8 u" e5 M/ J( C
Next + k" _# r0 K4 v  H8 S
Else $ L! U! @+ E$ X! D# f) h
lLngResult = pLngMessage ( k2 s# k9 _/ V+ d* C6 i# L, m
For lLngIndex = 1 To pLngKey / 2 2 M1 |3 {. y, L, a
lLngMod = (pLngMessage ^ 2) Mod Modulus
( n5 Q# Y7 y1 eOn Error Resume Next
3 e% u1 ^! J$ _6 g6 w' Mod may error on key generation ' |# ?' B# F% |/ X7 J* i9 Y0 r0 X
lLngResult = (lLngMod * lLngResult) Mod Modulus
7 _) e5 X. ]* P) XIf Err Then Exit Function 6 i+ z1 t! a5 g% R" v! c
Next ) r8 u/ y3 y# u+ e
End If
% J; L6 F; [. W6 h  H. eCrypt = lLngResult . L# ~; K/ f8 B9 G; h1 t% [
End Function
' P6 D! S) C$ r) ^- F* J
$ U" \; o: Z, PPublic Function Encode(ByVal pStrMessage) ( M+ e# W- z* l7 l
Dim lLngIndex   `- k- J! h' A' n* s
Dim lLngMaxIndex 4 P& T$ E* d  w; f, `
Dim lBytAscii
$ j; k) N8 C" ]6 g, f1 {4 GDim lLngEncrypted 2 V) P$ a! b- a: g# S
lLngMaxIndex = Len(pStrMessage) . ^. f3 e5 x7 J2 g" K1 Y
If lLngMaxIndex = 0 Then Exit Function
5 }; Q% o; G9 y  ]4 RFor lLngIndex = 1 To lLngMaxIndex
  S+ x) H6 V- x6 I0 YlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) # u8 s8 W6 _; v1 X- E% T
lLngEncrypted = Crypt(lBytAscii, PublicKey)
2 k6 t# o$ ]- d* W9 L% E4 BEncode = Encode & NumberToHex(lLngEncrypted, 4) - o9 D2 U; [6 e9 f  c. E
Next : V' P! h3 m/ Z
End Function 9 ~5 d0 s& E" N3 o, |  X* j2 g
Public Function Decode(ByVal pStrMessage) ) l! A# c) H! |# n, F
Dim lBytAscii * o& a6 q4 K3 O
Dim lLngIndex 6 h0 t& V0 F! p: Y; G
Dim lLngMaxIndex
% Q( o8 K/ Y; @* ]Dim lLngEncryptedData
% S0 \! G% e( O5 a' @4 F6 Q* h7 GDecode = ""
  |( k) Y2 o: d, klLngMaxIndex = Len(pStrMessage) ! l4 I( |" c8 h( k
For lLngIndex = 1 To lLngMaxIndex Step 4 % W) G4 E! t; i. S8 V8 E: ~4 e
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) & A+ K2 ^+ g/ o; \& p0 `: t& c
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ! B  l; o6 o+ i" y4 Y: s. g* c
Decode = Decode & Chr(lBytAscii)
: x$ {: ~% e* R2 n5 aNext
0 o4 J$ o; M5 c7 N9 C6 BEnd Function   T1 f  [* {% b# Q* n
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)   M* h/ q" x8 P7 b
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) + i( B% k" W; S
End Function
: N  ~9 p+ l9 T4 \' v: L, hPrivate Function HexToNumber(ByRef pStrHex) % O- u4 Z: c! h
HexToNumber = CLng("&h" & pStrHex)
* U7 l  }( X+ _! e, s! C3 S( F4 ]End Function
) l2 b( Q! |  T2 O" AEnd Class . o  ?6 Z% |" k! r
function Encryptstr(Message)
) U: Z+ b0 ?/ S0 _& v; q3 o( GDim LngKeyE
" f& I" I8 L! g# |Dim LngKeyD 7 Y8 I# S9 S; B5 R* Q
Dim LngKeyN
8 D: }0 X8 {9 gDim StrMessage
# @% n5 I1 D& oDim ObjRSA
7 k; ?+ K3 g6 T5 @/ }1 ~4 F, Z8 y/ SLngKeyE = "32823"
! N, H9 N+ \+ b" U- \" }) k/ P. y2 _LngKeyD = "20643"
5 r' A' j; x/ p2 f* Q9 GLngKeyN = "29893"   z, p" Q+ K5 [" J( q3 N$ x) o
StrMessage = Message
3 \  }, T' ~" WSet ObjRSA = New clsRSA 1 x( \! _. \/ n4 o# I; _1 \
ObjRSA.PublicKey = LngKeyE
# ?& l% O- @& Q5 kObjRSA.Modulus = LngKeyN , r) u) i! e: O
Encryptstr = ObjRSA.Encode(StrMessage) # ^# B, H7 I- s) |
Set ObjRSA = Nothing / _( B/ u" f: s8 G% S( z2 ~
end function1 {' `- o# ]! H3 u# b" |3 h1 F! R: N  c
Function Decryptstr(Message) : O$ t  o' D' [2 B* ]* r" l
Dim LngKeyE " u6 c! L) ^2 G8 d
Dim LngKeyD
+ W3 H6 m3 S# \  D  K9 jDim LngKeyN
% U+ k+ H% `0 _3 k! ODim StrMessage
5 t: M0 O1 X7 f1 {4 j( YDim ObjRSA
$ q8 \9 S& E+ w- g& YLngKeyE = "32823"
( }  P" S3 V/ C- I9 k% KLngKeyD = "20643"
+ X, v( W* z: a; t# ]LngKeyN = "29893"
# o$ j! ?1 ]* L& \0 d; SStrMessage = Message * Y: X+ @8 o+ n$ W7 o9 M! r
Set ObjRSA = New clsRSA 9 Z+ J3 v8 e; y* D( R/ M: o5 `
ObjRSA.PrivateKey =LngKeyD % n) N  F% A* c4 [! X: S- M3 F
ObjRSA.Modulus=LngKeyN
8 \7 v; U9 N* P2 j8 d4 hdecryptstr=ObjRSA.Decode(StrMessage) + U8 T  M) Q4 M; }( t5 ]
Set ObjRSA = Nothing
% D. V% c5 Y( Z/ ^! Eend function 5 Z: \$ a0 F1 j
%>/ r) e0 ?! W: W5 ]+ e" ^
===============================================
0 i: c3 l3 G; {" w& `9 |# m0 F
9 n' z8 K5 |# H+ r1 T7 q还有一个用于测试这段代码的test.asp
( V5 C- L: L* g1 `有兴趣的自己搭建个IIS测试下. B' b( T1 a4 B; u  [1 R/ B+ d. K
<!--#INCLUDE FILE="RSA.asp"--> $ F! T( D8 v' l+ C/ t2 Q
<%
' f/ t8 e+ Y+ f: Q/ e, y4 `( wfunction Encryptstr(Message)
6 f/ \/ A( C: s* DDim LngKeyE
5 e& P8 n0 P; B6 lDim LngKeyD + H1 C! H0 V) \' S( Y8 @
Dim LngKeyN
% N) V: n) r7 \' ?% [7 \' cDim StrMessage - ~0 Y6 {3 J: f/ i5 H
Dim ObjRSA ; O. T+ Z) I- E
LngKeyE = "32823" - z$ i+ G' n+ y# \" v. L
LngKeyD = "20643"
) u: k7 W7 K8 v7 ~LngKeyN = "29893"
0 ^8 j3 h5 [/ j2 x: ?- ~- t6 S# ^StrMessage = Message 0 x' ?% ?- M5 ]4 }& H
Set ObjRSA = New clsRSA ( n, @( ]% i, l9 t
ObjRSA.PublicKey = LngKeyE
' q* n7 x1 F5 F, Z( L5 f3 X3 bObjRSA.Modulus = LngKeyN
) I2 _) A$ I6 J" g0 hEncryptstr = ObjRSA.Encode(StrMessage)
; X7 w8 l6 f0 ?* NSet ObjRSA = Nothing
5 u% F! ~3 s. ]8 [end function
9 w' j+ F# S! e: cfunction decryptstr(Message) . q6 u  D, Z) V" J" I
Dim LngKeyE
7 t3 E7 ]3 v. E& HDim LngKeyD
2 P+ m' h9 k' s, Y0 _! iDim LngKeyN
3 ]! h) f1 R9 _7 F8 y% pDim StrMessage
1 i/ d3 I2 F! T. hDim ObjRSA 2 H$ n1 A& |- t/ j
LngKeyE = "32823"
. B8 [5 _4 m7 r8 W# FLngKeyD = "20643"
5 {) F; V& V9 k3 ~LngKeyN = "29893"
) n0 M2 R# c* u6 M; xStrMessage = Message ' g( f8 ?5 Y0 `! M
Set ObjRSA = New clsRSA
4 S0 R& @4 F4 P( bObjRSA.PrivateKey =LngKeyD
, R. m) N0 l3 W% r) bObjRSA.Modulus=LngKeyN ! H# X+ i, e, t2 o
decryptstr=ObjRSA.Decode(StrMessage) - a* T' ~- o" i* W7 j7 m, d7 T
Set ObjRSA = Nothing
/ q2 M, j# l+ b1 Hend function   L3 K3 m  ^5 \9 R! S
dim last,first # \: o' D* a6 ~0 o( }. i
first="!@#$%^&*()" , @: @- |/ A# m' X- |' [7 R$ ^6 @- _
Response.Write "加密前为:"&first
2 X: Q* d7 d! O0 @/ u0 e& B/ Ulast=Encryptstr(first)
3 I  I1 j) E$ Z3 X( v" c+ GResponse.Write "加密后为"&last 0 P) @( i6 @8 Z' L& G# B3 B
Response.Write "解密后为" &decryptstr(last) 5 c6 X8 W' I! e  I
%> ==============================================% [2 E! `- M) R9 o1 S$ t
剩下的就是字符的对照表了
. Q: @' d; [" k, s$ T2 o0 |' ~===================字符集================. j7 d1 W# Q. J
1_____6EBB5 T8 [  p$ {! W% X  B5 a) a, k1 t
2_____5C1F& w" r0 o2 W3 r! C# G5 U) I
3_____4D75
6 ?; B* T: e" r! s2 h4 {4_____26CC  V$ f% x8 o- r, t$ l0 X3 b
5_____4F881 E; ]4 e: Q: y. k# ?5 R- F9 v2 J
6_____3F4E
: z# E  J; j2 V: m: N7_____0A9D8 `: {( b/ W2 R) c& l! S% g5 F
8_____1A1C
) D. C8 y5 V- @+ o$ Z9_____6D20
1 V% P/ g4 P3 R8 |5 u0_____1089' U5 ]# x2 K* ]
a_____0F3E- R6 [( [! S) J4 J5 ~' A
b_____3159
6 L# u/ W. Y% ]4 M) Cc_____3517+ o$ F& j9 b4 U) D+ U
d_____419C
8 Y9 U% z" ~' Z/ F' }& ]" p* ae_____615C0 R4 i+ r+ c4 n0 R! J' _
f_____556F
0 f  s* T9 d* A# }. Zg_____2B7F
, |" T0 f7 ^' A: I& j% |1 H" Ph_____0F9C
$ d' {# @) {5 c# oi_____00FA
8 i: L0 f% J6 l0 L2 @$ tj_____5A50
. K+ I# I( o/ J: Ck_____2850/ x- }" P; S7 u, S" Y6 j% ?3 Y
l_____3E7B
8 i2 |  u: o1 c' um_____71C5
9 \, @0 \  P' g3 P; {n_____1FC8
1 D' m9 j+ P; o& w- \o_____74C1
: n) ~, o; e+ b' H4 e" x" S& ^0 Y8 Dp_____5FB84 d+ K: D! z; A+ O/ n
q_____6085
. Q+ X' y2 X2 G) c  Jr_____3AC4* H( d& V& f0 e6 q9 z
s_____2F50& ?7 P( _2 Z7 a, c' \( Y% D
t_____36F8  U$ Q/ \  p  u' c9 _
u_____7010
- w7 ^# o+ F( S- Ev_____0B422 ?+ i8 Q; ^# T3 n6 ?4 @
w_____1C7A
: t& Y: k  A0 W& Gx_____16F84 P5 m; r- g, {5 F% L
y_____2EE7
: R% |+ x3 x( x! Q- D+ zz_____5CF3
) w+ j2 k8 p* l9 M!_____6233
' X  ]9 Y0 r9 g4 B2 H@_____3A45
# x5 Y: X0 S& R#_____2291$ J  m0 X6 b" }1 e; {) K" W% S
$_____5D5C4 ~9 y2 E* Q0 s
%_____09B9# e; h; ^  n: h/ p$ m
^_____43EA  A# k5 {/ r# a" e; J
&_____62B9
6 Z" ]% }0 R2 m1 e2 o*_____6301
  Z- l* s; b# l0 X+ @) U(_____4659
$ g7 b; u$ F' m& G9 X)_____5C82

鱼儿无心

收藏了。。。。。。。。