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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm" w, m8 \! o4 e/ f8 D% q
原始出处：http://www.3ast.com.cm
. A( U3 k4 z0 j/ p" d# S8 c2 S6 d
看不懂的直接绕过5 _) Z5 v, O0 I( c; F- h) @. R
加密前为:hwy123456
, y! V+ x/ ]" o/ V+ b4 y6 p4 q% c2 c加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
4 q2 p# b$ g  j" x9 ?( @
5 i$ S( f- F! Q3 A7 f( i============================================
9 D  O8 p  V, e3 e上面是当时自己校内的心情。现在已经解破出来了，分享给大家, R4 Y  x8 Z7 i; [6 ]
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
5 r8 n3 a4 p0 L+ q/ U以下是RSA算法文件- J# I7 v( V- ~5 z% ~* p

0 U5 A4 G# l8 n文件名RSA.ASP6 z3 |# W7 a3 ]7 @# y* J
===============================================0 v  b8 b* Q5 M* E
<% 3 ?: Z7 _  t- _; |1 U) @) a6 a
Class clsRSA ( q; E0 @+ M  Y( m
Public PrivateKey - V" Q' j( C3 I2 t7 F2 y
Public PublicKey - M' Q: n0 r+ y
Public Modulus ' h5 ~2 l& v/ m% c$ s$ b# ?$ [  j
Public Function Crypt(pLngMessage, pLngKey)
" u; [) y) l) ?3 A% ROn Error Resume Next
- y- V- P) f8 f, A% TDim lLngMod
4 }- o; l# B) G$ L2 v# I3 k$ TDim lLngResult
+ {1 i+ i6 _5 B, m0 R, a6 y  ?Dim lLngIndex
/ S% n0 i. y. @/ `7 y3 X  bIf pLngKey Mod 2 = 0 Then
# d, m: m! v9 s3 `6 h- B; |6 ylLngResult = 1 6 M" a/ b+ k) ?2 I! n( z
For lLngIndex = 1 To pLngKey / 2 4 s  r+ c4 x( b1 Z1 Z& a) i$ e
lLngMod = (pLngMessage ^ 2) Mod Modulus " H; p# i6 ]* @& [% J; s
' Mod may error on key generation
9 J) D- Z7 L: N9 R% elLngResult = (lLngMod * lLngResult) Mod Modulus ( k! U; K  t) {* L
If Err Then Exit Function $ N" _, s+ y. v
Next
% S. Y$ B8 Q" O0 T. d* C- QElse
  G0 q( j5 i/ J$ r6 i0 d8 q9 O7 `lLngResult = pLngMessage
- F# [! }& P' ]( vFor lLngIndex = 1 To pLngKey / 2
2 Y" d, N( Q/ l0 xlLngMod = (pLngMessage ^ 2) Mod Modulus
2 y$ v! Y+ @% A2 @' ~$ \( R2 qOn Error Resume Next
0 e: M* Z$ u' B: T' Mod may error on key generation " h  a! I# J) d, }2 E( K
lLngResult = (lLngMod * lLngResult) Mod Modulus 6 O5 h* d- _# d* A$ g3 w9 d
If Err Then Exit Function $ b& n0 X: G% y3 q! ^
Next
8 g, U2 b/ E, PEnd If . n' v' }9 g) E% k8 o; U
Crypt = lLngResult
* [6 X2 Y) a9 HEnd Function: U% v8 n9 u/ O( w- s
6 P& O2 {/ s( G! m7 \& G
Public Function Encode(ByVal pStrMessage) " S5 c8 n/ W9 H  Y. n' M
Dim lLngIndex $ e/ h6 f  j9 Z" Q0 ]  H" v
Dim lLngMaxIndex
. {9 _1 Q8 o0 I$ l  D& x, [- V* o: s7 NDim lBytAscii 2 a( \) J, E* t2 h* ~5 E9 |
Dim lLngEncrypted
1 w) J3 N3 C' j6 q2 _9 GlLngMaxIndex = Len(pStrMessage) 2 w( h1 V3 l( X* w' `
If lLngMaxIndex = 0 Then Exit Function & R! V9 s3 c' b  r5 a- P
For lLngIndex = 1 To lLngMaxIndex 0 E; N7 ?7 K7 c# ], f- ~4 N
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 2 Y7 D& P0 |4 @1 @9 I9 M/ s5 H8 x
lLngEncrypted = Crypt(lBytAscii, PublicKey)
+ X9 }* `! e" Q% P: U& M$ bEncode = Encode & NumberToHex(lLngEncrypted, 4)
; V; s. U+ H2 l  XNext * {, W% M  `+ }
End Function * Y! G1 y' I/ o; b
Public Function Decode(ByVal pStrMessage) & ?& c  ?% {1 Q1 ?5 [$ u
Dim lBytAscii * E, ?2 ^& B/ m( f* Q/ j3 t; t
Dim lLngIndex : \# t4 A8 k. p8 M" L" s
Dim lLngMaxIndex 9 \; m# u4 L) E9 _) r2 }  w
Dim lLngEncryptedData & F. I/ S0 c$ p9 h# I% v
Decode = ""
# _8 C/ w4 r1 c8 |lLngMaxIndex = Len(pStrMessage) " y# c) V6 H1 f3 `5 ]; D/ [' E' b
For lLngIndex = 1 To lLngMaxIndex Step 4 ; S5 j; W/ ~0 M# ?- u' N( O
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
( S4 N' I4 @% p$ ElBytAscii = Crypt(lLngEncryptedData, PrivateKey)
6 Y& h5 W  \1 S1 e2 F3 r( S7 mDecode = Decode & Chr(lBytAscii)
8 [% A1 U7 O3 [% O$ bNext : f7 q7 `* ~* A5 w9 K  o7 o
End Function ( V. J9 [% g5 d& @$ g( T
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) & e' a9 J+ N+ K/ r) H8 {( F
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) " ~* j3 h% e0 q! x
End Function 8 K. D" R; r& x3 E9 R9 r/ N
Private Function HexToNumber(ByRef pStrHex)
( u+ D4 a3 _% q& R; l" tHexToNumber = CLng("&h" & pStrHex) / G$ t; A& s1 c% u
End Function 9 g) H# T0 e1 b9 P" D( P0 s! }
End Class ( e/ w. f! T( Q
function Encryptstr(Message) 3 V# d' |# ?0 `$ C8 b
Dim LngKeyE 1 E7 s6 g+ ?6 K+ B/ O1 r
Dim LngKeyD 1 Y- q3 K( \2 M
Dim LngKeyN $ j5 \  I& M3 n
Dim StrMessage
. y# v  N4 g( r' H( PDim ObjRSA ' U/ E5 j( }$ u
LngKeyE = "32823" ' q5 O; q/ @9 M0 D
LngKeyD = "20643"
' R" `& N1 L: y' tLngKeyN = "29893"
3 ^% s9 m6 V9 VStrMessage = Message
, u4 \- s# i# TSet ObjRSA = New clsRSA
1 {' K. {1 T0 W- I* rObjRSA.PublicKey = LngKeyE
( l4 e2 t9 ?% \6 }; U8 B! A' x  tObjRSA.Modulus = LngKeyN
8 E$ e; M  U' `1 `Encryptstr = ObjRSA.Encode(StrMessage)
& \# r7 e" Y$ u# t) A/ aSet ObjRSA = Nothing ( A7 N# c0 [2 ^" D2 i* u" w
end function( |  ~) e" T, V- y$ p0 o  D
Function Decryptstr(Message) 5 r, ]  o# l8 a1 z3 {, {8 u
Dim LngKeyE
& t6 w$ F# r0 g7 X: V  KDim LngKeyD
+ {, v5 {- ~2 F; j+ A, EDim LngKeyN
8 H: {. p; D" Z4 K7 tDim StrMessage
5 D7 y& p2 a: A3 H4 ~" N/ [  [/ ZDim ObjRSA & ?" f# F0 g3 X6 {. U( M6 b$ m
LngKeyE = "32823"
" @: O' c. B: W7 K- PLngKeyD = "20643" ; `2 z( q8 ?/ G# R4 b) Y2 \
LngKeyN = "29893"   h0 l' t, j# d) D& h
StrMessage = Message
' O' e7 a4 J- G, D" G- mSet ObjRSA = New clsRSA
! y. Q, T: d( z& @  a  z5 C$ rObjRSA.PrivateKey =LngKeyD ) u) f: r+ W' L! `  {$ i
ObjRSA.Modulus=LngKeyN
6 B' f+ f3 [7 i7 p/ Ddecryptstr=ObjRSA.Decode(StrMessage) 3 u" h+ l8 k2 w4 X1 m) o: M' [8 P/ ~4 f
Set ObjRSA = Nothing
# T2 p/ B% U9 C' Gend function 9 ]$ e3 |0 ]) w7 K
%>0 L+ H+ ?* i- a0 ~% {
===============================================8 D* F* D! G6 N

) u9 ]% C! e- e$ P2 B还有一个用于测试这段代码的test.asp& o+ X6 f9 H( D, d, [
有兴趣的自己搭建个IIS测试下9 [7 g3 L, Q1 n
<!--#INCLUDE FILE="RSA.asp"--> 0 ~9 ~& S  R6 q
<%% j& Z' B5 E8 V- y% X
function Encryptstr(Message)
: R  r  V' o( w6 DDim LngKeyE / x  ^+ k4 ^" [
Dim LngKeyD
$ p0 L' q1 I+ G. A/ yDim LngKeyN
6 d- ]" |. p# tDim StrMessage
8 u7 w& Q0 T; H6 F1 H; ADim ObjRSA
/ S- C9 z9 `$ yLngKeyE = "32823" ! I$ N9 H' T9 b5 ]/ T3 s% R
LngKeyD = "20643" 5 [" h% u9 ~: J. m2 v7 m
LngKeyN = "29893" 1 @- \( c8 F6 P3 F- r+ a
StrMessage = Message ' T% \* f& J. R+ q
Set ObjRSA = New clsRSA 2 Q& `% M2 u0 A6 ^; T& |. }
ObjRSA.PublicKey = LngKeyE
' {& l3 n$ X9 ]9 ?ObjRSA.Modulus = LngKeyN ( h8 Y/ t# t$ m$ v! h
Encryptstr = ObjRSA.Encode(StrMessage) ' s0 u% `, r" Z% s6 J
Set ObjRSA = Nothing ( B8 R- K7 q2 }: G
end function / @. N! R: g) m+ `, z% \
function decryptstr(Message) 4 }2 ?5 \( T' X+ K$ k2 \) D2 P3 w
Dim LngKeyE
( }0 P1 g6 }  w9 y1 L% j, @( lDim LngKeyD 4 A8 l" ~6 E' q  a
Dim LngKeyN & n1 _1 ?2 Z% w2 W# Y: Y5 o
Dim StrMessage 8 V* @& w7 L5 ]
Dim ObjRSA 0 C7 j, H+ ~% G/ L8 V3 e
LngKeyE = "32823"
) k5 B# f) \; M6 Y2 kLngKeyD = "20643" 5 Z  Y: R. ]# x& c9 t; X( V
LngKeyN = "29893" $ W" }5 J0 t4 ]
StrMessage = Message
) X; g* e* k# Y" VSet ObjRSA = New clsRSA
) z$ S7 s+ G) o2 Q5 [( BObjRSA.PrivateKey =LngKeyD 7 \) _+ V. X( l
ObjRSA.Modulus=LngKeyN
  Q5 o" u3 H7 w6 V/ T8 W, [  ~decryptstr=ObjRSA.Decode(StrMessage)
$ z' E' m% I. X8 s+ @  G' kSet ObjRSA = Nothing $ G% l# e# @" v. \2 B  N& D3 S
end function
/ u) X$ v5 z& x# w% L  Sdim last,first
. u. P/ x' l% L" R8 v" Yfirst="!@#$%^&*()" 8 Z3 k6 K/ P: z- ]- `
Response.Write "加密前为:"&first
7 o' q( k" f% y+ |8 }/ g+ |- Xlast=Encryptstr(first) $ B, a" F: q7 `" y. w
Response.Write "加密后为"&last ' J- L: o1 H2 P: w. q1 `; T. ?
Response.Write "解密后为" &decryptstr(last) ; g6 |( X9 l9 ?
%> ==============================================0 v" ?  m) ^; V
剩下的就是字符的对照表了
! k5 \( x4 V* B! c$ I5 a/ L===================字符集================
6 n4 J" o2 |; h& }5 y1_____6EBB5 s4 ~7 _: \6 i$ n3 Z# C  U
2_____5C1F
" f# U/ q+ c6 M, }3_____4D75" T  s9 \3 _! W. K2 q1 H8 o
4_____26CC* k3 j. ?: f/ u  ]* i3 k
5_____4F88
  z7 U& j5 Y: t% [6_____3F4E- P; {8 k; A) u9 J2 y/ V. c
7_____0A9D4 U# L/ c' e8 `6 ?% y: z
8_____1A1C
% Y6 V6 `! v. P4 \  u3 x9_____6D20
7 {4 @, h5 B0 Y& M3 S% o6 c4 r8 P* h0_____10898 X4 F% _; O% P. k3 S: u
a_____0F3E
) i& f" s" l& n. M1 \b_____31595 ?9 |$ a2 Q/ p: q
c_____3517
; l8 R& d" k' i7 t. w7 ?) Bd_____419C5 @, z; C3 B0 ~' }# t! d& F
e_____615C. X8 A" Z1 \5 Q$ _
f_____556F
: {. B$ O, S( s8 X( j: \8 Bg_____2B7F
9 y4 ~) C; z* g6 N$ Uh_____0F9C; t: v8 B; T! F6 k7 s' r' |! ~8 P
i_____00FA- C3 u/ L/ o3 E1 l  [
j_____5A50# P3 \' o3 L/ S. G  Q' z
k_____2850
& a  I$ T( W: w3 A* p: O: f- \l_____3E7B2 C$ m* N6 o  ]$ r7 x9 T6 f* [
m_____71C5
) v+ ]) O; V( {: }n_____1FC8
& D8 ?0 W" U$ H7 v4 E6 k! w. V! b. Ho_____74C1+ Y4 |& \" V6 {; `) W& C
p_____5FB8
0 G4 C# t$ h  Q* l- g- ~4 jq_____6085
# O# u! g- V+ O; c3 S8 v3 _$ `' yr_____3AC4
+ W* a/ n( F( N9 U' }  \s_____2F50
/ g1 V( n7 c" e: @5 Y9 w4 v( x6 mt_____36F8
. b& l+ E3 y7 E& J& \" _! ^u_____7010. {  J* `, C! @% _2 d1 G6 x
v_____0B42+ N/ R! {+ M+ U1 r
w_____1C7A9 O4 F& n7 `- x& C2 }- D" u
x_____16F8
2 x1 Q. g' M: X* Wy_____2EE7
% E' P( ?+ X0 Z2 lz_____5CF3
, [/ ?5 K. M1 d!_____6233& Y- x8 ]0 G* K
@_____3A45, u$ D: ~6 s: t( m$ O( g
#_____2291) J1 _9 P8 k% V7 ?  p: S6 A% X
$_____5D5C( e. x! r: ]/ p
%_____09B94 p3 m' X3 E6 w5 [
^_____43EA% w& v! q* n/ Y% D& a
&_____62B9% {3 Z& z: |- K5 N- B8 h$ A
*_____6301
4 h3 `6 q2 C0 D! M  i( `(_____4659
6 v5 O, m5 j2 H% r, H9 H% n)_____5C82

鱼儿无心

收藏了。。。。。。。。