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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm* `- \* I& B0 }: x1 y
原始出处：http://www.3ast.com.cm
! u7 A/ A* A! L3 b3 v9 ?, r7 Q: [4 n! _. m
看不懂的直接绕过4 Z4 K  n, W- x0 S( Q& f
加密前为:hwy123456  x4 c2 l7 ^: [$ V1 K. T0 J
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
$ r1 B! n' ^7 K$ {" a2 U- p; m
: R- H, ]' j8 @* e6 Q/ F============================================
. f1 k' ^5 N6 h) {( p, y上面是当时自己校内的心情。现在已经解破出来了，分享给大家
' @( e9 s4 E! O1 D* |也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
/ G% z) ?# c7 x' i8 L$ i% ?以下是RSA算法文件# K: ~+ }- k; L

; d; p4 f4 U" ?# ^4 R7 s% O文件名RSA.ASP
) S3 r  a$ Y  N" V0 f. e: s===============================================1 M: J$ p, J. _; N% ~) `7 T
<% 0 G/ D& f  l4 a+ ]/ s: ]+ v
Class clsRSA 5 B, f! Z- z/ ]  [
Public PrivateKey
* [; |' p' P+ F+ Z6 w1 ^Public PublicKey 5 z. c5 z+ U2 g9 L- n
Public Modulus   C4 G; S* P1 ~+ Z9 |
Public Function Crypt(pLngMessage, pLngKey) 2 L( R' V. b0 i: s( F. y) _
On Error Resume Next
# b1 p7 i* V8 z! \$ o2 b  H3 tDim lLngMod
3 \5 f7 z1 E6 o0 \Dim lLngResult   S! }# s! s4 y% Q5 g& J3 @
Dim lLngIndex
2 _3 |. I2 K- U' T$ O* BIf pLngKey Mod 2 = 0 Then ' g7 N( w! i8 Z+ g
lLngResult = 1
. U8 v. D' w" b, C2 L: bFor lLngIndex = 1 To pLngKey / 2 4 G1 \; a  l6 R0 |9 a5 {
lLngMod = (pLngMessage ^ 2) Mod Modulus
; v3 A. n  Q# F9 y* G: `" r' Mod may error on key generation
+ R) k0 [: x$ hlLngResult = (lLngMod * lLngResult) Mod Modulus 0 q/ D' v- J. L1 |- s- {
If Err Then Exit Function
1 b' ?4 O8 V/ x2 U0 z$ iNext
2 _" \# ^5 I4 A: o  V, _+ FElse 0 @' q, R, F9 i5 X; X9 n- w0 {
lLngResult = pLngMessage
" f/ J7 U" G& s* C0 F, [For lLngIndex = 1 To pLngKey / 2
6 L% \  N  j8 g% V  k  glLngMod = (pLngMessage ^ 2) Mod Modulus
& o8 Z- X" }2 c3 X5 FOn Error Resume Next
+ r$ R' R. J3 V4 k% u' J# [* Z' Mod may error on key generation
+ @5 t  y* K5 U; {# \lLngResult = (lLngMod * lLngResult) Mod Modulus
9 B3 {9 Y0 R# `. b- t" _If Err Then Exit Function
6 {- [' U8 {3 S# L2 ?9 bNext
3 e; G: F5 C2 OEnd If " ]% b  W4 P* d4 J
Crypt = lLngResult $ H$ R+ N3 g" B
End Function7 g" {. J, w' U: O9 a: z  Y+ k

% r/ I! [1 X$ M) c! q6 |Public Function Encode(ByVal pStrMessage)
# R) y4 A3 m9 z! JDim lLngIndex ; ]4 h! `; h) J% l% v0 t
Dim lLngMaxIndex 7 T& i' `# Y3 l' V- s# o
Dim lBytAscii
( |, ?1 q( x/ \; K9 C7 ODim lLngEncrypted
/ g" H0 G# y  n8 g& ulLngMaxIndex = Len(pStrMessage)
$ {7 M4 M3 [0 d' ?If lLngMaxIndex = 0 Then Exit Function
8 w& f4 Q1 u3 E2 l9 x( LFor lLngIndex = 1 To lLngMaxIndex
6 P  x: k& @0 I% X8 m: clBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))   W5 a" f9 M$ Z1 n, F! z- k* I
lLngEncrypted = Crypt(lBytAscii, PublicKey) ( \% |0 z, M  k. ?! Z
Encode = Encode & NumberToHex(lLngEncrypted, 4)
% U0 N8 ^8 p/ }3 W; ?9 ]Next - i" Z1 X* j  x% K" e$ v
End Function
3 G1 W8 E: [' E3 c& aPublic Function Decode(ByVal pStrMessage)
7 f0 p1 p1 v% o8 v* V3 DDim lBytAscii & b5 T3 X- t0 P) b4 ?. @: k
Dim lLngIndex
8 C- m8 ]8 h: O4 aDim lLngMaxIndex
9 n, l, l. x6 e4 O" m4 wDim lLngEncryptedData ' B8 Q( j+ f: K9 Z1 X
Decode = "" 5 {( U% |( E& _$ r7 X3 l- k
lLngMaxIndex = Len(pStrMessage) ) }5 R  j8 L+ i0 |
For lLngIndex = 1 To lLngMaxIndex Step 4 5 w. k! |- `3 _$ G7 ]
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
) ?! l: v* ~( ^lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
% i* q# z3 O+ L# f1 ^! ^Decode = Decode & Chr(lBytAscii)
8 [. u* a! z1 t* MNext
% ^( l$ s" p) e9 _! m( U& sEnd Function 8 ], J+ a5 V: s* O/ N" O% Q2 ?# }
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
$ o* p( y& v/ e* UNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ' q. N2 x( h1 [1 o6 h, A
End Function
+ k) `4 W% @9 FPrivate Function HexToNumber(ByRef pStrHex) 0 `7 L* Y2 E# t
HexToNumber = CLng("&h" & pStrHex)
- i: i1 `( q# E- G8 LEnd Function
3 Y0 [1 _* k) n$ N/ F2 [& ]End Class ' f+ U3 \  e2 e! ?
function Encryptstr(Message) : \3 s, H. H" J1 i6 x
Dim LngKeyE
- j( A" w- a& q6 z. rDim LngKeyD $ P5 d1 C  \! a1 I7 S- P% }
Dim LngKeyN
9 `( _! v$ {7 n8 @7 UDim StrMessage . L! s6 k7 W! z" A
Dim ObjRSA . Y: j( p: S4 \+ t
LngKeyE = "32823" " L' k8 w: Y5 U) b8 h+ u6 @) `" f
LngKeyD = "20643"
' z7 [& P; Q+ p3 D9 SLngKeyN = "29893"
# G% c2 s3 ~" n% }1 X6 i! D0 _StrMessage = Message 2 i0 C2 F% i5 u7 C! m0 t% a- |
Set ObjRSA = New clsRSA
4 j& e; a  w) Z$ IObjRSA.PublicKey = LngKeyE 8 J4 q- @* w* ]
ObjRSA.Modulus = LngKeyN
8 j, }2 z4 H& TEncryptstr = ObjRSA.Encode(StrMessage)
, q) y+ [! w$ i+ v3 n; e8 c2 mSet ObjRSA = Nothing
. N& d2 [6 E/ M7 j7 T, r$ Uend function0 @8 o' l7 h3 G2 S: I. B
Function Decryptstr(Message)
8 l' \' E$ x2 v  ^7 |$ [/ W7 tDim LngKeyE 9 ~/ ?8 N: y  o8 P6 F3 f  q# o
Dim LngKeyD ; M9 f8 K* k3 O1 V; c  U
Dim LngKeyN * e! }( W! Z# e; h0 [. b$ N# _/ ^
Dim StrMessage
6 |0 h2 z3 @) Y) e! EDim ObjRSA 1 {, X+ V4 A  ]1 b) Q: x1 T
LngKeyE = "32823" . v/ ~5 ]% \4 Q& g5 G
LngKeyD = "20643" ) K/ Q7 S- F4 T* ^
LngKeyN = "29893" - n# P: I" x5 S4 e
StrMessage = Message ; q8 [, H; W! h" ]; Y) g
Set ObjRSA = New clsRSA ) b6 l. Y( W0 T3 [; Y, q; \5 P
ObjRSA.PrivateKey =LngKeyD
! l7 c$ d3 K/ lObjRSA.Modulus=LngKeyN 4 _+ m) c. G% R. X7 x' r+ }' D
decryptstr=ObjRSA.Decode(StrMessage) * m5 X( l# D+ S7 D% b! B
Set ObjRSA = Nothing / R: c( g  f3 U: H) `# }4 h
end function , S* H% |. B8 t% U' \3 n2 B( |! x3 _
%>0 Q: A9 G# c, v7 b
===============================================- f2 |+ Q/ E; H5 C
( X5 H; Y/ I2 \8 Q0 F) I
还有一个用于测试这段代码的test.asp
1 A$ i. W% Y3 C* s- W有兴趣的自己搭建个IIS测试下7 @- g/ s/ m% S
<!--#INCLUDE FILE="RSA.asp"--> 1 }3 _. E8 s4 ~% q. X- z! G6 M: I
<%
  q  _* v0 J# r0 t5 ?function Encryptstr(Message)
6 k  h9 l; B$ JDim LngKeyE
4 H% Q" y+ d$ U4 J0 S2 jDim LngKeyD : b7 `4 s6 s+ d; N4 i/ W$ {0 H
Dim LngKeyN ' U; P& {, N) v* w0 X7 h: r
Dim StrMessage % P+ Y; G; p3 U4 C0 ]# _
Dim ObjRSA 3 E+ i# j# V' c* m3 I$ X# Y5 b4 i
LngKeyE = "32823"
; x  o) j, @, r' e7 |* i* N8 JLngKeyD = "20643" - |/ v6 @  \3 ?; Y9 S( L) W
LngKeyN = "29893" 4 O. I5 ^0 M5 }" D! H5 b
StrMessage = Message
# c9 q0 d2 t) LSet ObjRSA = New clsRSA
9 w4 D# Q5 s: L! M8 LObjRSA.PublicKey = LngKeyE
) R; i1 N/ C& n8 {# ~; e9 WObjRSA.Modulus = LngKeyN
3 Q/ P: i" x# L( ~6 v# AEncryptstr = ObjRSA.Encode(StrMessage)
! f% g; Y/ y" p4 _4 FSet ObjRSA = Nothing
7 D! L, n  t/ @end function
8 V+ o" o+ Z8 f6 S# {8 s; b$ Pfunction decryptstr(Message)
0 @/ o' I& [$ `  g! V% ~Dim LngKeyE + v& b2 Y& ~' C( i! O. P8 p
Dim LngKeyD
7 S* w7 ~& q$ cDim LngKeyN
3 b7 E# ^- z5 R+ Z7 bDim StrMessage # r; k% Y9 b( H
Dim ObjRSA & P& K9 V) q, x
LngKeyE = "32823"
" `* T1 _7 C6 U' r3 ~" ^- Q+ |+ ULngKeyD = "20643" 2 [5 ~, ]5 J$ S, |
LngKeyN = "29893"
8 D+ Q0 P0 D! T- Z+ e- W, AStrMessage = Message
5 M, H6 Y3 R% y' ~/ L# D1 ]; j1 ZSet ObjRSA = New clsRSA
/ h1 a' R, J. D4 F' a4 eObjRSA.PrivateKey =LngKeyD
; l9 c% Z& U! BObjRSA.Modulus=LngKeyN
; K6 g  s6 {2 A3 H5 n# |; t& U1 pdecryptstr=ObjRSA.Decode(StrMessage)
* H) E$ t* E/ ~+ f3 P" ASet ObjRSA = Nothing
( ~0 W$ v6 x6 j1 J1 Iend function 0 K0 U  }% v# w3 Y
dim last,first " ]+ K; Z+ ^4 t  p% q) C5 g# q
first="!@#$%^&*()" 5 Z4 B4 e% R- c
Response.Write "加密前为:"&first ' t+ W( _6 p6 h5 S) `& ]3 _: l# @" ?6 J6 ~
last=Encryptstr(first)
# H" N2 j2 n6 X2 ~Response.Write "加密后为"&last
6 N- R" g/ ]/ C4 `' cResponse.Write "解密后为" &decryptstr(last)
) e# h* V6 e' m6 [" W! k+ u! J%> ==============================================
/ E$ G  @( r! L+ ^% I剩下的就是字符的对照表了5 n1 o7 J: L: ~0 \2 V# U
===================字符集================
& B' D# G) J: R& l% |. L1_____6EBB4 J5 z+ Y* P0 P6 R
2_____5C1F# M% I8 Q- _& d2 E9 L4 D8 J4 G
3_____4D75
. M  s8 w, }9 f4_____26CC
; e& A) U2 c0 G5_____4F887 S( J* Q6 O. k, M: O3 X
6_____3F4E
; k4 I, Z; D6 r- I7_____0A9D- R6 C' H8 ^$ w/ C2 U* A  x% _
8_____1A1C2 V& ~: M* ~3 P2 Q4 o( g
9_____6D20
+ [/ [1 x3 p$ g+ m/ h( b$ {0_____1089& Q8 I( e& v0 e# n0 a
a_____0F3E1 ~9 ~+ J; i& K& Y
b_____3159+ f! A* }' ^+ Z8 I
c_____3517
2 G. r( l, M2 r5 g, P- W% Od_____419C' }& J# ~9 a. s+ O
e_____615C
+ Y- }" X5 v% `f_____556F
1 F  b. ^, w/ _7 I3 L! J8 @9 Lg_____2B7F
9 z! \( ?0 ~& Q0 B1 Y, K3 Qh_____0F9C) t, G4 u, |6 i& G
i_____00FA% |: T) \. Z: R9 R
j_____5A50& ?8 D, f- n& @7 x6 x: W
k_____2850
% ?5 {; ^/ {! Xl_____3E7B! {9 D8 z" Z, ~0 W
m_____71C52 T( ~% Q6 b) g0 E2 k) Q1 p6 W
n_____1FC86 U: e. M% h1 f5 x) x7 P6 O
o_____74C1
* i$ V/ Z/ j2 u$ d. sp_____5FB8! w9 _, q5 Y6 [* D: H
q_____60859 `0 X7 D* i, z, y2 x+ J/ B
r_____3AC4- Q- C8 S' I# Z5 O$ ^
s_____2F500 \, s5 a: A, ?' K8 l
t_____36F8
- T' t: \2 n0 e2 ?- Fu_____7010
0 w: K' |7 i8 nv_____0B42
: C6 |, b2 Q8 r# |% ew_____1C7A
. L% U& d" K+ O; s/ Z  I( d& ux_____16F8& t  v  N5 J# L" A) ~
y_____2EE7
1 s* n! P! f  ^/ v3 P# az_____5CF37 {  @+ c" G6 o+ `5 C! p
!_____62335 t& e4 t$ Y7 F, Q( u) ^
@_____3A459 k. ?$ L. a/ x2 g
#_____2291. o5 M& [0 \1 u; O' w5 X9 V
$_____5D5C8 s1 @) q  J+ K6 P
%_____09B9
5 |' q! T. @4 Y, O& z8 o/ n^_____43EA/ C5 I2 a" ^0 u- v$ O
&_____62B98 U' X# L8 v* Y! i9 ]1 T
*_____6301
) K( |) Z0 i3 L$ I% P4 s- _. ~(_____4659
4 k/ V9 |9 W- L0 A)_____5C82

鱼儿无心

收藏了。。。。。。。。