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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
8 Y8 d- E! @. _! S" n) I6 E原始出处：http://www.3ast.com.cm
5 D2 U3 E, Q3 b6 z
  l( z; T7 L! j8 i看不懂的直接绕过( ~* d  n; Z3 ^6 A& M2 i6 l
加密前为:hwy123456
1 m: {* \5 R: a8 K) V4 l加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
+ m9 F8 {% H; j9 e( m2 R8 ~0 Q
============================================' y& R- z7 c" M: S- D- _3 g1 u
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
( V4 A6 p. Q! l6 S! P# o也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法- G5 Y  {6 R7 n. q) h1 f) d, n' C
以下是RSA算法文件: O5 Y6 h0 c1 {- i) R" u

+ D% C0 W- I- g5 }. @$ H* N文件名RSA.ASP! C5 m, g; o( F) x
===============================================
2 n; q0 i1 `& T: i4 m<% 5 W* y6 v  y5 C( u4 m0 ]1 r* W5 `
Class clsRSA
" Q) F$ R7 R0 R0 v6 ~0 ]Public PrivateKey 2 h; _1 p: f! }
Public PublicKey 3 E0 g2 R4 F9 g' @+ T7 B
Public Modulus
! x/ t6 j9 C" n  _& H1 GPublic Function Crypt(pLngMessage, pLngKey)   J) F+ z, K$ x! M: Q
On Error Resume Next   b7 Z# O0 _  _0 d. J- K+ t$ u
Dim lLngMod 9 d! I$ b; F# j. c2 S) o4 |
Dim lLngResult * G- G$ i' A; B: s! @0 [
Dim lLngIndex
# G. b: A# W% G* {# UIf pLngKey Mod 2 = 0 Then ; O: M6 ^2 g& S' I% }/ x( U1 L  v
lLngResult = 1 % J- S' Y& A; X5 k
For lLngIndex = 1 To pLngKey / 2 ( C% `1 w+ ~1 l' O  ?! ~+ E2 K
lLngMod = (pLngMessage ^ 2) Mod Modulus   r; ^$ m* k* L, t# O, |
' Mod may error on key generation 7 g1 O7 \5 J" i7 A/ |6 n' g3 d
lLngResult = (lLngMod * lLngResult) Mod Modulus
+ i% g: S* j6 W% v! k# p: A( |If Err Then Exit Function 1 i  v* S/ p- X; j
Next ( P6 N! _( E0 T, d, }" r' T) I
Else 8 E) g; K+ x' C) A+ f- k- ^
lLngResult = pLngMessage ' x* X. q. z7 \# V4 Y: C
For lLngIndex = 1 To pLngKey / 2
" ~- g; V4 I$ \( YlLngMod = (pLngMessage ^ 2) Mod Modulus
4 T- y5 J  {% {1 |: Y" t' p! EOn Error Resume Next * `0 e! K7 g% r. B. `
' Mod may error on key generation
, g: G' s, L1 q3 j7 g+ @" m$ o8 }lLngResult = (lLngMod * lLngResult) Mod Modulus
5 a4 L" c% P' l- J1 nIf Err Then Exit Function
& {- ]; Y% r, z' MNext 1 W3 H  Z& a+ A$ V4 d4 y& K: g
End If
5 V, A9 V" W8 J2 C% NCrypt = lLngResult
# I& @: G) x( ^0 f& L# }9 O3 u0 }7 O7 |End Function
% F2 o- [; K% |: Z7 X6 U) C  ?- \5 i0 W/ ]6 S# U% o
Public Function Encode(ByVal pStrMessage) 4 D6 D; N, t' q+ @1 k5 u! ^3 q
Dim lLngIndex
+ n" N9 `, C7 ZDim lLngMaxIndex
) {: \; J* i2 @' X( w$ |+ tDim lBytAscii ' h+ N3 o$ A0 `$ S3 q7 q
Dim lLngEncrypted : h, t  \, |0 K
lLngMaxIndex = Len(pStrMessage)
) V# Q6 j3 S' i2 c/ qIf lLngMaxIndex = 0 Then Exit Function ' ?3 P9 L" {" q8 E+ H/ A- a" V  [
For lLngIndex = 1 To lLngMaxIndex # m, s; |% }( g9 j4 R
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 3 O  N: y8 r, \3 g' m# a' ^6 A
lLngEncrypted = Crypt(lBytAscii, PublicKey)   m) A: ?6 Q8 l0 V
Encode = Encode & NumberToHex(lLngEncrypted, 4) ) A% {  `1 G, H: M: P/ W
Next
) I2 t( i% N. S( X" ]End Function * [; y2 J) K  T
Public Function Decode(ByVal pStrMessage) 0 X' m8 t9 \5 Y+ M6 T8 y
Dim lBytAscii 5 j+ J+ l3 S1 e0 v7 @% F7 o0 ?
Dim lLngIndex
$ S, B. n7 }, Z7 c0 H; ^Dim lLngMaxIndex ) y$ D( b: Z# @
Dim lLngEncryptedData
  k% [8 l" L4 M8 c! gDecode = ""
' v. X! a: D+ p& u. ElLngMaxIndex = Len(pStrMessage)
4 ~7 }) @$ ?. ^5 V  F2 {7 Q* aFor lLngIndex = 1 To lLngMaxIndex Step 4
/ Y! h9 E  S& o4 r( w4 U2 HlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) " g. Z, s2 _) h& i8 y
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ( w/ w. A3 x7 L
Decode = Decode & Chr(lBytAscii) / @/ x8 E- y  w- v
Next 9 q- @; W: W3 i: t
End Function - ?3 Q5 {- x* A1 X/ A
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) + d+ l) L9 @, q+ m6 Q/ b& L
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
  l, r. U3 U, g; G/ s0 J2 z4 F+ B1 @+ cEnd Function
8 _  K9 a/ j" ?! YPrivate Function HexToNumber(ByRef pStrHex) 6 j3 \' O" }5 M5 _
HexToNumber = CLng("&h" & pStrHex) % H$ n; R; `9 h/ q0 s  c
End Function
3 d3 L) q/ Z7 Y2 F( N+ d7 O/ hEnd Class % m! t. [! ~. K# S+ L$ `- C
function Encryptstr(Message)
. S( f- @! J9 X2 W6 sDim LngKeyE 7 C1 E% j  ^7 k4 Y
Dim LngKeyD
7 C4 A& s. T$ a5 T' ADim LngKeyN
$ \- q% x9 t7 N4 l4 VDim StrMessage
2 e" l* F* p* j% ~Dim ObjRSA
1 i3 }# C6 ?" q2 N: {LngKeyE = "32823" ; j5 \3 `& U- d# W1 m
LngKeyD = "20643" 2 U, v% \3 x' [8 x
LngKeyN = "29893"
2 ?  G2 {/ @% ^0 k; ?$ xStrMessage = Message
( N1 \& M# ?! x' b. RSet ObjRSA = New clsRSA
6 {1 M5 y3 r, rObjRSA.PublicKey = LngKeyE 7 x+ x: [$ `* b
ObjRSA.Modulus = LngKeyN 9 T9 J" C: s  ?7 B
Encryptstr = ObjRSA.Encode(StrMessage) ' Y5 x6 D, H4 I. c
Set ObjRSA = Nothing
7 v! A* r  A* [" j$ `end function
' f3 s( X) K) J; g) H( BFunction Decryptstr(Message) ' \  e% y% C5 D. w  Z8 i% l* H
Dim LngKeyE
/ z, a7 W/ }4 N+ n1 u. A. P8 GDim LngKeyD % u# j5 Q- Z3 F4 I
Dim LngKeyN , {9 o2 u( [/ b/ e
Dim StrMessage : p) W! O) ~0 M& L" ]
Dim ObjRSA 4 N+ Y1 Q" |7 L- k2 d6 t% M8 i
LngKeyE = "32823"
* A- B: A8 o# ]/ x" s" z* rLngKeyD = "20643" " m1 b4 h3 \( Y2 q* S, F. w
LngKeyN = "29893" 0 |$ g* x* Y9 B- T9 A4 H+ l
StrMessage = Message
. x0 s; g" p; ~2 \! |4 }9 nSet ObjRSA = New clsRSA
; G9 F4 b0 l$ j1 uObjRSA.PrivateKey =LngKeyD
, o' J3 l# P# kObjRSA.Modulus=LngKeyN
. [, u: t4 B1 j* ndecryptstr=ObjRSA.Decode(StrMessage)
* e( {! ?% R- `; E8 Z3 f3 QSet ObjRSA = Nothing
# X" M9 H7 k' u7 N" Zend function
9 p: M1 t% U) e8 E+ x, _& c%>
! Y- V* ?. ?0 n: _2 P===============================================" C1 E, Y2 t7 ?& Q& v6 C$ a/ f, @; t) ]

$ A! w9 y. R9 b: G/ b, b还有一个用于测试这段代码的test.asp- i8 D* ^- N8 z
有兴趣的自己搭建个IIS测试下
& [- T+ ~! o" b<!--#INCLUDE FILE="RSA.asp"-->
1 b0 T. T% |8 H  l! O<%7 b# @0 z! h+ U- p3 M3 L" A
function Encryptstr(Message)
: B! o7 |# a( \5 O- J4 ^Dim LngKeyE
7 l  O1 H/ V8 r9 X' jDim LngKeyD 6 E$ j# O& F1 J( y3 _) }0 e& l3 y
Dim LngKeyN
- B# p8 j: ^4 @7 a) VDim StrMessage
5 C) |+ y" ~' FDim ObjRSA 5 O+ [/ a+ L. a# j- W
LngKeyE = "32823"
; @2 q7 S3 y/ e; cLngKeyD = "20643"
1 M4 F# l: t4 E: [0 H8 }LngKeyN = "29893" ! v4 v  b+ e% g3 f$ ~. ~
StrMessage = Message 0 E+ Y6 @* @" g- F% ^
Set ObjRSA = New clsRSA $ B  K7 o& m, t" S
ObjRSA.PublicKey = LngKeyE 9 D  X  t$ A# g8 D: G/ ^
ObjRSA.Modulus = LngKeyN
: e2 V' s& e' w; D1 j0 u8 @Encryptstr = ObjRSA.Encode(StrMessage) * ]6 E" E" p& }4 W. _$ k6 y
Set ObjRSA = Nothing
' T. ~- p" j$ d* |- F2 B- k: R  I" pend function ' M; V, h( }; L
function decryptstr(Message) + p. O! M- N% i' _$ }; F" ?7 o# h$ n8 u
Dim LngKeyE
. V; S) e3 C& }' z' bDim LngKeyD
% ]$ }" F% Q% v4 j* ~1 b3 nDim LngKeyN
8 W7 Q7 b! H) C: u! q- T7 HDim StrMessage % }. T- C- h* s; u! f0 U
Dim ObjRSA
2 s# P* B2 t0 P5 [LngKeyE = "32823"
! b$ j9 i; T  W# m' D  rLngKeyD = "20643" 9 C5 p4 p3 v& N! G
LngKeyN = "29893"
6 c3 V  J! |0 ~. B9 PStrMessage = Message
' C/ j6 Y! b" d1 J6 A% _, \5 r; dSet ObjRSA = New clsRSA 2 `: C  w! ]# }' }9 m! ^; V
ObjRSA.PrivateKey =LngKeyD
% |  }* ^5 _) J5 LObjRSA.Modulus=LngKeyN
( v" S+ e, T4 ndecryptstr=ObjRSA.Decode(StrMessage)
, o1 Q* F5 T. S9 Z! ~Set ObjRSA = Nothing
/ b8 t% m- _& P4 I8 vend function
) P% }" }) u% b3 D, Kdim last,first 9 v  ^# `0 v6 o1 E
first="!@#$%^&*()" 8 e( Y6 i1 d$ {( D) \2 l  l% L* P
Response.Write "加密前为:"&first
9 D7 R, b. |% K3 U2 \$ t1 P6 s/ elast=Encryptstr(first)
3 l! C3 h& n- |/ ]3 T7 gResponse.Write "加密后为"&last
* F! z& k# {: S& N( zResponse.Write "解密后为" &decryptstr(last) 8 X% B1 J  v3 [6 x% N& J
%> ==============================================
  k4 y8 f4 o$ ?  b  ?+ W剩下的就是字符的对照表了
# m0 [$ u; F' @( Q/ N6 L===================字符集================6 V( F/ ?0 K* }8 O6 _  g
1_____6EBB
7 ]: I& C; ?6 u1 x$ U2_____5C1F2 S! Q% ~3 q7 w* [
3_____4D75
* P5 Y, B1 a, H! j* Z7 _4_____26CC
- f3 {5 q! M6 k6 K5_____4F88
( F( u. C- u9 D! h7 g* m6 y6_____3F4E# I3 S, B% u. G7 G; z
7_____0A9D
2 o' A( ~/ D2 h$ C* J8 o. j# x% ]/ Q8_____1A1C
+ L* A1 ?) \7 r+ q; C( y. [( U9_____6D204 g; u, D% t2 O4 m- V4 t+ m
0_____10890 \" F8 s6 D& U* q* D0 R
a_____0F3E
+ o3 s. r# [" A- m" O) G3 Ib_____3159
! r0 `1 V, X, d; u) Zc_____3517, v: E* ]1 o& |" y) m
d_____419C# c$ B+ [0 j, @# Q# L
e_____615C
% n3 `, c( ~0 ^9 e: @* S* Sf_____556F3 E0 _* u% Q# `6 ?
g_____2B7F
2 P/ o/ K' m, ~* y% x% nh_____0F9C# d, `" o# Q5 d  f6 D% d
i_____00FA% N# V' B4 m) h* Y. n2 |5 ^9 z
j_____5A50
; m7 F6 ?& ?$ y. R& _* m2 |2 ck_____2850) Q9 e- I- S4 v4 {7 m
l_____3E7B
" k" d3 L" F) g, qm_____71C5' r" W5 C1 b* S4 x1 K) `) D1 U
n_____1FC8
6 t8 G& K8 F- d: Q9 To_____74C1
% E$ U: m( V' x* j% Kp_____5FB8) S2 Q3 P/ b8 ~% }- O
q_____6085  B$ ~- D- Z; d
r_____3AC42 {) G0 E6 |' l! e
s_____2F50
9 Z! p* O8 P& W0 B" pt_____36F8
& q5 O# G5 }  V4 c. bu_____70104 P; @0 c1 }  t- S) x
v_____0B42
( R+ q. s& v1 V, J: G* m( n. F6 aw_____1C7A
# ]& v# j) E/ S5 ~- [x_____16F84 R$ z2 ]% H/ P6 g7 @3 k
y_____2EE76 z8 g. |2 d, w# g) f
z_____5CF3, g# v- U( H7 X' G! c+ }( b  N( ^
!_____62337 T$ D# _. f. \, H1 @
@_____3A45: ~8 ], u2 W( W
#_____22918 F$ l. [  V' q& i
$_____5D5C
) x9 ^& p$ e2 G2 ?* _%_____09B92 @( z1 W2 g( X1 [5 ~! T
^_____43EA% z# r- N. M0 Z& F$ x
&_____62B9
: D) w9 I( P0 w' Z- D( Y2 r*_____6301" g2 ^9 U. ?/ y* s- Q4 Q# t
(_____4659
9 g- p& E- V& k)_____5C82

鱼儿无心

收藏了。。。。。。。。