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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
* S# U! }3 G  |3 q% V- c& A/ o原始出处：http://www.3ast.com.cm
; `$ H- [  f- b  {
$ k8 a; H6 ^+ s看不懂的直接绕过/ y  @- m, t1 p* i! r9 a
加密前为:hwy123456
% ^' E7 G& y& M0 I+ R# v: _) [$ x加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E- L- u- {1 F2 V  C# g

: J/ d% `4 }- w  @7 B============================================
9 I9 s* Q- s3 [3 O$ o上面是当时自己校内的心情。现在已经解破出来了，分享给大家
3 g5 t, i6 N( v. g也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法) T- m! U/ V! _. A, g" w
以下是RSA算法文件" b/ R1 S" _% a$ ^
2 m. c& G' x( a+ |! o
文件名RSA.ASP2 s. O1 L! [' w2 ]0 q
===============================================' s9 k3 a- ^( W+ U! L# X: F' o$ M4 W3 j
<%
6 X6 M: W2 l+ K3 t4 AClass clsRSA 7 X& ?7 r' E' G2 [9 q  W& K
Public PrivateKey : Z5 A8 ^( j# E7 V  y6 S) i3 W6 O
Public PublicKey 6 X: H) @9 W4 V1 g/ E$ C3 d$ ~! S! t
Public Modulus
; ~2 I  b3 [4 Y3 O2 k7 L) k# P, sPublic Function Crypt(pLngMessage, pLngKey)
1 o1 g: J8 k$ v5 Y2 d1 ?2 s" d( d! UOn Error Resume Next
" R+ a1 R& B2 t. dDim lLngMod
; d9 x: V4 g; K2 n  L; w6 FDim lLngResult 6 m8 Q0 Z+ Q/ X$ X6 [+ Z3 Y
Dim lLngIndex 4 z! d3 s/ P! v
If pLngKey Mod 2 = 0 Then 1 K$ B) h! I& {' k2 n
lLngResult = 1
4 x$ w' w+ G1 n: t7 U, cFor lLngIndex = 1 To pLngKey / 2 , ?+ ^! c# d3 t4 N$ T
lLngMod = (pLngMessage ^ 2) Mod Modulus
2 C# D& g, y8 \8 X4 `' Mod may error on key generation
) I3 v0 c+ D2 f8 VlLngResult = (lLngMod * lLngResult) Mod Modulus
3 I4 n+ T& e# r  UIf Err Then Exit Function
0 X' [5 i8 i) ANext
" X  }3 H1 W* g% MElse
  F9 `$ N& P4 A9 jlLngResult = pLngMessage
/ u" Q+ R7 e+ f& iFor lLngIndex = 1 To pLngKey / 2
' T( y3 t* M' K% o" ^lLngMod = (pLngMessage ^ 2) Mod Modulus 8 B% D0 r* `, O( @$ _" q
On Error Resume Next 6 H- x- q/ K4 S" ?1 N7 V+ W
' Mod may error on key generation
$ Z8 K6 g- \$ j  O& olLngResult = (lLngMod * lLngResult) Mod Modulus
) e9 ?# h: C. M7 v( X3 N1 n( WIf Err Then Exit Function , }7 j% G8 g1 t& X# l- o1 r8 c
Next
* D. f2 F$ u1 P, W" x$ n/ m+ ^End If ; h6 i8 e6 q. \6 u
Crypt = lLngResult + d9 ?1 `3 J( x" g# Z" X9 X
End Function7 G/ m1 s  E, t! ?. z5 U
' v2 T  c+ f2 ?: V9 ^+ @2 W0 U( M
Public Function Encode(ByVal pStrMessage) $ E- }3 h, k: r
Dim lLngIndex
( \. w- ]3 X3 l" I, l; uDim lLngMaxIndex ( T( m0 ~4 z4 \
Dim lBytAscii ! S" s' W4 I; E  F' e0 u! d2 P
Dim lLngEncrypted 9 y! c3 J* `! e& G1 W) M4 v
lLngMaxIndex = Len(pStrMessage) 7 J4 e$ _2 z; g  E5 U8 F4 h+ b
If lLngMaxIndex = 0 Then Exit Function , @- ?, W; d- N! E6 Y( R, R
For lLngIndex = 1 To lLngMaxIndex   [7 K2 ^- P& f- ~1 ?" J
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ( x# _1 a& h& ?% c. e6 [
lLngEncrypted = Crypt(lBytAscii, PublicKey)
* i  m) E" T. F- d; N1 f, q  {Encode = Encode & NumberToHex(lLngEncrypted, 4)
9 Q/ k+ X0 n* R; _4 S( [) KNext
- f( }* G7 e0 W7 F5 cEnd Function
1 ]. T) {% \' V" w9 v& mPublic Function Decode(ByVal pStrMessage) 7 c1 t' ~1 q" g0 l" e% A7 e
Dim lBytAscii # M/ _2 v/ K0 H5 z4 }0 L
Dim lLngIndex ! p0 k. a2 T2 g2 P' X
Dim lLngMaxIndex
: ]- k1 O; D6 r$ I% K  _, \Dim lLngEncryptedData : L* X7 C7 ?2 I0 y$ @( g6 g2 ?' s
Decode = ""
7 {% I, v9 u, a  J/ g( QlLngMaxIndex = Len(pStrMessage) : B4 _9 N6 L, p$ v3 d5 O
For lLngIndex = 1 To lLngMaxIndex Step 4 0 d" W( [; z5 m" j
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 3 a& S% l  Q8 b1 T
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ! M4 q, R! e1 w# x  D
Decode = Decode & Chr(lBytAscii)
- @- o3 o% x9 p6 H  y- q1 wNext
8 J5 t8 ]5 C4 wEnd Function
1 ?, c2 U" ^$ _$ XPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) $ T: O' r5 t  j  h; r
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) - r4 v5 J  ]; Q: t4 _- x% h- R& }
End Function 2 n/ B, Y* m( d' j2 y5 K( U
Private Function HexToNumber(ByRef pStrHex) & h% f5 O& h  ?7 M: }5 R* e
HexToNumber = CLng("&h" & pStrHex) . d; y! d& `8 K/ k% o
End Function # I, N* j3 @8 \$ y
End Class & y$ r! ~/ w4 D& C  d
function Encryptstr(Message)
0 A# j$ Q2 G, @Dim LngKeyE " C* N0 V9 Q" Q& B
Dim LngKeyD   x. a7 \+ r+ z# N. I
Dim LngKeyN
1 W+ P3 A. ]" X& ~: P/ c3 IDim StrMessage   h( N' v+ Q: X- t& S
Dim ObjRSA
" K6 p1 R! K* {: aLngKeyE = "32823"
" h! s+ W$ q7 `1 m3 g0 SLngKeyD = "20643" ; ?% F& a4 y* i. k3 o
LngKeyN = "29893"
( \% Q! p# U& C& Y2 V. bStrMessage = Message & i3 L1 o. u9 h
Set ObjRSA = New clsRSA 6 n. S6 D8 V5 {4 O+ _
ObjRSA.PublicKey = LngKeyE , y) |8 i# w8 h# @& `
ObjRSA.Modulus = LngKeyN
  B% f5 O8 y9 V; x! h+ F' ~' z) NEncryptstr = ObjRSA.Encode(StrMessage)
" ]  H, I) `& \5 b; q5 KSet ObjRSA = Nothing
! A9 ]; n7 d, c( m6 Z: Q8 o9 eend function4 ?; |+ H% y# S1 T
Function Decryptstr(Message) / H# K" W! J& o0 O; u+ H0 u) _' K
Dim LngKeyE
1 j" ?( }: u$ G# j: {) ]1 ]+ lDim LngKeyD " R! o" t# _+ n# d) ?
Dim LngKeyN ! t$ \: E( y# z2 m$ q! X
Dim StrMessage
8 n/ C) p! A' l9 wDim ObjRSA
; v  |* ~+ \. b- [& |% V% C" VLngKeyE = "32823"   [% _( F/ O: x# w* E) X
LngKeyD = "20643"
0 @  u, _/ W: P+ KLngKeyN = "29893" / a1 b2 U. Z) E3 L  T( {7 N6 {
StrMessage = Message
! o0 e5 Z3 \: b7 v4 e% uSet ObjRSA = New clsRSA : W$ I' j+ X2 _
ObjRSA.PrivateKey =LngKeyD
; q" X  v& U- X& [ObjRSA.Modulus=LngKeyN
! E; M) D/ l$ L  x, o; e0 xdecryptstr=ObjRSA.Decode(StrMessage) $ f+ c1 K, }6 D+ ]- O) h
Set ObjRSA = Nothing
1 S/ }) x" w% vend function
% e, m7 N$ o' b  |4 X0 g$ M%>7 a2 t5 @9 d! M& w6 U8 L7 C( O8 J6 A
===============================================
9 b) Y  p. r) g# o3 A) a) e9 a& ~# p' k9 ^+ a' E2 r& f% X. P
还有一个用于测试这段代码的test.asp0 I4 S! c% {+ r1 u  Y
有兴趣的自己搭建个IIS测试下
+ Q8 O! M2 V" G8 I( s' I<!--#INCLUDE FILE="RSA.asp"-->
' w3 g, W' C% J8 G<%: }: `8 h$ K& u
function Encryptstr(Message)
7 h# O9 Y1 t! l1 [Dim LngKeyE 5 t3 X8 Z2 X: B8 j5 A5 @, z7 f' C( ^* ~
Dim LngKeyD 2 f8 R8 s0 x" Y( a8 R: V2 R: B" g
Dim LngKeyN
" S  g. w4 Y8 N2 x" C! U2 a! lDim StrMessage $ p/ I* n8 i8 n  C/ p9 J. o5 B
Dim ObjRSA
2 ]' a% w' R8 v# b% n. a7 FLngKeyE = "32823" 8 \0 F$ k7 C2 D$ i5 E: y' ^4 B" r
LngKeyD = "20643" 4 C/ u7 f4 T6 y2 A
LngKeyN = "29893"
6 {; O! F1 E4 ^2 w" D; J, c: oStrMessage = Message
! ^  w* x4 M" w* }Set ObjRSA = New clsRSA 5 x3 w! E  d% L% Y2 |! a
ObjRSA.PublicKey = LngKeyE 0 C8 q& x1 X1 R# ^% A
ObjRSA.Modulus = LngKeyN # \; D5 t9 J' i6 A
Encryptstr = ObjRSA.Encode(StrMessage) % J7 B, Y, W, L% N) O! }
Set ObjRSA = Nothing . i2 x2 j1 M3 Y% e2 D
end function " q+ o! D5 l+ P
function decryptstr(Message) : ?. ?/ K8 y+ _) N, F7 P* V
Dim LngKeyE $ e9 y+ _9 a% g$ B" ~
Dim LngKeyD 5 C8 N7 n1 I, O6 g
Dim LngKeyN
# |" ^7 ?/ d3 R6 ZDim StrMessage 0 b- r$ N, |3 H/ R' ~
Dim ObjRSA
; n7 z. r( S9 d& v6 c/ }/ M+ J* CLngKeyE = "32823"
7 e# i. _* @) _LngKeyD = "20643" ! g5 g6 D! p) p/ O4 c$ N& S/ Q
LngKeyN = "29893"
5 V5 X- K4 L4 \0 sStrMessage = Message ( u! k# y, Y5 a6 j# Q. B
Set ObjRSA = New clsRSA ) S7 [; W# d: i* F  i
ObjRSA.PrivateKey =LngKeyD
1 d9 s% \  K' I9 L3 a9 `* P2 gObjRSA.Modulus=LngKeyN
+ i" O# i5 N2 d. j' K$ Idecryptstr=ObjRSA.Decode(StrMessage)
6 S: C+ z# r# a' [' J- iSet ObjRSA = Nothing
0 z; H: C, Q$ m6 Vend function 8 \3 Y$ Y7 p+ Y5 h1 x9 n6 d; s& K& O
dim last,first 8 i; K( x& g& \& e
first="!@#$%^&*()" - b# {+ v* v# S7 H; W' K0 W
Response.Write "加密前为:"&first
3 l0 s+ X: C) {& elast=Encryptstr(first) / L5 |. q1 ?$ e! @
Response.Write "加密后为"&last 7 D; s  }( _' e' a  M6 m6 F
Response.Write "解密后为" &decryptstr(last)   X2 K, U. L& B  A  N+ J
%> ==============================================; P  b" y8 t  `' T# m) R
剩下的就是字符的对照表了
' ~% T- M) ]$ Z, T. \% L: M===================字符集================1 ^% ]( [6 q- Y6 p  b3 s
1_____6EBB7 \, N: _  R5 ^* g2 |: Y! s* O" |9 N
2_____5C1F
5 K  d9 ^: b- s3_____4D75$ `5 b! E$ K' q/ G# F9 L; F0 u$ Q
4_____26CC
5 Y  w. H& O" C8 c9 q5_____4F88" F$ d) k& L: z$ q9 t  X7 p  G
6_____3F4E* p. c0 Z0 b- m& G
7_____0A9D( w+ H' q6 _2 z' s" q7 X9 s9 d, ?/ ?
8_____1A1C
- N- j1 V, K" F9 g8 V' m9_____6D20) l0 L# T: q6 j7 W/ o& u- v
0_____1089
. D% y% n# d4 s" b- ra_____0F3E
2 A+ u8 G7 i( ?, ?$ c( |b_____3159. w; r" {# F0 g) o* {
c_____35174 M! ?" p1 S( @3 t
d_____419C* x& v( [4 Y, H5 h
e_____615C1 N/ e$ x5 K/ q7 D  D1 U0 Y0 }
f_____556F( r- }" G; D4 @/ g! G
g_____2B7F0 d8 p+ [+ h2 W: V) I0 I. A
h_____0F9C6 I" q5 c+ E8 Q" z
i_____00FA5 Z9 r- G/ k* p& W$ H
j_____5A501 k( ]  Q3 d5 W
k_____2850
/ {$ X. a% @' M, z* n. {& sl_____3E7B
3 {( G$ X3 B0 x- Xm_____71C51 A+ [' x' N9 _
n_____1FC88 P' e6 w6 M  c. V
o_____74C1
- Q9 x* ]9 n5 W! i- yp_____5FB8
- [6 U3 E/ O( f: aq_____60857 E! ?4 `- a- v# _8 Z2 c
r_____3AC4" I8 e) b$ h9 t, i) [" Z' g* @* V
s_____2F50
7 A9 _# c& I# M1 g, E  s5 rt_____36F8
- q9 [/ t/ [6 V$ u5 S. F# u6 cu_____7010
# ?: x5 y6 P; r7 J1 D8 Pv_____0B42
  V. L) v7 ]; |+ gw_____1C7A, d* r) b9 q& }+ L
x_____16F87 M  r: m1 H5 W- i
y_____2EE7
  z' [" o1 F7 X/ U- [2 lz_____5CF39 f0 b. t$ q$ u
!_____6233
9 ?  q$ k" F9 R, e2 H+ M/ S@_____3A45
  p% ?$ r5 [0 S( N1 O# n% Z  z#_____2291& S4 D% i- n0 a9 o$ `8 s, |8 k
$_____5D5C7 H1 q2 q- V& O1 D/ _) e
%_____09B94 L% v8 S+ {& y# v0 T: i" q4 |9 e. B
^_____43EA+ M5 f2 {+ E$ v' L! x& S/ |" f
&_____62B9  f. Y/ V( o6 M) ]( F
*_____6301
+ Y. u% e5 b& I! M! @7 h9 R; _(_____4659
  h( z& F/ s7 C) ]$ ^" o$ m) T)_____5C82

鱼儿无心

收藏了。。。。。。。。