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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm# v) I* `* s  ]8 {, a
原始出处：http://www.3ast.com.cm7 ^: V% J; e  [" ]: x) l

5 \, M7 t4 _: R+ @/ h看不懂的直接绕过
8 F- ^# D% u0 {5 s. W加密前为:hwy123456
8 g$ Y0 V& r: U7 b6 r. F$ p0 k加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
, E$ Z7 i$ I$ i
# R6 Q1 y4 O- r) w: h) D0 P============================================/ P/ m* \( F: J& I
上面是当时自己校内的心情。现在已经解破出来了，分享给大家, S- `5 k5 f2 V! L* S& X
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
7 ^  R! I7 ]& J, D. ^5 x9 ^以下是RSA算法文件
& f) [; C9 \4 L, L5 T: @/ H9 E8 a% F4 [- M$ r2 v% b5 p# j  `0 s
文件名RSA.ASP, S& r: e1 E! B3 E5 N
===============================================
1 I) B0 ~; ^6 r  W<% 9 T/ w, |# [  g) Y
Class clsRSA
: C% }# K! D  T( h+ vPublic PrivateKey , ]* V& @6 _/ ~8 _3 C# ^
Public PublicKey
. B& `' ^4 m8 ^9 \+ K# }2 `% aPublic Modulus / l' S8 T' f( [2 \( J' j6 q% C' |, X
Public Function Crypt(pLngMessage, pLngKey)
0 f& {( M. a  |) }1 K2 m: I5 J) @On Error Resume Next   G9 F4 k6 `+ W5 W7 G7 a4 \: f. x" D7 ]
Dim lLngMod 0 w, T4 j; Z  i) s2 b4 g
Dim lLngResult 3 H! E+ V7 y/ r/ }5 V& ~
Dim lLngIndex 1 i  B3 t$ G8 H. c
If pLngKey Mod 2 = 0 Then
, F, E) F5 n& tlLngResult = 1
8 D4 }% i6 W+ |% R0 Q, O* U7 o3 Q7 r8 qFor lLngIndex = 1 To pLngKey / 2 7 i* s0 X) x2 Y
lLngMod = (pLngMessage ^ 2) Mod Modulus 7 N! P7 T2 w$ f
' Mod may error on key generation
; \) I) }4 C( H* mlLngResult = (lLngMod * lLngResult) Mod Modulus . ^5 j0 u0 _( l- A
If Err Then Exit Function
* M+ I) |) q- }Next 2 O% x9 I: O# u% `6 [7 P
Else 6 [9 e# D7 I6 g- R, n" a
lLngResult = pLngMessage , j! l' C* ]* ^( M+ }$ |2 b+ y
For lLngIndex = 1 To pLngKey / 2 2 ~( x& H4 _4 f
lLngMod = (pLngMessage ^ 2) Mod Modulus
0 }6 d$ H5 ?; rOn Error Resume Next ' G% B' m& o6 W/ `; W
' Mod may error on key generation # y! ?5 z5 N' w2 I' P$ ?
lLngResult = (lLngMod * lLngResult) Mod Modulus
; _/ h( |0 S8 D, L- D! IIf Err Then Exit Function
9 s; L* J3 K( A2 O5 ZNext : {  s6 D; F" g4 S4 o. o7 j
End If / R& G2 t+ u+ x+ G9 q
Crypt = lLngResult
8 ]: e9 \1 N8 c6 S! f4 TEnd Function+ }1 Q2 u9 d* B$ V4 \

! ]0 ^8 \( C& G; k; T$ oPublic Function Encode(ByVal pStrMessage) 1 _5 o0 l# r7 r7 W& ?6 N# X
Dim lLngIndex 9 V+ ^; M& t/ N% G
Dim lLngMaxIndex + p7 `4 e% U: M
Dim lBytAscii $ q) ~$ ^/ i! C5 y* |
Dim lLngEncrypted
% o5 @7 ?4 c, z5 T: p, KlLngMaxIndex = Len(pStrMessage) * Q) H6 v/ x' {  D. t+ c8 x
If lLngMaxIndex = 0 Then Exit Function % v- W4 h5 e* Z9 x4 r2 C- I
For lLngIndex = 1 To lLngMaxIndex 5 z6 l, X) I1 v) z
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ; P( D- P4 B; B) W% c
lLngEncrypted = Crypt(lBytAscii, PublicKey) $ K! d' [, h' ~3 ]- n8 D4 s7 R
Encode = Encode & NumberToHex(lLngEncrypted, 4) 1 D$ I( l7 g. k2 C2 Z
Next
, ]+ v, }2 r* ~End Function / Y5 _. k1 q4 {& p; X* {
Public Function Decode(ByVal pStrMessage)
; D5 G! ^7 |) s* gDim lBytAscii
3 p$ R9 N' a9 V3 ^Dim lLngIndex ; ~! R9 w% O8 s; ]7 v! O
Dim lLngMaxIndex 0 H. y5 U) o( f: Y7 ^1 R* k" V
Dim lLngEncryptedData
% y1 u- m* j9 e2 kDecode = "" 6 S$ ]6 t+ a- i- _" J$ V( u
lLngMaxIndex = Len(pStrMessage)
: c$ q# F! {7 e; hFor lLngIndex = 1 To lLngMaxIndex Step 4
: Y  g' K$ x9 F9 O0 I. Y6 FlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
/ e# V$ u4 ]; ?) Z0 V! elBytAscii = Crypt(lLngEncryptedData, PrivateKey)
2 ~% e) d3 P; w2 u3 ^: j) [3 _Decode = Decode & Chr(lBytAscii)
; j2 l/ i* S+ L5 ENext 1 ?& |7 N4 }' ?
End Function
' U7 i* {4 @. E; \8 c) A* t( cPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ( C) ^0 r& H& Z6 B& ?
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ! |4 R) n4 D4 \1 s
End Function ' f' Z& O* f8 M2 R4 f# {9 Y
Private Function HexToNumber(ByRef pStrHex) 9 U5 B$ T* m* I" Z  s
HexToNumber = CLng("&h" & pStrHex)
' X" Y% r( m! u) C$ O1 tEnd Function
* i3 A1 F, ^: aEnd Class
1 F7 T5 `- E2 f) A1 mfunction Encryptstr(Message) 9 }6 Q. ]# a6 t; n4 x& y) Q) \
Dim LngKeyE ( P0 P. u/ x* K7 W$ n6 P% e
Dim LngKeyD
  e) c; h  G0 @Dim LngKeyN 9 m1 g2 ^6 O1 u7 O* X5 I$ m
Dim StrMessage / \1 [6 C; X7 ?. U, D
Dim ObjRSA   n7 s" b2 V! \
LngKeyE = "32823"
, [7 t  n* y# U& _" T+ \1 Q* ?LngKeyD = "20643"
" ~2 y2 }  K9 r/ E# f# |LngKeyN = "29893"
9 o* j3 @; ?8 Z% ~+ YStrMessage = Message ' y* k4 J# d" E7 Q# k
Set ObjRSA = New clsRSA
+ }* x7 Z9 X3 V& L) _. n; s) |ObjRSA.PublicKey = LngKeyE
5 k2 a  y" I+ O) V0 QObjRSA.Modulus = LngKeyN
- Y* j& P) V# x0 \6 SEncryptstr = ObjRSA.Encode(StrMessage)
  ?+ T& {  \" c$ M1 MSet ObjRSA = Nothing
' S* t. ?: s& X* mend function
  {5 ]3 ^4 D. B9 b' CFunction Decryptstr(Message)
) t% G9 e. o# d$ Y9 j- RDim LngKeyE
2 Q% i/ o2 ~9 w0 w6 z/ y; L0 [6 ~Dim LngKeyD
; h: H' E& F! _& IDim LngKeyN ) a/ w+ q* }7 _$ O! L4 t
Dim StrMessage " U" m1 w! C- ~6 e: ~6 A
Dim ObjRSA " O* a! s, i3 w1 K9 _$ W
LngKeyE = "32823"   M) t. u0 i1 q# U
LngKeyD = "20643" 2 B& Q5 e# Z$ L2 f& p* c+ I2 I
LngKeyN = "29893"
  \  H1 k0 i! ~StrMessage = Message 3 P  i2 B; Z, t# i. y- s
Set ObjRSA = New clsRSA ' t1 i4 c: G& ]# K0 q" \7 G
ObjRSA.PrivateKey =LngKeyD
4 N/ W+ C7 H) j5 A. [ObjRSA.Modulus=LngKeyN ) _4 y( ]2 m, a' \6 \; D! v
decryptstr=ObjRSA.Decode(StrMessage)
0 |) _  D2 O0 @. G- k8 w: ^Set ObjRSA = Nothing 1 M! C) q# ~4 `& B/ B6 j' b
end function
" T/ I) U# e4 U; I1 Q%>
8 v' W% Q6 u) [+ Q===============================================3 e/ K" R" M+ \: O* s8 a& z# h
6 O+ b/ ~7 g4 I
还有一个用于测试这段代码的test.asp
% G- H: [8 p1 k7 R. F# }: o: ?有兴趣的自己搭建个IIS测试下' c' z: n! U$ Q, @, o
<!--#INCLUDE FILE="RSA.asp"-->
( s+ Y3 ^% a: I4 ]$ C+ w' V<%% ?" O% y0 s. m" ~
function Encryptstr(Message) $ P: A$ [: ^" p4 P4 R6 H7 C
Dim LngKeyE ; m* \7 q1 A4 P# y! D
Dim LngKeyD
+ S- x% h5 ^# W  A) X4 }' g8 h; SDim LngKeyN
# ~9 ~0 L4 G4 M7 C! ^Dim StrMessage 8 j# q! e2 O# p; m) w" [% j; q
Dim ObjRSA * i( z' U1 V& s0 _- L8 T* i
LngKeyE = "32823"
/ s& t/ v: c% Z! D2 wLngKeyD = "20643" 7 p4 ]  I( w% d) D6 v7 U5 u" M2 Z
LngKeyN = "29893"
9 Z8 |. h& G! @' pStrMessage = Message * J% v1 j7 F2 J: w8 E
Set ObjRSA = New clsRSA 3 O, S9 X, J  g
ObjRSA.PublicKey = LngKeyE , ], e  d! |2 c7 X$ R/ |+ G
ObjRSA.Modulus = LngKeyN
5 z, C; \& P& ?! V+ FEncryptstr = ObjRSA.Encode(StrMessage) / j) n( J8 m- ]* y& ]9 w
Set ObjRSA = Nothing % [$ J' s: w8 R& M+ A+ I
end function 3 |$ F, f" c3 J8 `* @' t2 K
function decryptstr(Message) 1 n4 V; J% v3 b3 @7 v
Dim LngKeyE
- c0 g' b' L. J+ ^8 tDim LngKeyD $ j. w" V. T; V* {. U, r2 ]$ ~1 d
Dim LngKeyN 4 u+ q2 S2 p4 e$ [* v( h  J6 i
Dim StrMessage 4 a' H" `& |0 |4 V, a: {
Dim ObjRSA & P+ `8 G* x: u2 `# v
LngKeyE = "32823"
6 ~4 R7 K3 C: v0 MLngKeyD = "20643"
, ~+ {" H; X( Y( p# P# V. kLngKeyN = "29893" 3 Q+ i0 W: U, U% |* H+ j% X+ x
StrMessage = Message 1 `$ h$ m8 r9 b3 {
Set ObjRSA = New clsRSA
& X; C& O; h& V  Y8 VObjRSA.PrivateKey =LngKeyD 5 V4 Z- }0 ]' T6 v+ G
ObjRSA.Modulus=LngKeyN - \9 y" a/ U% r
decryptstr=ObjRSA.Decode(StrMessage)
- ^+ [# k- z9 I# q4 S' h. dSet ObjRSA = Nothing 4 [  D5 S$ Z: A( Y/ I
end function
9 S- l* j/ g% u% {" e0 rdim last,first
: Y5 a" E5 H# X( Hfirst="!@#$%^&*()"
" n6 c0 K; k. Q  `4 |7 zResponse.Write "加密前为:"&first
# h8 c* x0 G0 i, plast=Encryptstr(first)
& Z. N5 R9 }& Y5 Z, r( r5 [( zResponse.Write "加密后为"&last 5 b% s$ R5 i+ V+ e* D
Response.Write "解密后为" &decryptstr(last)
9 P! w, G$ O! D%> ==============================================; j+ `8 }+ X1 a1 p* L' x
剩下的就是字符的对照表了
4 D8 {2 Y& M' X3 V===================字符集================) `$ s5 P5 R3 e
1_____6EBB
0 o6 o* u# j% ~4 N8 q3 T2_____5C1F8 K" |' H0 C# {  C
3_____4D75% t* \8 o$ ~3 u( @
4_____26CC4 C3 @, N8 Z/ [4 h7 N% i" J. U, ~
5_____4F88$ W6 o% u4 T& B( k! }
6_____3F4E% q. c; I# {* A1 _+ e0 x0 G+ s5 \3 t
7_____0A9D
$ N% x: I: }- |8_____1A1C
" s* X: [/ n6 d1 v# D- P9_____6D20
, t# [! q0 q5 a6 D0_____1089
" ~: S" g; I( W& Ta_____0F3E
* S8 M' X* y6 ?' l+ Fb_____3159
0 U' M' a) s8 d/ S% D0 |& bc_____35177 K6 ~& Q3 L9 U3 Y
d_____419C2 R+ ^- D) j8 [1 \9 J, A1 C' [
e_____615C" u7 H" H6 O1 m3 ?! I# f
f_____556F1 x1 [3 O7 J6 q7 y
g_____2B7F0 e. ^- n1 l% E/ F, j$ ]1 y1 r2 v. b
h_____0F9C
! T0 U% v+ |) A1 ui_____00FA
2 A& I2 Q. p3 O/ Fj_____5A50
) j# r3 e& b! dk_____2850
! X" b4 _& y% E& \l_____3E7B# x5 F7 K8 ?6 Y) P* d
m_____71C52 L# @. g6 d2 j5 h' c7 q
n_____1FC82 U  N  g" c8 f0 }: ]" t$ o
o_____74C1
+ ?6 A* x6 f5 Op_____5FB8! @* ^% W) d9 k# Q
q_____6085
1 Y( q* \; _8 }) O7 h0 Y! Y, lr_____3AC4
* q) t3 L- I/ n. J$ b4 ^s_____2F50
4 A6 P: S2 N- xt_____36F8# g" D+ a# o7 t6 ~9 t+ i
u_____7010' Z. n8 O6 i8 H. d$ I% c
v_____0B42( ~# d. T6 K  Z8 n
w_____1C7A
1 V. R* j6 ~9 i& S3 p) [7 Gx_____16F80 O/ i) J) H+ `* H3 j" L
y_____2EE7
( v- L- K( c% b+ W; Bz_____5CF3
% r0 Z0 l8 R. _5 i- L' T' a!_____6233  b0 n% x7 C0 M$ L  J
@_____3A45
. u3 N' p/ }2 K  n+ S" J#_____2291
  S1 f6 [& @) a8 O. g$_____5D5C
3 T: f0 ?1 N2 v  N%_____09B9
' l7 C0 G  m& r- A( f. a% c& R1 n^_____43EA
2 J2 A  G- {2 p&_____62B9
- g- Q2 f$ L6 W*_____6301
4 h% _8 z& l9 Z; Z(_____4659  C0 I) l2 i9 t1 F1 S5 h
)_____5C82

鱼儿无心

收藏了。。。。。。。。