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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
% O: r* h) @. x( h4 d原始出处：http://www.3ast.com.cm
# {6 Y; _, S8 L! F. Q& x7 k7 B0 p! V- ^6 {5 Y
看不懂的直接绕过
, N  Q% r( T$ r: }; P+ k加密前为:hwy1234564 Q# v) r" x6 G7 `4 a, y7 l
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
  |* Y& {' ~' n
6 f/ \4 [, }* |+ {============================================8 N4 b/ i; X) E- r+ n- ^+ t
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
  V6 n4 ^; ~( b' I' _: r也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
, [- w+ W+ B. b6 _% y以下是RSA算法文件
( y) c( Q- {/ G" Y' v- l: ^/ J  k' X1 F+ J8 D  l! l1 k0 m! Q# }
文件名RSA.ASP
. I6 g  U; O" p/ L3 o/ e6 o===============================================2 A1 n" w, O: o9 W# D" c# f
<%
2 i% `9 _; ]3 `6 u/ {Class clsRSA
& K( o4 x$ l8 m0 \4 l' Q) |Public PrivateKey % Z/ t& H/ e9 `& [; M
Public PublicKey & n$ D5 I" e/ ?* }
Public Modulus 1 p7 ~# N, S. L  L
Public Function Crypt(pLngMessage, pLngKey) ) o; K9 Y/ @7 z9 X) L( S  [
On Error Resume Next
9 H. i: f- Z3 m! d) N( j; wDim lLngMod 9 o! w- [) j5 F4 Z$ f" j
Dim lLngResult 9 J- F8 O6 e  g/ u! Y  H/ I
Dim lLngIndex : K% x9 K8 W1 p! h
If pLngKey Mod 2 = 0 Then 2 M1 q$ Q& y7 N. Z( U7 y2 x
lLngResult = 1 ' G3 F; I# [2 c" c; u: b
For lLngIndex = 1 To pLngKey / 2 9 k+ B5 y+ F! ?5 `8 w
lLngMod = (pLngMessage ^ 2) Mod Modulus & ~0 u: Y7 c3 D7 U7 L
' Mod may error on key generation : o, c. c! m7 U4 B" {
lLngResult = (lLngMod * lLngResult) Mod Modulus / `& w8 x& q- P1 c7 c3 j  w/ l- n. A
If Err Then Exit Function ) i2 ^6 r" g( }# L. b
Next % b8 e  H# K9 Q" e+ ?, _
Else
. V1 K5 s  m, h5 X4 o  HlLngResult = pLngMessage
5 z" t3 f+ g4 `For lLngIndex = 1 To pLngKey / 2 : F, Z, x: L0 p/ L
lLngMod = (pLngMessage ^ 2) Mod Modulus
; Y& h0 _, g: t+ q3 ^On Error Resume Next " C0 @5 C4 s3 k) w4 D5 ~# s& m% M
' Mod may error on key generation * n1 W( X6 I. I) }$ r' \
lLngResult = (lLngMod * lLngResult) Mod Modulus ) O$ ?9 d6 a: ~  f) `8 X" v1 C
If Err Then Exit Function
5 o8 R& U- j$ o+ P- UNext 4 Q$ b2 r/ W7 c1 w+ `
End If + M5 U3 J& T9 F+ Q
Crypt = lLngResult
! e* _" U, y' p. B8 x' ~3 e6 EEnd Function+ w+ t) W( {, E9 Q( F( h$ k( [$ ^  U

( y5 g. {; m1 Y3 u2 S, o3 g3 P; |Public Function Encode(ByVal pStrMessage)
# o. t  \  u) p: IDim lLngIndex 7 Y" T' y0 L% e1 q- }, k
Dim lLngMaxIndex ) T0 E4 D" @! P
Dim lBytAscii * u( ]& M0 C# c/ S0 {& a
Dim lLngEncrypted
* Q+ m9 g+ c6 j8 _# u9 @lLngMaxIndex = Len(pStrMessage)
' K3 c" i! e( L( W4 q1 P8 H6 vIf lLngMaxIndex = 0 Then Exit Function 1 M. ~* J/ V7 c1 i$ i$ B) x. O
For lLngIndex = 1 To lLngMaxIndex
: h  u- S( T. [  Q% h; v1 G8 P* j& z+ nlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
9 j& H& V1 Q$ D' U: _8 J0 z8 w. WlLngEncrypted = Crypt(lBytAscii, PublicKey)
2 ~$ R0 l! S' b6 wEncode = Encode & NumberToHex(lLngEncrypted, 4)
$ q6 I: H4 K. H* p5 k9 T' D( eNext
! q2 v. `5 Z, z# S5 ]' t# l% rEnd Function % N% W$ r$ c& f5 D
Public Function Decode(ByVal pStrMessage)
5 p. o$ }" `' b/ r2 hDim lBytAscii
. O# c+ `( d$ |1 bDim lLngIndex
8 D! V, m: f1 FDim lLngMaxIndex ( H, c1 M$ K% w5 j7 s' G6 w/ k
Dim lLngEncryptedData
: x  t; M9 B+ M7 ]. HDecode = ""
0 S# L- y: B$ S. ~5 v, ilLngMaxIndex = Len(pStrMessage)
4 ^# N1 E4 \/ r7 A- \For lLngIndex = 1 To lLngMaxIndex Step 4
' G9 n* _# A+ @lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) * K3 R  u6 e7 _$ C9 L3 ^
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
9 h1 E! J+ K! A, L" MDecode = Decode & Chr(lBytAscii) : w: u$ b: L1 y7 M; ]7 g4 ~
Next
! L. f. l) b4 J1 H1 B* ^% ]End Function
# _. I5 b& w5 b; l) RPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ) s- F& ~; J$ h7 o/ w4 O. @* u* v
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
8 S- E. v% g/ Q) |" mEnd Function 2 }; c2 t: }8 }# I- g; f6 e* i
Private Function HexToNumber(ByRef pStrHex) 7 t. Q$ D) a4 v% l; \5 B; Z
HexToNumber = CLng("&h" & pStrHex) & n" `8 Q/ _8 Q) w
End Function 3 V" f5 S. a4 c  w- a
End Class
+ U* g$ d. V1 |7 C* Y; yfunction Encryptstr(Message) ) O, ?9 U2 b' k! L# O
Dim LngKeyE 5 s8 W) r$ j" ~2 H; U
Dim LngKeyD
* H7 [& k  I1 ]( ~. MDim LngKeyN
9 L5 t5 s/ }' Z2 W8 f! ADim StrMessage
  g: v4 L$ p+ F' O/ CDim ObjRSA % Y' U8 a" P: K3 g; d# H# K
LngKeyE = "32823"
" D! T# s( K2 O( l2 k- TLngKeyD = "20643" 4 T) R$ k. B/ B
LngKeyN = "29893" ) T8 s7 D$ F* W+ b* q0 N
StrMessage = Message ; d% K4 ]# c2 j/ X* f# _8 A* W
Set ObjRSA = New clsRSA
3 J7 F" I5 l$ H' E5 {% WObjRSA.PublicKey = LngKeyE 0 t- o9 A% ?  t
ObjRSA.Modulus = LngKeyN
' Q- y0 x" R" a8 d  q9 qEncryptstr = ObjRSA.Encode(StrMessage) 3 r- b! L, b' C' R- @2 Z
Set ObjRSA = Nothing
% @0 C" _  }- D8 _/ k/ Qend function
4 Y$ N' ]& e; N9 }5 z6 KFunction Decryptstr(Message) 0 E/ d# c9 l9 t( b" o' K
Dim LngKeyE
+ F3 @1 R& ]6 S) R* n4 ODim LngKeyD 2 ^- R6 S! |. ^! o, y& ?9 i. L
Dim LngKeyN
( e' \0 q5 p: i1 DDim StrMessage
0 R' z# F! d  q1 zDim ObjRSA
4 W# K! G; N. k- E) `- C. RLngKeyE = "32823"
* H; x0 R, ]& `4 M. l/ {LngKeyD = "20643" + z0 U0 A; ?1 w1 a  @& I" I& @8 `
LngKeyN = "29893" & Y& F( V2 N" H3 s# B  V4 B3 B
StrMessage = Message   n7 T& ^! N3 n' ^8 Y1 S3 F
Set ObjRSA = New clsRSA
7 [* r0 Y* i( f5 _0 vObjRSA.PrivateKey =LngKeyD 2 v+ @0 O& ^7 N+ ~6 p" {% A8 Y
ObjRSA.Modulus=LngKeyN # d9 V& ^  |$ t: W
decryptstr=ObjRSA.Decode(StrMessage)
7 F9 @' P" r) e7 bSet ObjRSA = Nothing
! u8 x  e( M6 Qend function
6 g* X$ I7 K( G& O; h' f1 S4 u%>/ Z1 @  j$ v: I4 Q; c3 [
===============================================
3 K2 T6 G% o" ~2 C2 I7 a, ~( n: Y6 Q5 X) C% ^
还有一个用于测试这段代码的test.asp
6 p" y3 [7 B! v3 @7 Z4 m有兴趣的自己搭建个IIS测试下
3 R+ a6 P* H5 U<!--#INCLUDE FILE="RSA.asp"-->
1 C. S' R& k( }7 L<%
7 g  I, _7 V& D; Ffunction Encryptstr(Message) & x3 A& D. X% I7 ?
Dim LngKeyE " {$ K( ^  f3 g* a% h% v8 Y3 [5 A
Dim LngKeyD % B) r, m8 T! W) R/ g$ W
Dim LngKeyN 6 p5 [' \, n; ?! L
Dim StrMessage
5 P5 L& N* t) U& S3 u# r* h' TDim ObjRSA ( w1 h$ D2 W" m8 a6 S( n( e
LngKeyE = "32823" . b) E4 t! R; ~5 ^) ^/ }9 ]. a
LngKeyD = "20643" ! z1 {' b: B) X4 \$ ^  \8 t
LngKeyN = "29893"
, x0 O. C$ u% c: k) v9 O$ x/ DStrMessage = Message
! p0 Z0 d7 L/ b+ U; TSet ObjRSA = New clsRSA , E. N0 s8 I: Y: Y2 p% m
ObjRSA.PublicKey = LngKeyE
% E  J; a4 S( I) Y& S5 lObjRSA.Modulus = LngKeyN
1 l& R* L, A3 ]% FEncryptstr = ObjRSA.Encode(StrMessage)
& d- z! l! U+ P2 x. T8 aSet ObjRSA = Nothing
/ W5 d  Y$ L" _) S5 K. bend function
. s5 G8 I( Y9 d' w4 ?) L$ Zfunction decryptstr(Message)   z+ N6 g) ]7 v& m
Dim LngKeyE
3 M, [" I0 I- T. ?7 wDim LngKeyD ; O  a  |6 K6 c$ m( y  P- t
Dim LngKeyN
+ b. n6 d& {2 n! g  j9 G( EDim StrMessage
# W& x4 E$ O  t" hDim ObjRSA
' z) I& e7 q3 q9 C9 cLngKeyE = "32823"
' R& R6 [0 P8 i9 I9 v$ |LngKeyD = "20643" " R5 ~2 A/ ]9 B+ a
LngKeyN = "29893" 3 J' D  X- T" y, Q& R2 s4 A9 p: m& t
StrMessage = Message
( g0 Q2 F6 w$ z) `1 E" a- T4 N0 kSet ObjRSA = New clsRSA
- h$ ~8 i2 A0 w) cObjRSA.PrivateKey =LngKeyD 1 ^1 ^2 R' T$ F- _6 R" k; k( p; N) l0 c
ObjRSA.Modulus=LngKeyN 6 D3 {  Z$ B: R
decryptstr=ObjRSA.Decode(StrMessage)
- U6 C" p* e# F" `1 z3 gSet ObjRSA = Nothing ) M& n6 X3 |& g
end function 0 ]( l" W$ ^/ J' w/ `% d5 |
dim last,first 8 f2 p( A# c: M& V- m; z, I  e, p
first="!@#$%^&*()" " G& ]. s! i! T& n1 A0 P
Response.Write "加密前为:"&first
1 J. E& ~2 s1 b# P3 z' I# ^3 \last=Encryptstr(first)
2 {* p# c9 h# V% A% u1 Y1 DResponse.Write "加密后为"&last   k3 F. {: G3 Z; h/ Y
Response.Write "解密后为" &decryptstr(last) , n1 r4 @' K) X2 d; [0 r- `1 e
%> ==============================================
: \* b3 g" T9 t& ~: A) X' y5 D7 k剩下的就是字符的对照表了
9 T0 \: N" U% d; R===================字符集================
4 P. k6 ^+ ?3 z8 I; P3 |1_____6EBB$ G$ n0 Q9 I8 a. h2 U( [
2_____5C1F
8 S" V4 q6 z  H! p% u3_____4D75% k7 E" s  S) h% U
4_____26CC/ N- _9 n/ k/ Z2 L# R$ e
5_____4F883 j- N7 U- b$ Z. P$ ], o
6_____3F4E
) e% X, \: w0 ]: f" R+ D8 h7_____0A9D
2 a$ }/ R' o) c- t7 e8_____1A1C
2 P. }& A/ D  p3 x, p/ b1 L$ P9_____6D20- k4 ^: T1 ?; d; u5 a9 K
0_____1089+ e+ L, V! p! N. P
a_____0F3E9 V' n: {' s2 k
b_____3159/ {$ _& y+ H7 [7 N( B: Q0 p
c_____3517
6 [. p5 X9 ~8 o' l. Nd_____419C2 B1 Y: c2 c- y; x$ z  N
e_____615C
, S8 C$ b# x4 C$ f6 sf_____556F
- F; n9 P4 T- eg_____2B7F4 H( G9 g" O* a* g8 v
h_____0F9C$ u1 K  l* Y4 ~# U5 g
i_____00FA& c1 u# u6 d9 ^5 F
j_____5A509 H& ^1 o% Z% L1 R6 M# x* P' u
k_____2850# C. K# Z$ S- u" C8 x
l_____3E7B' k" i4 N' T4 g9 F  G) r
m_____71C5
% Q5 |$ C2 L  O! ?" m: ~n_____1FC8
  z3 }5 O" o! R( X! H' ]3 f6 p6 z/ _o_____74C1
4 Y" L+ J& p2 @p_____5FB88 p! B% {+ p% b4 O6 a' q( r
q_____6085
( N5 @" d% k) n5 L! cr_____3AC4
+ u0 v: U4 `" x$ K5 ws_____2F50
3 p% Y) d. u, J  P% U- d7 Wt_____36F8& Q7 Y+ k, u. J4 h" o8 {5 C  u
u_____7010
" \$ a. R) @; l/ F" t+ lv_____0B42
2 o% f  g- f% O6 }. uw_____1C7A) V5 j5 f& |  n7 [2 W! M
x_____16F83 p- u6 [# V& b, U; M( ~
y_____2EE7$ n7 n  S# u2 t4 ^( S2 u5 L
z_____5CF3  d, S& ?5 ]2 m: E3 u8 ?+ F
!_____6233
9 D( I7 C7 r6 O' |8 V@_____3A451 l" a  D) l' t3 M5 m  S
#_____2291+ C* x6 R8 J$ z. A* d
$_____5D5C! }- Z8 I' n3 a" n( l
%_____09B9
0 h2 D" F( N6 v# i^_____43EA7 s4 C  H, Z9 B/ }3 _! o
&_____62B9/ ?. ~0 ?6 v5 i# |
*_____63011 n& k  I8 X" q2 `1 w
(_____4659# q7 J( `! d  K. v4 O
)_____5C82

鱼儿无心

收藏了。。。。。。。。