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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
2 G) Z% }8 l$ F3 u原始出处：http://www.3ast.com.cm0 a5 N, ~2 x" f5 b

# s: t+ O. y5 b6 }% m7 o: D" u看不懂的直接绕过( [/ s. R; i3 k6 r0 X
加密前为:hwy123456. g- P& G6 n8 B8 P6 g8 w
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
+ v  i- d: J" b- \. `
+ x( C0 ?& {) d: v============================================
9 h/ S( ]! T3 u  E上面是当时自己校内的心情。现在已经解破出来了，分享给大家
: o- x& _: s/ M- m- e也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
: R3 ]: d5 R4 o* o+ D以下是RSA算法文件
1 W2 ]0 l# n( a  t/ ]% J0 A$ [6 v# D$ G4 L8 M) O7 }& j: |9 L% X0 q
文件名RSA.ASP& X# V: t1 g! ^
===============================================7 B1 h7 x2 k' u0 P/ D5 {
<% , K3 P* P6 Q! }" s# b
Class clsRSA 8 \) f; f3 H0 M; U: A
Public PrivateKey ! _4 v! s( `/ P5 j  p) X7 u  H
Public PublicKey
' _# `& |* P5 Y9 y. ~0 R$ H% hPublic Modulus   W5 U9 a, L5 E, g0 z
Public Function Crypt(pLngMessage, pLngKey)
; j: b9 D! d1 j: ROn Error Resume Next $ M3 ]1 T" t' s! z2 \* ]
Dim lLngMod
" s& N- f- O( {$ `0 sDim lLngResult + b. _9 b' Y5 G, {6 q4 N& F
Dim lLngIndex / Q* O0 o( E& F, ^# l  M& D! L, _
If pLngKey Mod 2 = 0 Then
5 B! f2 j: @: F2 K1 T; FlLngResult = 1 1 S* Q+ @* z+ I* g" Y: f# u
For lLngIndex = 1 To pLngKey / 2
) D+ ~8 z+ Y2 d, wlLngMod = (pLngMessage ^ 2) Mod Modulus
5 g% `* @+ r8 H2 ?9 r' Mod may error on key generation
! `& [: Z' \% K, C7 U0 FlLngResult = (lLngMod * lLngResult) Mod Modulus 4 Z% L6 M+ O4 ^) d
If Err Then Exit Function
. J* K6 \9 g- J0 G; w* k: JNext
" P3 R% q$ R$ d) F! W# q8 e7 aElse
( y- z, G; F' Q8 hlLngResult = pLngMessage   I* l9 {" e4 {6 c& i
For lLngIndex = 1 To pLngKey / 2
7 G- L) Q( ?; n+ u5 T% C1 ulLngMod = (pLngMessage ^ 2) Mod Modulus * L1 _  E. \) ]( S, \* B# X! I% ?
On Error Resume Next
4 E1 q# B: u& I- e5 T5 P( N' Mod may error on key generation
$ ?) n7 l6 s+ [5 J" S1 t- g3 rlLngResult = (lLngMod * lLngResult) Mod Modulus " \9 Q0 [/ E# W
If Err Then Exit Function , }8 J) j+ I! G3 q% R, o
Next % ?( N; |& {: @5 k* j
End If
9 ]3 S1 L5 [1 F9 O( e6 V7 iCrypt = lLngResult
3 V3 s$ s0 G2 E& q# KEnd Function& l9 }) w8 R- o

! {3 y. L3 b" c) a' p; `Public Function Encode(ByVal pStrMessage) & a. L  e; e3 o3 e
Dim lLngIndex
. u- }) A9 S: T: CDim lLngMaxIndex 2 A* u6 _* G# m. [' V
Dim lBytAscii
9 E- a2 M5 Q. _. P7 }Dim lLngEncrypted
  R2 a* P6 v: ^; b8 v$ DlLngMaxIndex = Len(pStrMessage) ' L4 V! F, N& z& N
If lLngMaxIndex = 0 Then Exit Function 1 m7 a+ g9 \3 ~# c
For lLngIndex = 1 To lLngMaxIndex
+ x4 l+ A: ^. L' U, O2 |# elBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
- q' y& U6 c; L9 a  o, Z. J! glLngEncrypted = Crypt(lBytAscii, PublicKey) 0 h0 H; s2 \7 ]5 B  Q# h; Y) u
Encode = Encode & NumberToHex(lLngEncrypted, 4)
# N' `! \- D  d! y5 l. [Next ; V  Q$ k, q- W7 T# F/ i9 K* z
End Function - x* G4 ?0 h4 v+ I) L# F" r2 |  B
Public Function Decode(ByVal pStrMessage)
" |. h( U/ d+ }2 _Dim lBytAscii 0 K  y( B  e& v
Dim lLngIndex
5 S  x9 W1 i7 G2 pDim lLngMaxIndex
% n  \5 I) N$ D1 D8 y! _  {- K% uDim lLngEncryptedData : e. x) L6 ]" [$ T: h
Decode = ""
% ?0 i$ q( P! ?  w: U; wlLngMaxIndex = Len(pStrMessage) " @. ^0 c* w3 ?3 B$ e: k* q) [1 B
For lLngIndex = 1 To lLngMaxIndex Step 4
. t( v  Z& W! O% K% W* olLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) " y' w7 v! n6 l  f
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) % }* a0 @3 o# J# @. U
Decode = Decode & Chr(lBytAscii) 9 t+ `" }, `8 b5 P. l6 c
Next   v0 h1 B7 i! T* }3 M! ]# Y) A
End Function " l- _2 o/ g, e/ c8 {' g1 g; @; }
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
1 J. e9 d" k9 K* ~& @, |* A+ FNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
, [0 r- k" s+ O, N: R% }End Function
; R! _# _9 N  n& pPrivate Function HexToNumber(ByRef pStrHex) & }$ U: u# N$ B
HexToNumber = CLng("&h" & pStrHex) ( C1 `+ c! J; n
End Function
, y: V0 f( ?: ]End Class
7 r- L+ u7 c9 h) Q  tfunction Encryptstr(Message)
' l9 H/ |! [% x+ w" f8 V* CDim LngKeyE
' I4 c' |) w7 ~! iDim LngKeyD
+ \+ \6 h( ]8 t0 s" W( nDim LngKeyN
2 h3 z. N& Y5 n: eDim StrMessage
  z. W; e# R" W7 Q. rDim ObjRSA " W5 j* W: R% D2 j+ z2 U
LngKeyE = "32823" ) B! Y. t  C# B: h) a2 M
LngKeyD = "20643"
# G) l3 J8 H' w' Z; WLngKeyN = "29893" 4 X. {  n5 s2 v$ `# q
StrMessage = Message
9 Y  R- {0 L; p& k8 V* N$ H/ G5 VSet ObjRSA = New clsRSA # ]/ i' K- D) M) P$ m
ObjRSA.PublicKey = LngKeyE , q- k6 |: Y+ B# Z" z. H" o
ObjRSA.Modulus = LngKeyN / G1 @7 b9 W" c$ P$ `% n
Encryptstr = ObjRSA.Encode(StrMessage)
$ T2 L" C4 U3 P' pSet ObjRSA = Nothing ) R" Q% ?. }, Z( |+ |5 _
end function+ F! _8 \9 N3 f5 i8 ~2 k
Function Decryptstr(Message)
8 e: G" b3 T! ~1 N1 oDim LngKeyE 2 b. J* O$ P+ ]% ]  [
Dim LngKeyD 6 g/ q0 ?9 D1 t3 V- f
Dim LngKeyN # \' p3 t& y, s  K, B. J2 D5 a
Dim StrMessage
7 S. ^  f2 c( n1 ADim ObjRSA 5 I* |& w( Y% @- r
LngKeyE = "32823"
9 Z- @, {/ T0 m' |* i5 _LngKeyD = "20643"
- C* E; x4 ?9 yLngKeyN = "29893" ! P' Y2 T1 X$ [- I% V- s) {
StrMessage = Message 7 s/ }( p1 v8 W7 Y1 B/ J2 Y, d
Set ObjRSA = New clsRSA $ R  K! A7 g/ t' k' a. J% m
ObjRSA.PrivateKey =LngKeyD   H/ @2 ?) K$ O7 j% X, L: ]( B
ObjRSA.Modulus=LngKeyN ! p% C. p8 F% I! ^! o' ~
decryptstr=ObjRSA.Decode(StrMessage) 8 g$ B0 t' W! C
Set ObjRSA = Nothing & M& ~# E8 I1 e5 f1 ^4 N# q
end function ) [) E3 u4 }+ l8 o9 I+ P
%>
% p0 B9 u. k- y2 F' v===============================================
. l6 v# S! v$ k! L$ D3 u) t: h8 c. }. d6 ]5 d! M
还有一个用于测试这段代码的test.asp
% e4 M8 W) Z- W0 W) ]  D/ F有兴趣的自己搭建个IIS测试下0 l) D. B# G2 ?% _7 @
<!--#INCLUDE FILE="RSA.asp"-->
: @) q# I4 ~$ U, G4 w5 _+ E<%& V/ o3 }+ |' G* X1 ]
function Encryptstr(Message) ' D: G+ u( x- u0 r5 N
Dim LngKeyE 6 y& I+ C1 W" f! F6 T; \
Dim LngKeyD
# D, ~5 T: ?0 _" v% cDim LngKeyN
% {0 i7 h' d- q- n( _0 N: V" [Dim StrMessage ; c+ @- n( a, i
Dim ObjRSA
$ P( G: \: ?, ^3 N% H* D/ KLngKeyE = "32823" ! c8 G: a, C6 H. ^0 k5 F( ~
LngKeyD = "20643"
9 v" l" g3 h& d4 e7 i$ D& oLngKeyN = "29893"
. w0 z$ }; [' x- C: u  `' G( dStrMessage = Message 1 l6 {. X% K9 S1 Y
Set ObjRSA = New clsRSA 5 N2 U  r" E# r& q
ObjRSA.PublicKey = LngKeyE & v& N' N6 d4 T2 X* b
ObjRSA.Modulus = LngKeyN
6 m3 v/ M  p9 d9 Q- T5 K& AEncryptstr = ObjRSA.Encode(StrMessage)
" g2 y+ g9 B8 d- h) tSet ObjRSA = Nothing
2 N; Y' S! h. S" Jend function 0 b. B, ~6 o/ q1 [7 ]# P
function decryptstr(Message)
* e, P* {, ~4 O' p7 XDim LngKeyE
" B, y  g5 k, Z4 F! TDim LngKeyD 6 i' Q& r/ Z0 z
Dim LngKeyN $ ~8 O9 l9 g: X
Dim StrMessage
8 l9 @- q8 f. s0 l( C% cDim ObjRSA ' @) F  s5 f2 T% i
LngKeyE = "32823" % N  E  m( G  Z
LngKeyD = "20643" ! |7 h) O; s+ y& r. l9 i% O
LngKeyN = "29893"
3 R: a& g- \+ D" S8 g* H( K+ X- tStrMessage = Message
, T) O9 ~& @7 A  O% l0 x5 D: _. |  HSet ObjRSA = New clsRSA
; r' \+ K. _1 v; zObjRSA.PrivateKey =LngKeyD
3 L. C7 {3 H: n# h  t. ?ObjRSA.Modulus=LngKeyN ) c% v/ J. }( @1 j' U9 n, {5 _# k
decryptstr=ObjRSA.Decode(StrMessage)
! g, @/ W3 e, a& @* `- F) I& |Set ObjRSA = Nothing
) ^( K$ c' ]8 ]/ Y# f* iend function 6 r2 Z5 h7 C6 A: V$ l9 P# t0 l' {
dim last,first 5 m7 a5 q% C* C% [0 `/ J4 j6 B' f
first="!@#$%^&*()"
7 ]2 F8 z! n+ @& R% q, j/ NResponse.Write "加密前为:"&first
3 P# k7 @/ ~5 X, V- ulast=Encryptstr(first) + r. @; m1 ?  q' B! o, H+ m
Response.Write "加密后为"&last
. O5 p: e! L  \Response.Write "解密后为" &decryptstr(last)
* ^2 }) Y7 ^/ z; F%> ==============================================
. V% }$ D& n% K' g, z2 w剩下的就是字符的对照表了+ I- w4 f) O* x8 e  n, Q
===================字符集================
2 S7 n+ e4 |, n( R4 ]1_____6EBB, \* w) s, H- G, r' |( |
2_____5C1F/ Q; e5 R- p; W& V, `" \
3_____4D75
- _: A( E$ U8 z6 |- x/ U1 @' r4_____26CC. L: T& Q3 W8 }* K- R* k% N$ c) g' E0 \0 f) t
5_____4F885 n% A5 n, @, i% S; v9 {
6_____3F4E& L( _0 x2 h; o
7_____0A9D2 f5 |+ K! {  Y+ o2 N4 v
8_____1A1C, ~/ q  n3 }: p8 e. ^
9_____6D20
4 w+ ?) e9 f. L2 e6 }0_____1089' ^+ P) T4 w" i, F5 y6 m6 g
a_____0F3E( Q5 M  V; p  S& Q- E% Z
b_____31598 c! N' ~4 b, N- L2 q
c_____35178 o3 |& F5 ]: a. E3 m* n# ^
d_____419C7 T& s8 |4 X! g. S  G( }
e_____615C& C. z3 B/ U+ r) T7 _' F; g( {
f_____556F! q" z% z" v+ z9 v3 @' Q9 v8 @
g_____2B7F
# q. b- X% E4 r: yh_____0F9C. E" J# K. Y+ F( p; o/ B
i_____00FA
. G. K3 L( T. j, ^& f( ?j_____5A504 D; \# b! O, b5 p6 R: G$ \/ {, G8 s) O
k_____2850# s/ ?" V! G( ^8 U% W& _" N1 q
l_____3E7B
: a6 y1 J  R+ X" Mm_____71C55 E: a0 J3 n1 L$ t6 t0 P# a
n_____1FC8: [) J2 y. }& t& W
o_____74C1) a6 ]" s1 A, \2 P( k) g
p_____5FB8
7 A" z! j- C! ]: ~q_____6085
. ]0 v+ N6 W4 m2 er_____3AC4
) o- g3 H- A% S# s( e1 }( [" us_____2F50
' e# [1 g6 o3 p$ ot_____36F8! m% x! R2 \  N% U- ?
u_____70105 |8 D6 [$ q# O* v6 C% w
v_____0B42
, w. P8 {! f  g& Y0 Rw_____1C7A* V. x5 T8 l  N  w
x_____16F8$ H2 T1 t: c! H2 ^9 i0 W
y_____2EE7  r5 X8 T9 u6 F( _7 N
z_____5CF3
' f$ S+ l0 T& v4 q!_____6233
3 v0 C1 F& e+ H$ d  x, `6 k+ z8 N+ q@_____3A45, B6 D) J3 d) M7 t* M; E1 |3 u
#_____2291' z% F, j: }( w" v
$_____5D5C
3 }) P. I- g% ~- V( o# Y4 ?. e# Y%_____09B9" H; T4 |1 a6 Y8 r7 Q
^_____43EA, R& e  B( ^" u7 Q0 S3 d- X  F! `3 g4 ^; g
&_____62B9# L8 b& G* J0 x7 x8 ^, ^4 [
*_____6301
* m! ^! }) }' S: K- O(_____46590 K& U& r' C8 ^; Y  J% [$ o2 K
)_____5C82

鱼儿无心

收藏了。。。。。。。。