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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm$ I0 N2 T  g- H( ~2 E" ]' v) ]
原始出处：http://www.3ast.com.cm  e+ N+ i% E) {# s

$ q1 O9 s9 d( F; f看不懂的直接绕过
" ?  ~! V) G6 ~  y" t加密前为:hwy123456
  e1 {7 z' q4 x' B- y7 c5 q; q加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
' M% u2 ~; n# g; r% {
4 E1 M" A2 l  y1 Z' S; {8 V: e============================================9 Q, r! R7 V- o9 }; m2 `
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
- B# i9 \0 }' ~也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
" z7 H$ m- y( r以下是RSA算法文件  d1 Q) f- n8 Y( A7 l) J$ l5 }6 c
; U7 R3 U2 a: J" E, Y
文件名RSA.ASP! U% k$ v: H" [8 t; B- H
===============================================9 q* s+ ^; ^6 X5 @2 N4 n3 }/ R
<% + _. M7 j, u/ v* ^/ c# f. N0 l
Class clsRSA
+ ?8 v+ X& K  d) gPublic PrivateKey
3 Q) j6 I6 e  @+ x: C/ e) L5 p& GPublic PublicKey
+ s# j, i' E1 o" TPublic Modulus
0 \/ H, e( L4 I, M# rPublic Function Crypt(pLngMessage, pLngKey)
! P! D  Z# W# m  l, t, eOn Error Resume Next
& ~& T* ~; S* W) LDim lLngMod / \5 x9 P- T- ~' y/ K
Dim lLngResult
5 q) c0 \3 b% g7 k/ ?Dim lLngIndex / d& U+ ~+ s& c9 s
If pLngKey Mod 2 = 0 Then * s( N( n/ B1 H
lLngResult = 1 ' V/ _* y' P- a6 _
For lLngIndex = 1 To pLngKey / 2 4 ~5 E/ ~0 V# u; ^. C+ Q
lLngMod = (pLngMessage ^ 2) Mod Modulus 5 O0 N5 b$ y( }7 ^; R! i
' Mod may error on key generation . v4 c+ `& t" s8 u  l
lLngResult = (lLngMod * lLngResult) Mod Modulus . l. }3 f/ Z4 P  b' f
If Err Then Exit Function 3 a. ]2 I) p6 L1 G" J% u& b* M
Next
6 x, a2 ^1 W% j4 [+ ]0 ~Else . ]$ j3 y+ M; P# K  q; G
lLngResult = pLngMessage
6 ~1 w) r& u0 w1 i5 R3 [  {2 _For lLngIndex = 1 To pLngKey / 2   T# r6 W2 g  L8 D
lLngMod = (pLngMessage ^ 2) Mod Modulus , g# h' n! t, Z) T- o6 a
On Error Resume Next " S+ L8 `- Y, x1 N  o7 ~# K
' Mod may error on key generation
4 ]7 Y; b- j3 U6 v& O  wlLngResult = (lLngMod * lLngResult) Mod Modulus % F. i& i9 p1 h% `( ?* p
If Err Then Exit Function 9 @7 U8 n- I9 I2 D
Next 0 G! i  J7 E5 V: g5 D
End If
+ d( e! U$ d, Y4 e; R+ TCrypt = lLngResult 9 d! w/ t# A" l' j' T
End Function
% j# `, Q+ J: ?1 b% M; j2 `
( s% K9 n/ [7 J/ P; x3 |' U! N' }Public Function Encode(ByVal pStrMessage)
$ R8 l' E& V# T) I7 }3 R' z# }Dim lLngIndex
. Z4 B6 m  x1 f- n7 RDim lLngMaxIndex
+ A( S9 x& z+ Q( E8 CDim lBytAscii
- c% a: W3 d! [  IDim lLngEncrypted . r, {! w; c) F. q! x9 E* W
lLngMaxIndex = Len(pStrMessage) 4 v& k. ^7 i5 P8 D4 ], `8 ^
If lLngMaxIndex = 0 Then Exit Function
- e- O/ H- C9 q! d  rFor lLngIndex = 1 To lLngMaxIndex 0 f$ g7 l0 k  C3 |3 {6 A0 p
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) + P% P; U/ }# l0 ]3 k' W$ ^
lLngEncrypted = Crypt(lBytAscii, PublicKey)
2 R( ^6 F6 L8 m7 w- ?7 mEncode = Encode & NumberToHex(lLngEncrypted, 4) " M$ d) Q6 V7 g5 z! G
Next 1 a; \3 @( \* V2 _1 Y: `) W# N
End Function
" B, J0 F5 o7 K! r( i3 K9 @Public Function Decode(ByVal pStrMessage)
. l  N: U' |: x, J: C* ]Dim lBytAscii
: ^* k0 P8 D2 i! B- W- j0 @9 l7 aDim lLngIndex $ I8 M, u+ w0 r" P
Dim lLngMaxIndex
) t6 e& g9 U- d6 W6 o* ]  L; I9 hDim lLngEncryptedData ; f2 W' Y4 t0 m* j7 `* i
Decode = ""
/ e8 j$ o/ N5 Y5 x3 [1 e( YlLngMaxIndex = Len(pStrMessage) # R1 a, q, [0 H4 c. i& [0 G
For lLngIndex = 1 To lLngMaxIndex Step 4
$ A4 m9 i3 V5 }/ w4 HlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) . ]6 x1 }8 M. m! P
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
% j  H: q% u- z: P5 ^  ADecode = Decode & Chr(lBytAscii) 0 v6 H' u/ U5 q) M
Next
+ x3 \7 [( z( R6 e6 \- `' aEnd Function
+ O6 M1 X, |' G1 |+ zPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
, x# n& i0 ?! b% M  g( b) YNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) , Z! ?" j' O4 E$ D0 q
End Function ) @% x! k7 b# ^' K0 R
Private Function HexToNumber(ByRef pStrHex)
7 Z+ U9 c! P# W3 \, q! CHexToNumber = CLng("&h" & pStrHex)
. Q2 D3 p: s( NEnd Function ' v+ ~. g: |% @- H: _' t
End Class 2 u$ s; D( [9 ?9 A# |4 {0 k
function Encryptstr(Message)
1 A9 m' `& F! S, Z# EDim LngKeyE + H( z/ y3 d3 F* m- n" q
Dim LngKeyD 3 |9 o6 u* A; s& w
Dim LngKeyN
# a) ~: \- J+ G$ m# U5 jDim StrMessage
& `6 F' f  R4 m' zDim ObjRSA
3 w6 ^$ e$ K& C- Z0 w# OLngKeyE = "32823"
9 N0 Z! E1 a7 W( {' CLngKeyD = "20643" 3 `. Z1 q! A5 v6 Y. V! N1 R8 a
LngKeyN = "29893" 5 k* E( Q* ]9 k# |# R$ N4 F
StrMessage = Message
7 ]; A, ~7 V6 CSet ObjRSA = New clsRSA
: _/ ], l" G) X  a8 N& W, JObjRSA.PublicKey = LngKeyE
" ~4 G/ w( J5 [7 R: H" HObjRSA.Modulus = LngKeyN
  n% B. z+ }5 }& jEncryptstr = ObjRSA.Encode(StrMessage)
+ [2 c' G- w9 n) lSet ObjRSA = Nothing * i/ s4 f5 i9 v- o
end function
2 x4 S& B+ E8 X  `Function Decryptstr(Message)
% q) d% h$ |# A3 \4 CDim LngKeyE 5 r- `, F6 M4 r/ o. I$ b
Dim LngKeyD
+ a9 s5 }& T3 h& a1 d" r8 JDim LngKeyN
: X8 x6 }- j2 ^5 V* M4 }0 L0 aDim StrMessage
( e- r% x5 F: h% B) RDim ObjRSA
' x* a. h% A5 KLngKeyE = "32823" 1 b% n0 i) {: F; I$ U) q" a6 ?
LngKeyD = "20643"
5 r8 f# ~1 Q+ s! p2 CLngKeyN = "29893" $ c9 U8 Q, [5 \
StrMessage = Message
3 E* v; q3 a0 t) MSet ObjRSA = New clsRSA : Y; u7 w, q! P) ?% C) z! i# A4 ?
ObjRSA.PrivateKey =LngKeyD
( u7 F$ r0 X1 j" @5 ^ObjRSA.Modulus=LngKeyN 8 n9 J& l+ k+ q, [& S6 ~: P* Y
decryptstr=ObjRSA.Decode(StrMessage) 8 p! y% g" ?5 ]: e
Set ObjRSA = Nothing
+ d' c  ^6 r0 {- Yend function / D1 s% K+ J8 o' A
%>7 \3 S% G# t3 B, y" J
===============================================
1 U% h3 j1 ?8 X- T1 J% D/ T# {; ]+ m# z* a! N) b
还有一个用于测试这段代码的test.asp+ l$ }' F) X& I8 u* x' E) x# w( S
有兴趣的自己搭建个IIS测试下# l5 T. }, u* ^# A/ J( w5 P
<!--#INCLUDE FILE="RSA.asp"--> ' L- I! n4 I1 V7 b
<%
$ ~7 @3 w7 J) k$ p  Ifunction Encryptstr(Message) ( K3 A6 I0 s0 N# c- }  R
Dim LngKeyE ! r9 p% ~9 y8 T! I. E2 q
Dim LngKeyD   C: h4 f( x$ G9 _; N  W
Dim LngKeyN
1 a$ u6 Q( U4 \  c/ Z8 F& N5 `, lDim StrMessage / f! p8 G' a3 i5 E$ W* B
Dim ObjRSA ( l8 H; f# _$ w. T0 v
LngKeyE = "32823"
8 T* _2 ]" ?3 s0 DLngKeyD = "20643"
- [% N% g% V2 k& \6 @LngKeyN = "29893"
! L, j* O/ s8 Q5 T7 AStrMessage = Message 6 K2 A4 e. X1 x3 N
Set ObjRSA = New clsRSA
" Y. X- `( ?4 Z6 ?6 f: b1 B" CObjRSA.PublicKey = LngKeyE
! I- @/ |7 T# V$ n8 eObjRSA.Modulus = LngKeyN
0 c  E" Q3 F1 ^3 f5 }; T; nEncryptstr = ObjRSA.Encode(StrMessage) . Y2 V3 x- u6 j8 v
Set ObjRSA = Nothing ( Q1 o; ]8 Q4 Q0 D# \+ B7 t% g) j# O
end function
/ ?  H" b# W& m0 d9 k8 H$ Lfunction decryptstr(Message)
( R0 {- ?0 f3 i0 v/ {Dim LngKeyE
  S  I. l9 f# w7 m+ L8 lDim LngKeyD
) @8 @6 A+ {7 s, x: {+ h5 Y9 QDim LngKeyN
9 }& E& |8 `3 j7 t; Z: x/ J  xDim StrMessage 9 Q! \; @4 _/ R
Dim ObjRSA
7 p, S! ^9 h' f* T! y- {LngKeyE = "32823" ( N1 {" G4 k5 k- h. `% |" k. {
LngKeyD = "20643"
' o3 n4 b) c( iLngKeyN = "29893" 0 x, z; l+ f9 v$ }5 k0 _# L
StrMessage = Message 3 J  M' `  ^) K8 }3 U
Set ObjRSA = New clsRSA ! |( t/ c& `+ F4 Z/ X
ObjRSA.PrivateKey =LngKeyD . K& O% I/ v( M
ObjRSA.Modulus=LngKeyN , @# j4 d# Y) M3 V+ ^! R- [, H5 I
decryptstr=ObjRSA.Decode(StrMessage)
' E/ j6 ~$ q. h3 h: HSet ObjRSA = Nothing
: C6 Y' W+ f# `3 p4 J# l# mend function 6 T; f* O! g  |+ M5 `8 X# z; e
dim last,first ( H, Y$ @! U) P0 X9 d
first="!@#$%^&*()" ) t/ G; f8 Q/ h! j; H" `3 i
Response.Write "加密前为:"&first , T  g1 P" @4 N# U9 J& m
last=Encryptstr(first) ( [" [. i! C( [4 ^6 x) P6 d# n
Response.Write "加密后为"&last 0 D3 X5 I2 C$ }3 v$ _/ w  @
Response.Write "解密后为" &decryptstr(last)
/ v  h9 c3 _* P4 I. L4 d/ v# p; m%> ==============================================
" N0 N& k; P2 E' s( _剩下的就是字符的对照表了- l* }) k0 ^6 E7 {4 _$ y4 ^
===================字符集================
3 o1 j3 h/ F  m/ x+ y1_____6EBB
; s& U$ F1 K/ s1 n4 K; Q2_____5C1F1 `0 z+ M$ r6 l
3_____4D75
# J6 |3 L/ B) P( v& t1 K4_____26CC  |  ?" g+ I4 \; ]; r3 T; z  ?
5_____4F88& Z5 b9 i  E. l
6_____3F4E/ a* t4 W* R- \2 H  {' G
7_____0A9D
1 F; b' f4 k1 A. ^8_____1A1C, J8 j1 n+ s% ?7 e
9_____6D20
) T  s& B0 g5 ?1 n' y  U* y7 c4 J! Y0_____1089$ @: @; g( U+ A* J. D+ D, r" F
a_____0F3E
1 F3 X9 X3 q1 @" V7 W* s" }9 bb_____3159
  A* ?8 ?9 d; }; [+ i$ |' @c_____3517
2 W4 W0 @( r8 T! w. U0 o4 E0 b% |d_____419C
5 d; q2 P9 P6 n5 c! Se_____615C) n  Z" j: \  p1 E
f_____556F
2 P+ k0 }& n+ H& O  Qg_____2B7F
6 U6 \1 x0 J. F" J  ?% Kh_____0F9C! h% P9 k( P$ p1 h
i_____00FA3 I* t' _4 k" V4 K, y# c6 w& N" f2 q
j_____5A502 m6 N9 k2 `) _4 N% ]" Z( n$ f% U
k_____28502 y  `- ^( B4 _+ d2 j0 {6 z
l_____3E7B) i& s7 v6 y: X" g  k2 ~
m_____71C5
* R; I0 I* o  C( u6 B5 e! ^n_____1FC81 P! I+ v6 O2 B: E" o# [
o_____74C1
/ a0 ~7 x+ w6 U# c: Cp_____5FB8
- R. x1 P5 V) {  k  Xq_____6085) z# u: H# N4 X1 b1 ]0 j$ v
r_____3AC4
' Q) n: s" x# ?1 {5 F, w& Zs_____2F50
; s0 B: w- e9 at_____36F8& \* s6 p4 _" o( R0 ]
u_____7010
- S& ~& F( S# G/ o2 d7 ]v_____0B42
: X' f1 d& N# v" e# u0 uw_____1C7A1 I  h: V! j, H. D5 t
x_____16F8' A+ h+ y" g- J* N/ U& I! W
y_____2EE7
% W9 t8 A- u& Z) b9 Oz_____5CF3
: M- w' E2 Y; C( [! `!_____6233+ k& _7 z2 v& z. u
@_____3A45: K" C/ O' Z! E$ B4 G) Y' ?/ y" [  }
#_____2291
" {# L1 X1 M: p! u" {# m2 ~$_____5D5C
0 w2 y: f2 i' M* t$ S/ v1 e' p! H%_____09B9
0 l& \" O8 L8 z) B9 h0 J, a' s: S# L^_____43EA
, i6 Y' ]$ R4 f&_____62B9$ J  H/ k: N, s; v4 k
*_____6301
: ?0 \. G% u: v% {: b% @9 q6 D(_____46595 c- W! J/ @0 i, ]
)_____5C82

鱼儿无心

收藏了。。。。。。。。