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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
0 N! a) q, o7 Z* }" Z8 ^原始出处：http://www.3ast.com.cm
- d" W- l* m  O: {# \8 Q3 m) m
; x+ T! n2 v! U# {* ]0 W, t看不懂的直接绕过; [8 p# I& L# i7 w; p) R
加密前为:hwy123456
( g5 q* v5 P( F. Z! c/ G8 s+ `加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E1 A8 R- d, w9 @* e

' p$ T- W- w5 B# t/ D! }3 u5 ?============================================
$ f* M+ g7 j& U# J/ G! V上面是当时自己校内的心情。现在已经解破出来了，分享给大家0 ^* I2 O, e" B+ `0 T* ?0 N
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
: Q: h! {7 O# K) o! v0 m以下是RSA算法文件3 S+ g: c4 v. R: s* _
: h0 e, x$ t9 s
文件名RSA.ASP; ~5 R7 Q# N0 p
===============================================
2 y; u: U- v% T0 }6 a6 o, }<% ) D: m! g6 j, X- ]% e* q9 W- |
Class clsRSA
; C' q7 Y  T, D/ R# |: v3 r. C8 E; M3 DPublic PrivateKey 2 R* V. b3 Y: S+ h
Public PublicKey
* I# Q6 J8 x5 e) C2 M1 ePublic Modulus 5 s6 v" K% G6 x2 M
Public Function Crypt(pLngMessage, pLngKey)
7 x9 I+ f3 p9 ^6 h" N& J& p+ \On Error Resume Next ! X6 D; g  U7 I: M! W0 S: l& a& J
Dim lLngMod
  i( f  `5 V* u4 o: UDim lLngResult
' q% L8 p7 G# m2 g# V2 ?Dim lLngIndex 6 M/ |; i1 @6 N7 F' `" K; }. q6 @
If pLngKey Mod 2 = 0 Then 5 y+ D% @, y* N. H0 T6 s5 }& ]
lLngResult = 1
  R# n, G3 J. A; _8 d, |3 g) mFor lLngIndex = 1 To pLngKey / 2 3 O( g! E& Z1 v, V% Q
lLngMod = (pLngMessage ^ 2) Mod Modulus 2 x% Z9 b3 Y; C  `5 o, O
' Mod may error on key generation
8 J2 M/ [/ R9 ^& SlLngResult = (lLngMod * lLngResult) Mod Modulus 5 M0 R2 u3 e5 _4 I' ^, V; H
If Err Then Exit Function 2 K$ H, }' R- H
Next 6 ^2 R0 V# u4 y- R5 h
Else 4 b" v6 y- l. u; G  W
lLngResult = pLngMessage
) M  v. }8 q" j( H; WFor lLngIndex = 1 To pLngKey / 2
2 D* q0 K6 u# K, ulLngMod = (pLngMessage ^ 2) Mod Modulus   I% g7 C: }- M$ Q
On Error Resume Next 2 d8 c! u7 U* B3 C
' Mod may error on key generation
* K- f+ I4 L0 u8 z* n+ A2 J$ elLngResult = (lLngMod * lLngResult) Mod Modulus
0 ]0 A5 ^2 x+ ]/ q6 \If Err Then Exit Function
# s% U% i! K$ I. {. cNext
: m8 w# ?# ^1 h9 D( B( E7 l: OEnd If
+ O! Z; ]; I) k+ PCrypt = lLngResult
% e  n8 j' Z4 `) L" T1 @% yEnd Function
! ~8 S% N' X! u
$ C1 _) H; r8 g: n% n" {Public Function Encode(ByVal pStrMessage)
4 Z6 P" ^/ K* g' \5 {/ J+ nDim lLngIndex
2 `$ \2 Z9 F. I" {2 Z5 dDim lLngMaxIndex
; z  `" x8 Z# @Dim lBytAscii
1 ~  m; T9 m; `3 S  t2 xDim lLngEncrypted
! N! v. x1 N  \# f& b, Q$ WlLngMaxIndex = Len(pStrMessage)
, a& K9 I5 z- i; kIf lLngMaxIndex = 0 Then Exit Function
% I3 u# k  {/ c, N1 rFor lLngIndex = 1 To lLngMaxIndex
0 |7 Z* `6 o7 T6 l0 X9 NlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) # i% E& l5 _/ M1 W4 E9 K
lLngEncrypted = Crypt(lBytAscii, PublicKey)
5 b& s  i" I/ j  D8 kEncode = Encode & NumberToHex(lLngEncrypted, 4)
( Y6 z% ^! T, D+ F8 ^3 j( [Next
* x' r9 Q5 U: E% @* SEnd Function
& [& s/ _% d0 O8 n  KPublic Function Decode(ByVal pStrMessage) : Q  H3 O0 N6 M5 H" s+ b- t
Dim lBytAscii ( p; \- A7 x# r" x5 `
Dim lLngIndex 3 }, i0 J# |. i5 F. F: o; d9 H
Dim lLngMaxIndex 4 e2 D  B. A0 x1 B0 `
Dim lLngEncryptedData 6 a% u, m! i- a$ Q% e
Decode = ""
/ r$ b# ?2 E. v0 T- {* b# `1 MlLngMaxIndex = Len(pStrMessage)
7 C" q  \/ j  n- A2 KFor lLngIndex = 1 To lLngMaxIndex Step 4
4 J0 r: w( J6 g% YlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
4 |$ S1 [" A$ s( ^8 r2 J' t2 ^lBytAscii = Crypt(lLngEncryptedData, PrivateKey) $ @5 K0 T3 E2 i+ z" n+ W$ h
Decode = Decode & Chr(lBytAscii) 3 Y. k. d( C4 L
Next 6 H5 z$ b4 t" o" }4 d
End Function
/ \9 c& o8 p, G* D0 J& q- ], T% fPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) / F" l. \7 @6 _0 d7 o( F3 u
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
' f! x( ~! s# K" Z0 x- XEnd Function
- X& u, N% A/ k- l! sPrivate Function HexToNumber(ByRef pStrHex)
  P1 M3 t. c2 \& z) p9 P' G/ Y7 ?HexToNumber = CLng("&h" & pStrHex)
. ?: S; J2 q' T; x0 \End Function
8 s$ K; J1 @" t( X4 f, xEnd Class
% M: r, {5 q) ?; u9 O/ R! F" \function Encryptstr(Message) 5 \3 Y6 d7 N! E% S* t  q
Dim LngKeyE 8 W+ ^8 _2 y. F9 r2 i
Dim LngKeyD # ~. _7 H* P; a3 v
Dim LngKeyN . P9 B/ i) G7 Z( n
Dim StrMessage
$ [0 _, b' L; n  LDim ObjRSA
; L1 A4 C9 \8 m/ o$ C8 v/ ?# ALngKeyE = "32823"
$ r  m- ~. w* H' ~% PLngKeyD = "20643"
/ {' ^; M( U7 MLngKeyN = "29893"
+ n% @' B# }. p0 V, sStrMessage = Message
1 z/ e& f1 i9 X4 d5 s0 R% aSet ObjRSA = New clsRSA ' f" m& i" b/ U& x# X- s. D. c
ObjRSA.PublicKey = LngKeyE 0 ?1 Q, u- y8 F6 ~2 o
ObjRSA.Modulus = LngKeyN
+ U; f' H3 M8 g& _1 `6 k# tEncryptstr = ObjRSA.Encode(StrMessage)
8 G( ?  x4 I/ X3 G1 hSet ObjRSA = Nothing 3 v! u# ~! P& m: b5 z& r6 u3 o
end function
' C3 e2 Q, m. Y: k. q2 u/ EFunction Decryptstr(Message)
8 r& ^  r/ m# m" H1 K3 H& oDim LngKeyE 5 P: S# Z' U, c6 u
Dim LngKeyD
9 e% Z, F8 j% ?( b' dDim LngKeyN 3 [* L/ r% |! i% g# L3 h# P
Dim StrMessage
2 X8 w1 t7 S- n! J6 CDim ObjRSA
; B9 I5 i- M9 ?$ A# aLngKeyE = "32823" * a; w8 y4 y1 J* K( m
LngKeyD = "20643"
* r- S# o  `- B, U5 b/ ELngKeyN = "29893"
( x7 ]  _* g" q" i" d2 N( v3 f  ~StrMessage = Message 3 T. _7 m" r1 z/ K8 @7 H2 W% h
Set ObjRSA = New clsRSA
$ z4 n2 v  w- b8 C8 Q% bObjRSA.PrivateKey =LngKeyD
% N+ D; G0 g* b( w; [ObjRSA.Modulus=LngKeyN ( e) l9 D" h# T* r9 G* F# N6 G
decryptstr=ObjRSA.Decode(StrMessage)
& o7 [& Q1 ^3 y8 {; Z7 @Set ObjRSA = Nothing
" y& Z- Z( h9 `/ Y. r! ]3 w  aend function
0 _- e, N% _4 g1 E%>
* h+ Z# V- ~1 b8 X, p- }===============================================* W* R7 j. z0 K7 \' k/ j  F) {, E

  }" Q3 S- V: x4 U( v. I还有一个用于测试这段代码的test.asp
6 b& D4 ]4 i- c6 r0 U有兴趣的自己搭建个IIS测试下
, ^, o! c/ T5 T  C9 R8 K& i<!--#INCLUDE FILE="RSA.asp"-->   _6 U7 ~- D% W
<%
7 }3 \; H! U4 g& o+ H4 o; ]1 ?; B: Yfunction Encryptstr(Message) - O$ ~+ L& [2 P0 L! d( d' Y
Dim LngKeyE
6 {; [4 ^- K- C4 F' W( P0 r& `8 s% q; }Dim LngKeyD
3 `9 N+ A4 D& O' A. h3 HDim LngKeyN
/ P) r+ c9 f0 SDim StrMessage
& w; m; D9 O3 k6 o, }Dim ObjRSA
! x9 l* G8 ], o) t$ a, BLngKeyE = "32823"
) K/ j' g9 [8 c8 J0 c# X4 _* {LngKeyD = "20643"
& d; t% a9 M9 V9 BLngKeyN = "29893" 9 Z( E5 P7 S% R% h& ~# B/ |$ u
StrMessage = Message
& c1 Z# N- v7 ?# j5 G, x7 F7 Z. Q! cSet ObjRSA = New clsRSA
0 `& h5 A  v. f6 t$ I0 w' WObjRSA.PublicKey = LngKeyE % Z/ n4 Q7 K/ i9 O, ^) A# z; G
ObjRSA.Modulus = LngKeyN
) N8 Y2 v+ n2 f0 Q5 ]Encryptstr = ObjRSA.Encode(StrMessage)
& N9 m& m5 L* NSet ObjRSA = Nothing
% F9 A8 Z7 }- Uend function 4 j/ Z! q3 ^& C. N: Z
function decryptstr(Message) 2 n% g$ n" k0 ~) |* q
Dim LngKeyE 3 {) L( C; t* ^
Dim LngKeyD
8 Y$ W  a0 L( J$ j! _Dim LngKeyN " Q( y. r/ w' ?& B
Dim StrMessage , c& r; A* L) d* B1 k* b2 G$ J; F- n
Dim ObjRSA
7 {2 A4 B! Q# T( c, r; j3 M6 uLngKeyE = "32823" ! r0 L% D2 B6 u) b! h- G1 N6 j* h
LngKeyD = "20643"   [" l$ V2 v! z% L* ]/ K* e
LngKeyN = "29893" . _' M" [: [4 \* a3 T
StrMessage = Message
4 A; D) d- Z' [7 B2 YSet ObjRSA = New clsRSA 2 P+ s5 h+ J# b
ObjRSA.PrivateKey =LngKeyD , T3 G$ p. Q# @, d- ^8 R
ObjRSA.Modulus=LngKeyN . W) |, X) S9 i. q" k/ D
decryptstr=ObjRSA.Decode(StrMessage) 1 J" S& x2 ~+ R$ S+ @* m7 X
Set ObjRSA = Nothing 2 Z% z. x: a' c4 Z' z
end function * K0 [5 W( ?1 V; h7 n
dim last,first : {% h$ r5 H' g: M# q) r
first="!@#$%^&*()" 1 a0 [) N1 b$ B( y2 }% k1 p+ [: O
Response.Write "加密前为:"&first - ?* C  a6 ~* [, @. J: n
last=Encryptstr(first)
9 t$ p' S$ g0 y+ jResponse.Write "加密后为"&last 1 G1 U/ J- w7 r1 ~. c& T4 w
Response.Write "解密后为" &decryptstr(last) 2 N+ p% ?9 G2 i' J5 j  X* d4 @
%> ==============================================
* F5 |7 [/ P# y* l剩下的就是字符的对照表了/ {- {( c0 [9 _2 |; C" N
===================字符集================0 p$ _% L3 E, x9 F: D* M
1_____6EBB2 g( Q8 u1 b- M& w8 X2 F$ ]
2_____5C1F: K, P& o+ E% z2 S! g
3_____4D754 `7 d& x4 v  Z5 y6 t- n; z
4_____26CC
' s$ D1 ~. w4 W6 ^5_____4F88
, ]0 V( ?- Q8 Y) ^6_____3F4E" o2 l  n- t9 }( A
7_____0A9D
8 r" a9 J8 M- n2 Y7 _4 ?8_____1A1C
& z2 g9 q3 M' V  t5 |! H; u7 [9_____6D20
! f1 v* d$ t1 o3 Z) K0_____10897 A7 ]( x% M/ ]$ ?, \' @
a_____0F3E
) {1 s1 m: }+ T/ v: M+ bb_____3159* Y. P  `# W7 Q  o0 e; H; D
c_____3517! F4 i% T- \, f' [& q' P6 W
d_____419C
; N( t' t! t! J; ?4 F/ h  ye_____615C8 g, S3 ~+ \' H1 _4 k  x. I/ t4 j
f_____556F
" Q$ l8 Y0 ]- I# ^9 kg_____2B7F
4 O+ p$ J2 |3 L/ ?8 wh_____0F9C0 j& M0 B7 v/ d# H$ ^
i_____00FA; y/ q$ {8 B3 b; J2 c( Y& G4 u/ ]
j_____5A50
9 a  P2 h  Y: d# Yk_____2850
9 _8 S% K2 D* a6 i' m' Q. U# _5 O% Hl_____3E7B
5 K9 O' \% J9 T7 \" o1 zm_____71C5  h2 C# y( a% ?4 ?7 S
n_____1FC8
- X7 }) E& H& m, k2 Q# @  R) Fo_____74C1
4 {  z7 u& R" x1 O4 L2 r# Up_____5FB8; f6 R7 {! x) v- J4 X5 f3 u5 R
q_____60857 U$ ]) r! ~# @) m  Z8 U
r_____3AC4) h% w4 r8 E% S. |
s_____2F50" ^* s  O1 K' Y) u% o
t_____36F8+ ?$ ?1 ]( ^. j5 n8 ~
u_____7010# ^) a+ E$ m  K' \9 G/ x% e
v_____0B42
% |7 [6 y% X$ j4 Qw_____1C7A
- ], g- M5 Z2 u. V  Xx_____16F8
+ q. ]3 J2 `9 Q& m1 k) V2 Ny_____2EE78 ^% n9 [* C5 p# t4 u( ?3 f/ `. i5 R# v
z_____5CF3
! a+ ?2 r. A' j7 D4 N2 f% W!_____6233* q0 B, M8 t3 g2 A: U5 o$ |" z! G$ y
@_____3A454 H- O; P% @* [* o5 r, g
#_____2291; x( K- n- m1 }9 }
$_____5D5C
2 g( |) v( {& V. O( v%_____09B97 C# ~! V  [" E" `5 s- V
^_____43EA! p! V# a( G% S
&_____62B94 ?( D8 p. P4 ]% E2 i3 L( A' j& ~
*_____6301- d( }9 q8 Q6 _: ~' c& k0 z( v
(_____4659
* T& C& O5 t- S- r)_____5C82

鱼儿无心

收藏了。。。。。。。。