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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
5 \2 H8 Z  O3 l# \5 \+ N原始出处：http://www.3ast.com.cm$ A8 V* W; d. G+ b8 J' p" n6 {8 `
: ?% d  p/ ~) }: r
看不懂的直接绕过
8 U6 h0 A+ p2 Y6 F加密前为:hwy123456
2 i6 _$ x2 ]- f! B8 y& b5 x加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
1 Q5 c- C( |; q& x; \7 L9 K, b" S: y
============================================
# h2 F' u% X1 r( J3 ^4 |上面是当时自己校内的心情。现在已经解破出来了，分享给大家8 g" s: L' @& @- g. @4 ^
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法  [7 B$ `2 d8 m. x
以下是RSA算法文件/ X4 y! m$ I7 K8 D
. p" E  R! j$ {) Y2 R  u* g$ D/ K. B3 p
文件名RSA.ASP
- y* P3 D/ E/ s" K" [' f% E, h===============================================. C- g9 H5 q$ H6 ^8 B% Z) X' d/ y
<%   i" C3 `/ ?8 T# c
Class clsRSA
. b+ _/ b4 V* P" r1 KPublic PrivateKey 6 m8 D+ E9 Q, e& m8 k
Public PublicKey : a# N3 Q# T, R; t$ `
Public Modulus & T7 G/ n+ p. {8 ]1 b
Public Function Crypt(pLngMessage, pLngKey)
1 l  D' n$ M2 |5 ~( M+ YOn Error Resume Next * M8 m. d# c+ q+ K5 I7 I9 j) \. E
Dim lLngMod ' B- ~; z; Q( c' s2 Y& W3 a
Dim lLngResult
& I1 p4 K- Y0 m% d0 O; }1 S; ~+ gDim lLngIndex
. ^) s2 d0 K: p% eIf pLngKey Mod 2 = 0 Then
- k' A$ R8 q/ k8 e0 o+ glLngResult = 1
/ o* ?7 ]' `) v$ s1 cFor lLngIndex = 1 To pLngKey / 2 8 T2 i6 @3 \9 _
lLngMod = (pLngMessage ^ 2) Mod Modulus
5 z7 S6 P. S( f. t. t3 r' Mod may error on key generation
4 r6 s; _% w& f1 a! o1 n) l% xlLngResult = (lLngMod * lLngResult) Mod Modulus
8 e+ m6 C. u6 d! r+ }: B+ iIf Err Then Exit Function
& M4 |+ ?$ O+ F( J6 q, _5 oNext   G& f2 g  j  N* h- ~" g/ y
Else # x+ x$ X. B6 K% m4 T; t
lLngResult = pLngMessage   o; F$ c* {. n8 V/ t5 p
For lLngIndex = 1 To pLngKey / 2
( J, B, N2 f2 SlLngMod = (pLngMessage ^ 2) Mod Modulus
% }5 u5 l, U6 P" N  s2 `On Error Resume Next & {# U6 E' T7 ?
' Mod may error on key generation
" H7 V' ]+ h- |lLngResult = (lLngMod * lLngResult) Mod Modulus
' T% C* S$ P3 s& X9 T5 RIf Err Then Exit Function
3 Z. _( e) t( L! u$ E+ RNext
4 U  H1 P: d$ x, q& REnd If : L5 n6 U; U$ ~3 h9 \$ _4 r" e& J, M( x
Crypt = lLngResult $ n9 b& z4 D9 ~. o
End Function: I- b$ I8 D5 V% @8 w8 [
8 @0 ~' K8 K% @8 S& j- y
Public Function Encode(ByVal pStrMessage) ; y  p) b% `% q
Dim lLngIndex
0 G: I; _  b5 b, FDim lLngMaxIndex
/ w, o- i/ b) f( l; r. E7 W( u( W( WDim lBytAscii ! T. K/ S7 H# c2 N& u% y
Dim lLngEncrypted
  y; z3 x) Q" ]& Z! YlLngMaxIndex = Len(pStrMessage) 0 Z% R4 L  q. Z3 f2 J9 A; u
If lLngMaxIndex = 0 Then Exit Function * |5 g, O, F, X
For lLngIndex = 1 To lLngMaxIndex
7 J9 O" E8 X# I' r/ e/ `/ qlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
8 ]6 f& l# a3 I7 G# o0 e; K/ blLngEncrypted = Crypt(lBytAscii, PublicKey)
# n' K( K, U3 |Encode = Encode & NumberToHex(lLngEncrypted, 4)
; |* q' f2 A. q  M0 g+ N5 C4 ENext , G: A* e7 G7 Y8 x! V) |
End Function
; N. \  ~+ z! R; r: H) iPublic Function Decode(ByVal pStrMessage)
* S1 u/ h2 H$ T& n8 O4 e) G" oDim lBytAscii
6 N  p( T' H3 TDim lLngIndex
. d( ~& ?; }. K+ Z, vDim lLngMaxIndex
9 F9 f; a# V+ P# p- QDim lLngEncryptedData 8 b, P! u5 s$ \6 s1 Q, q
Decode = "" # Y6 q0 i1 ~5 T: H' _% W# y
lLngMaxIndex = Len(pStrMessage)
  E% f5 r" g9 x* L8 EFor lLngIndex = 1 To lLngMaxIndex Step 4
; m5 p; u# q! @5 m6 x* B8 plLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) + }- s; a* L, }6 x. J$ y
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 0 i+ Q8 p% g4 j* N
Decode = Decode & Chr(lBytAscii)
! J! g) ]) n, B% u# V/ t4 xNext
4 k" k0 ^) `; X1 sEnd Function
7 Q; H- {3 K9 n' \Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) : c3 A% |( o. L' j' @5 E' y
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) + ^  z! u  Y* ^6 o
End Function 1 \+ R3 y# z  ~7 \+ y; i3 g4 ^
Private Function HexToNumber(ByRef pStrHex)
8 x- O8 ]- x, l" CHexToNumber = CLng("&h" & pStrHex)
+ r, M# a' h- l8 m3 j2 xEnd Function
$ c2 b: K9 ]9 \End Class   u: i# n0 \$ U+ Z9 m1 @
function Encryptstr(Message) 0 w# e$ m. ?; n* n! i3 X% F
Dim LngKeyE 5 _- [& f# d4 Z+ u
Dim LngKeyD 1 t7 y1 S+ m9 n
Dim LngKeyN
- _8 f$ `2 A; E$ HDim StrMessage
; l( t! R2 R5 o# F5 @4 Q6 h' B' XDim ObjRSA
, V. G. b, A( OLngKeyE = "32823"
! Z7 a7 N- ?" Z3 J* y. K( E0 SLngKeyD = "20643"
, `3 \1 [1 ^4 s; L5 C' }- O! M- k# xLngKeyN = "29893" ! n7 \) O4 Z# o* V  z* m1 g( J4 a1 w
StrMessage = Message
( g: T( Y9 N/ s! L9 }; i$ LSet ObjRSA = New clsRSA
: K& h: E( C2 K4 ^' @ObjRSA.PublicKey = LngKeyE $ c, w1 e) x/ D! g: M
ObjRSA.Modulus = LngKeyN 3 V, }8 O2 a5 m
Encryptstr = ObjRSA.Encode(StrMessage) 5 s, }# z; b- d, W
Set ObjRSA = Nothing
. N( R, J0 r+ aend function  f& _. e; y6 ~! e8 Z
Function Decryptstr(Message) - ^2 W# |% }- k& i
Dim LngKeyE 4 J% \( [& h1 ?; \/ K- W9 N9 o6 n0 P
Dim LngKeyD
0 u9 l8 ?. h* h  K! r1 yDim LngKeyN
  ]: i& V* l1 O; a# C3 j1 uDim StrMessage 9 \2 ^- P- s$ w1 I7 C; @
Dim ObjRSA
& {4 x( X% g. V5 k) }8 j1 wLngKeyE = "32823"
: F6 B3 U2 ?" Q% A; g7 R8 eLngKeyD = "20643"
& E! G# |: m" ?% ?" q" y9 cLngKeyN = "29893"
! l0 L4 o0 S! }6 }, z8 TStrMessage = Message 9 T8 ]/ @" e9 D/ M' t
Set ObjRSA = New clsRSA , U  t  P" O- m: b1 u
ObjRSA.PrivateKey =LngKeyD
5 }# \1 n- F1 }& HObjRSA.Modulus=LngKeyN
& v- f8 |# I! U; Udecryptstr=ObjRSA.Decode(StrMessage) 9 K1 O+ [  x3 n2 s$ w3 o
Set ObjRSA = Nothing
' o+ P+ z- w" }) r9 yend function 9 d6 t* W" ~2 P4 F
%>
: q; Y+ m: i; J) K- w" D- ^. S( ?===============================================
! X1 K- `% c1 r0 n. y1 \. O5 P6 _+ C6 l7 U  b, Y
还有一个用于测试这段代码的test.asp: {* a8 P4 Y9 i* \" Y2 n6 G6 u
有兴趣的自己搭建个IIS测试下% W/ p" F, |4 J, u3 m1 ^; B
<!--#INCLUDE FILE="RSA.asp"-->
* ]  W- Z) i7 X- y. O: J<%
" n* p9 K8 h0 q/ J: Zfunction Encryptstr(Message)
5 y7 N* \% {! IDim LngKeyE / _4 C, E" D$ |  a* M) g+ [2 u# V" J
Dim LngKeyD
3 `/ t8 G6 F  GDim LngKeyN 6 N6 D; B2 j5 x: @/ Q
Dim StrMessage
2 v' r! A9 A% [Dim ObjRSA
9 I3 _/ q: v+ G2 q' J( \; i5 bLngKeyE = "32823" ; M0 P& S$ J6 N4 {* d2 @8 P
LngKeyD = "20643"
. z  [  Y% u0 @7 ]0 oLngKeyN = "29893"
. H4 P, @2 ~' C/ }  O, MStrMessage = Message # x2 g! z5 A1 n' ^0 I+ T3 G
Set ObjRSA = New clsRSA ! {' E: k& W; L4 w7 d/ b. M
ObjRSA.PublicKey = LngKeyE
8 I4 a" J( |' C8 E6 X5 s3 C. fObjRSA.Modulus = LngKeyN
  _3 L9 n9 a8 _* @Encryptstr = ObjRSA.Encode(StrMessage)
& v0 [0 s4 W  a: k2 lSet ObjRSA = Nothing
- I, l4 \" r" ]+ Q7 }: I: Wend function
# @( }+ u( I4 W. q3 Bfunction decryptstr(Message) ' W: k# p; Q$ g
Dim LngKeyE # q0 s4 e1 w* C3 g
Dim LngKeyD 3 h0 q3 R- P" C0 }, j
Dim LngKeyN
' g* p% t6 t! d1 M. ]9 cDim StrMessage # h: j, a4 y6 j! W- i* ~3 d
Dim ObjRSA 1 v/ O3 F. ]2 N: \! k
LngKeyE = "32823"
8 i+ j8 u+ x$ f6 QLngKeyD = "20643"
" G/ E- R# |( n9 j. M7 E1 q- [LngKeyN = "29893" 3 N1 K; C5 Z; b! _2 I% G$ f
StrMessage = Message
2 _4 X, ^; t& C" m5 `Set ObjRSA = New clsRSA ; n% B0 e) Y9 S
ObjRSA.PrivateKey =LngKeyD 2 ]( Y7 u" i( v3 x6 J: B) A" w
ObjRSA.Modulus=LngKeyN 8 i* N; b# P; l# M, O$ G. W$ O
decryptstr=ObjRSA.Decode(StrMessage)
; i* a) @3 Q/ \: V" oSet ObjRSA = Nothing 2 e2 c2 r2 D. m7 b7 f- r' K  D1 R& d
end function
0 O9 M! R/ v+ h+ E3 g8 ndim last,first
9 F- j4 J. d; Rfirst="!@#$%^&*()" - M+ ^& J5 `, P, \2 ]" J/ N5 w
Response.Write "加密前为:"&first + _4 n( j: M- e) a/ w6 R
last=Encryptstr(first)
0 p7 q- q% S  f  T' fResponse.Write "加密后为"&last ) o" N, R. @" w+ ~
Response.Write "解密后为" &decryptstr(last) " O2 V( H+ t0 g0 d% d0 X3 P% r+ N- H
%> ==============================================
. [# t: b: c6 I剩下的就是字符的对照表了# s: A/ ^$ ]6 l; i
===================字符集================4 V3 E, @7 }. N  R% H
1_____6EBB
5 Y5 x$ Q& ^' `( q9 Y! U3 x3 B2_____5C1F
. d, S1 x9 J& R3_____4D75
* Z4 _. R4 P) r8 ^+ R8 F4_____26CC' t" L- e0 `/ w( n
5_____4F882 @/ v% I/ Q- ]. t
6_____3F4E3 g0 v4 X; U  e
7_____0A9D
6 @) V$ I; N9 V% E3 F+ s8_____1A1C
$ u5 L, H& z( O+ K9_____6D20
' H; V( e3 I+ n9 U8 l3 w4 W0_____1089. f7 w' |' |+ E  a
a_____0F3E
; ]# U. g6 {7 S, c. N7 i" ~b_____3159
! i( k- w( s. }4 yc_____3517& i% x0 v! r& j6 R% P: x; n
d_____419C
) a! o# P6 ~) I) z5 r, e) Je_____615C
' s4 H+ a7 L7 j1 ?f_____556F
# V6 H0 ^, O$ D# x! Lg_____2B7F% ^5 e, l/ D" [* O9 [2 W
h_____0F9C0 m7 w) `4 X& f+ Z, C3 ~3 w
i_____00FA) E2 H4 H, }" m
j_____5A50
' a9 _/ T: ?4 k2 A. ?$ gk_____2850
5 Z# D& w- b: O: e& S% \% _l_____3E7B
; ?; L7 ~& |$ C* Im_____71C5! c1 {  L! f6 L% \
n_____1FC8( j/ e; X7 c- s
o_____74C1
$ S/ `6 v* g' u, j/ B. p! Z4 m2 i5 m" w5 Kp_____5FB85 S2 {, Y: k! B7 _
q_____6085
& ^( ~5 l) ]& l; m# z) i9 k- @% B: W  Zr_____3AC4$ u& A: ~. `9 r  Z1 Q1 y. F
s_____2F50
, k! k) W2 p( }$ P3 L# W& zt_____36F8
- C5 l0 x1 u: w% f: B; A& Vu_____7010: ]; C6 n& g1 w0 E! X. E# j
v_____0B42
/ b" e+ B" ~3 X+ n, t4 Nw_____1C7A, O+ r" P7 ]  t) r1 _2 S+ N6 z
x_____16F8
7 p8 {1 l" C8 w  W+ V5 b6 |, fy_____2EE71 E9 v2 Y, f4 k4 O  d5 d
z_____5CF3
7 Y- K. z7 J& F- [5 @3 S!_____6233
% b9 ~, C9 b4 n' O- K@_____3A45
( E" r7 @4 j0 d3 m: D#_____2291! v& r: n% ~4 L# E/ G9 w
$_____5D5C
% w9 M9 _3 o6 V2 K1 F0 P1 `%_____09B9" H9 y& ?7 m5 |+ o& \' x
^_____43EA
4 S3 z6 J& @0 O( x: u& y&_____62B9
1 }5 |5 N  N- n7 S7 f- t1 \*_____6301
- K" J! F2 @8 U5 Z3 g9 L(_____4659
  e0 K) A, \6 y2 A)_____5C82

鱼儿无心

收藏了。。。。。。。。