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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
* P3 W9 k4 B" ?8 K原始出处：http://www.3ast.com.cm$ Z; i! d* a2 x9 }) z0 M
$ t" _7 R0 @, ^- v: _
看不懂的直接绕过. H+ M0 s+ O0 n' K# v+ S
加密前为:hwy123456
, }9 i' n% h! f8 n- x0 x加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E! J4 |; s1 E3 C3 m2 l

2 K5 a7 o0 Q5 V6 I  y) E$ C============================================: ]" S- _% d+ {
上面是当时自己校内的心情。现在已经解破出来了，分享给大家, R9 `; g& h# _- Y9 P4 A! m
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法( P( I9 b  Z: I+ d& u6 T
以下是RSA算法文件6 }+ R: N5 E" E' r. T9 K4 [# N

& ^4 X. i  G' q; ]+ g# l$ h文件名RSA.ASP7 r+ }) c4 q6 O4 l) O& j( ]
===============================================* |: x, _; I* a) K. C* G( p6 x
<%
4 |* M. r( J+ F, B8 M! i5 IClass clsRSA
: o! T5 J+ T: v$ q8 V9 GPublic PrivateKey # c! V4 p+ ^& Q) T+ K1 m$ ]. O
Public PublicKey
) D; n% n  |4 v( UPublic Modulus
3 K9 o" L* D8 I: s0 APublic Function Crypt(pLngMessage, pLngKey)
  i9 O7 k. n  n7 u- d4 {On Error Resume Next 3 k5 T8 j" n. m- v% E& Z. n, z  d
Dim lLngMod
* v6 N. W  c' j0 d( ?Dim lLngResult
: I! D$ }0 }$ n: ]) ^9 [, PDim lLngIndex 0 H4 N. S+ g: {9 z/ o
If pLngKey Mod 2 = 0 Then $ U6 B; g+ b6 _+ }
lLngResult = 1
' L! H9 T- e* j9 j. ?) u6 wFor lLngIndex = 1 To pLngKey / 2
+ t2 v# x; L0 Y5 I! j3 ?- JlLngMod = (pLngMessage ^ 2) Mod Modulus
& v- }6 f" v0 {  T' Mod may error on key generation : I- I) y" \" x2 H8 Z
lLngResult = (lLngMod * lLngResult) Mod Modulus
+ N0 L' w$ B) O6 S5 e9 A3 aIf Err Then Exit Function , c* I: }9 M) s$ E" b( {+ E8 x1 q
Next 4 p- Z; B' ^/ O& g! W6 r. G9 L
Else
' l- G+ X0 q* |- w, l6 I/ d! zlLngResult = pLngMessage   T! y+ i) s) A0 C% {
For lLngIndex = 1 To pLngKey / 2 5 o: j. ^' ?; G  g* Q& |- F$ f
lLngMod = (pLngMessage ^ 2) Mod Modulus
: z- K& B# x, \+ A. N, ~# `On Error Resume Next
! z6 u* d/ q# {) O2 D! j+ C' Mod may error on key generation 1 U% T1 q4 ^$ a2 |: W6 e& I
lLngResult = (lLngMod * lLngResult) Mod Modulus
$ A: J9 N% z' V$ a7 [* y) BIf Err Then Exit Function ( Y( I* T5 ~0 M( [* q
Next + n" |3 I; g! D3 Y
End If
' ]6 ^  r2 q% c( T8 Z( TCrypt = lLngResult
; N9 B: Y8 w8 V4 ~- tEnd Function
; P9 d) X1 T; s; k6 f+ d
. D) z" q* j" e" _6 b5 fPublic Function Encode(ByVal pStrMessage)
6 V- f; V& T1 c# E0 qDim lLngIndex - z3 B" F# f: H' B9 ]* B* v
Dim lLngMaxIndex
! L" Y( h) F+ |7 l4 W4 NDim lBytAscii
1 r. e" W" \( o% K3 q- W4 N, CDim lLngEncrypted
/ t' D3 q4 \, }6 o) q% a0 r$ X0 LlLngMaxIndex = Len(pStrMessage) $ }5 @# u0 a( S0 g" o
If lLngMaxIndex = 0 Then Exit Function , \. O0 C/ _5 _; \
For lLngIndex = 1 To lLngMaxIndex 2 n- R4 N0 {& k
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ' a/ ^9 P8 R1 P* S
lLngEncrypted = Crypt(lBytAscii, PublicKey) + h6 {4 N  w( o" c: d  z4 u- j. K
Encode = Encode & NumberToHex(lLngEncrypted, 4) ) |5 J4 G$ ?2 w- ?6 {3 U. k
Next
% O1 w) ]5 v: |7 X$ g6 `  l6 B+ i5 b7 MEnd Function ( l5 }: n3 |! b0 |. ^
Public Function Decode(ByVal pStrMessage)
( O8 G8 W& U# m; VDim lBytAscii 1 r+ ~  f& m) A: `$ |9 u3 r4 Y
Dim lLngIndex 2 U' E5 ^6 b3 }
Dim lLngMaxIndex
0 |3 K% R$ j# U, v6 ?Dim lLngEncryptedData
( H( L3 Y% q& k" t1 H$ o8 S" t$ ?Decode = ""
; r8 F4 \7 m* `lLngMaxIndex = Len(pStrMessage)
2 y: ~* ~! {$ B% B9 _, `For lLngIndex = 1 To lLngMaxIndex Step 4
+ x0 H# z7 u# w: W! d, PlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
5 J: l" S/ B6 `3 C4 C+ glBytAscii = Crypt(lLngEncryptedData, PrivateKey) ! e* K6 i" Z, e, s+ ?0 \
Decode = Decode & Chr(lBytAscii)   `5 b+ r7 X. L
Next + Y# Q" F7 _: s$ Z0 A. b
End Function $ @. g+ E/ d( q, P- K' [7 b+ \/ t; x
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
# P/ ~3 A: n2 S1 j5 W5 @- zNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) % l. p; o! n; @. o8 ~6 C
End Function / J; y3 _+ a7 `/ l9 A+ p% y
Private Function HexToNumber(ByRef pStrHex)
( @6 l) \1 i# f$ n1 ]9 f! ^9 s9 [HexToNumber = CLng("&h" & pStrHex)
3 A0 B' T, E/ D# o1 Y7 uEnd Function + Y8 n# {& K% s9 M* j! M
End Class
- a4 I! O& R' t' L& j* }function Encryptstr(Message) 1 a/ D# q# f" a
Dim LngKeyE
* h' E- u% Q0 c0 q- nDim LngKeyD % ~  l3 _0 D, X. Z% F# i
Dim LngKeyN 6 M) g) a, P* Y: l; v
Dim StrMessage , l4 B9 C# T& M
Dim ObjRSA 0 v/ X5 D; J& f' u
LngKeyE = "32823" 6 R0 M" u7 w, k: D* D
LngKeyD = "20643"
% F" r: o# L% z# T3 H3 uLngKeyN = "29893"
/ v1 X3 A5 I: K8 S$ _StrMessage = Message 6 W5 Z7 g: d! e) R6 N2 {. p
Set ObjRSA = New clsRSA
6 F  n- e% m1 CObjRSA.PublicKey = LngKeyE 0 ?2 K3 P+ @; W  l8 n
ObjRSA.Modulus = LngKeyN 6 P; t1 }. T0 Q0 N# G
Encryptstr = ObjRSA.Encode(StrMessage) 2 Q$ T1 E+ @! ~9 N$ q
Set ObjRSA = Nothing
$ l( n( T$ A  e& d1 Lend function' F7 m! r: ?( X0 _% m. |
Function Decryptstr(Message) ! l( n  P. A3 L9 p1 ?
Dim LngKeyE
' Z! B* n( ]! w7 d7 b6 g: K( Z6 ADim LngKeyD
- H3 E) _* H4 N! j. wDim LngKeyN
0 n; K9 C( L& |9 C3 D8 {Dim StrMessage
" u! I6 ?+ B- E1 q+ ~Dim ObjRSA : I( i& e" c  w/ w* ~
LngKeyE = "32823"
7 y& B+ P. c/ Z" ?LngKeyD = "20643"
( g2 L7 b9 {0 E, kLngKeyN = "29893" + Y  E7 h. S; _& ^
StrMessage = Message 7 p" _/ |# g/ l& J
Set ObjRSA = New clsRSA
  w  e8 H! S# x8 e4 P9 PObjRSA.PrivateKey =LngKeyD 7 p$ _0 X* U; U, A
ObjRSA.Modulus=LngKeyN
8 F4 ^1 }4 ?1 y, j- R8 ddecryptstr=ObjRSA.Decode(StrMessage)
& i7 U4 ?% x" {  A  _Set ObjRSA = Nothing ( v' S4 L' W6 E& ~6 @! h3 }$ @
end function
- ~2 d% p% i5 Q%>( H! _7 x1 |. A* H4 G; Z
===============================================& m  J4 x& r9 b2 {& Z7 ~& N+ O- D9 @
* `& l" L4 i; z5 k2 |# W! f
还有一个用于测试这段代码的test.asp
* n% {/ z% {( z; C' r有兴趣的自己搭建个IIS测试下- L1 a* D6 r! E
<!--#INCLUDE FILE="RSA.asp"--> 5 Z" y) r/ V* ~% Y
<%9 A  V* [5 R# Z+ m4 ^
function Encryptstr(Message) 5 ?' ?0 l, b! Y
Dim LngKeyE ! f  K/ G$ d0 D4 g
Dim LngKeyD
$ r4 b9 c- z% x& D# ^0 F4 s2 w9 ?5 yDim LngKeyN
1 ]0 d( n$ }1 ~; w" \% NDim StrMessage - k! g$ i5 k$ D- v$ |( q# C
Dim ObjRSA
* X7 k1 m2 n3 pLngKeyE = "32823" * B) `$ ^; O$ [8 k+ o  f9 V
LngKeyD = "20643" , u! X* _' G* f5 ^
LngKeyN = "29893" " Q4 o2 K/ \5 x) \
StrMessage = Message   l/ w$ X& @5 b( ?4 Y
Set ObjRSA = New clsRSA
% @% c6 ]8 i& g" B  R- DObjRSA.PublicKey = LngKeyE 7 ~! w  x3 Y' W" c6 F0 H
ObjRSA.Modulus = LngKeyN 4 ~# c% C( f" L
Encryptstr = ObjRSA.Encode(StrMessage)
4 P$ o3 ?' T  e- V% FSet ObjRSA = Nothing
$ H  n+ m! \* d5 J. ]end function
' Q' S  N8 E# V7 P9 E: {0 N0 Wfunction decryptstr(Message) " e: b! Q- f# W; C# c
Dim LngKeyE
! _( r! {% c  q4 ADim LngKeyD : K4 J* \( F+ @' b$ f- ]7 M
Dim LngKeyN
8 [; \- m$ @% u# FDim StrMessage
) ]/ D# j: |7 {5 _7 [/ z. WDim ObjRSA
, t- l% P( C& Q1 ]( J- Y: ?LngKeyE = "32823"
/ o4 E" K1 w) d- jLngKeyD = "20643" & v) d" R% k5 M# q
LngKeyN = "29893"
3 R* ^$ ]/ E+ D& D/ N3 |, LStrMessage = Message 2 C! c+ A+ M& i4 y, v7 z: V2 g$ \. O5 ^
Set ObjRSA = New clsRSA
, m6 ~/ D- |) m1 r) tObjRSA.PrivateKey =LngKeyD
- g0 ?# o2 K# r3 D; k3 D" q, pObjRSA.Modulus=LngKeyN 5 n% v8 t+ R& \* H3 X' K- q9 H
decryptstr=ObjRSA.Decode(StrMessage) % }+ Z4 s% J- R3 R+ e9 J1 r: Y3 ^
Set ObjRSA = Nothing ! @# v7 S. o7 c
end function
6 B  i4 z6 I% ^/ L1 N" m! s0 Ddim last,first
, Y- G4 x* Y6 e0 a* f5 }. @9 ofirst="!@#$%^&*()"
/ V6 E0 ]3 O3 M, E! aResponse.Write "加密前为:"&first 1 \5 ^9 L; U, a. ?; U
last=Encryptstr(first) # V; e  ]! k/ [: F9 l5 c
Response.Write "加密后为"&last
. F' T. J7 q1 A: f7 TResponse.Write "解密后为" &decryptstr(last) : t% M) ~# ?  G7 \: R# N
%> ==============================================7 ]6 N$ N6 ^% q# _; v
剩下的就是字符的对照表了
' O5 b4 u; Q0 n  n8 u$ r===================字符集================2 r0 F- B9 f4 G9 R
1_____6EBB
) H: Z0 l. ]. z3 k2_____5C1F% }& }8 W' t1 i$ C2 B
3_____4D75+ [- u" H8 M( s- x( L
4_____26CC% D+ a+ ]" q+ D+ [
5_____4F88+ W! O. l3 Z" o7 Y
6_____3F4E
+ m, W) S4 r) p# D. ?7_____0A9D" t# @; C; y  A. L
8_____1A1C
5 ?& c' ], a% A( c' P$ h: X9_____6D20
. m# H3 _0 B+ a" H; U+ X& Z4 n; Q3 w0 ?0_____1089
, ^- f& J% X' H  X2 J9 za_____0F3E$ N. w8 e0 `: u
b_____3159
# {# i6 J  x8 ec_____3517
) o7 Q3 r& w' t3 |& o) Dd_____419C
' S& P9 [: K1 f3 ge_____615C7 q! n# ~5 j( T+ e3 x+ L7 r
f_____556F
- I: ]) A+ I' K7 G" n. ?g_____2B7F
# }! s/ A2 E  ^h_____0F9C+ t5 y% p+ o4 x, [
i_____00FA' ]' X! P+ _4 N" i5 \: o
j_____5A50( y% H( C$ z1 f# V' ]
k_____2850
. ]* B3 r) c7 j: L: X2 Fl_____3E7B0 F1 V1 o, x; l8 \9 ?/ C0 F& W
m_____71C5( I& ?* B; P) `. X
n_____1FC8
5 ]/ W8 N, m6 t# s' G& Vo_____74C1
6 l) g, p3 J) L+ Fp_____5FB8/ P. ~! S9 x2 l
q_____6085
5 l5 _1 _% P8 H0 w+ z6 O9 D2 r7 Hr_____3AC4
* M7 a& p' Y  as_____2F50+ f6 w$ a- [( v+ K' s9 ]
t_____36F83 \! }& ~" ]; r8 |( D! A. d. y
u_____7010. r- K+ H/ y* r
v_____0B42
0 f/ S( f7 ]$ k  ]4 b8 F8 ~* c) O% H; nw_____1C7A8 P0 ^7 I0 k, w9 U4 Z8 `
x_____16F8
; J9 D: ^+ M% M/ ~/ \! }& oy_____2EE7
5 j( c5 \: j# p& b6 ]4 W# O  @z_____5CF3
+ J5 M9 ~8 `7 E. P!_____6233
. O! R4 W! h6 u, A( f, f* ]) r1 `@_____3A45. L) ]% {* f0 v6 B
#_____2291+ W2 d9 C: y2 P
$_____5D5C9 A2 [# J# }  k4 {0 ]
%_____09B92 h8 \+ x( Y# C$ ~
^_____43EA
$ D1 Z" c, p1 t2 V! \, Q&_____62B99 [! d: S: A& |3 u; _  f. Z2 W
*_____6301
( P% R& Z9 c- m, P5 `% n(_____46598 I4 ~- l6 y# D7 V0 o) \5 P
)_____5C82

鱼儿无心

收藏了。。。。。。。。