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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm5 p. o( f  R2 R' w
原始出处：http://www.3ast.com.cm
0 J4 c  L/ m( y4 D/ I8 ]# q- m2 n& O+ {* |- P; H
看不懂的直接绕过4 T4 `2 |8 T& p7 f7 t
加密前为:hwy1234566 O. J& q3 i& W( W8 b8 g
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E% L! `- S  k7 x5 _- u

" c: \+ l2 }# P, i============================================
6 T( v) u; i& \; e( a' V5 B4 N上面是当时自己校内的心情。现在已经解破出来了，分享给大家
# D" Z/ d+ H( l( {  T也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
# ~# e. H& p, r; l& a5 t以下是RSA算法文件; Y6 _6 I4 S4 D
' o: v# ^- ]' m; F# z7 C- u
文件名RSA.ASP  T! R0 v) Y" g1 s* m
===============================================, U5 @7 a) V$ N
<%
$ p% Y6 q( F% b1 I/ x# }Class clsRSA , C0 M3 F' ^* {5 _
Public PrivateKey 7 p& e+ Q: m6 u( v  H2 U/ n
Public PublicKey 4 h0 }0 ]# d' K' z) m4 T6 J1 k: M+ Y
Public Modulus
  w: o' s6 q6 S$ a9 I. wPublic Function Crypt(pLngMessage, pLngKey)
) l' Y& y! ?9 `: H- F2 jOn Error Resume Next
6 j+ x8 e" V8 u1 LDim lLngMod 5 H' y/ m& l' t% H3 W) g
Dim lLngResult ; V! _$ `, v2 i1 {7 o
Dim lLngIndex
/ i- C% ~5 T8 Q* |) \0 B- fIf pLngKey Mod 2 = 0 Then   [# m6 s% ?' ?  A+ a& p
lLngResult = 1   T2 S8 }& Q2 s4 w& I" D' `
For lLngIndex = 1 To pLngKey / 2 # E# X1 A5 \( s0 h! J) M& j. M
lLngMod = (pLngMessage ^ 2) Mod Modulus ! _; h+ H" Y0 A. U3 Q( o- n; u6 L
' Mod may error on key generation 7 ^0 a3 o& U5 `5 f
lLngResult = (lLngMod * lLngResult) Mod Modulus
; [. p& t; [3 @$ ^If Err Then Exit Function
( ^4 e+ `& A! s  {* K( GNext
  ?& F/ L' C1 M( ^. Y7 fElse
0 v; f& `) L+ d  c: Y0 XlLngResult = pLngMessage 0 _6 C. T7 k. k4 V3 E. S
For lLngIndex = 1 To pLngKey / 2 ' P# \: r' \3 \1 w
lLngMod = (pLngMessage ^ 2) Mod Modulus $ U) w( k$ E9 S9 |& G. {
On Error Resume Next
* U& C2 U7 p* s4 S0 z; g' Mod may error on key generation 9 @4 @- f+ |' k
lLngResult = (lLngMod * lLngResult) Mod Modulus 5 ?; k0 e  k! i1 h4 @, Q
If Err Then Exit Function ; W' g0 T* w- S
Next
) L* H; U0 |1 @6 m7 ^; w7 IEnd If ! J- t; J0 {7 [4 p3 ~1 T
Crypt = lLngResult ( f9 O8 j/ f" P% @+ V* i
End Function
- ^7 Q6 w+ p3 K; Y) J  N
/ R6 }5 Z% c: U# OPublic Function Encode(ByVal pStrMessage) ) N* A3 a3 ], e  {
Dim lLngIndex
' e) ]) [1 G" q$ Y  o: UDim lLngMaxIndex : L$ F3 e1 |! r' k
Dim lBytAscii
% D8 J! d, G* L9 P; n: S9 aDim lLngEncrypted
, [5 P9 t' `& f& rlLngMaxIndex = Len(pStrMessage)
+ F: a6 o5 D9 I4 lIf lLngMaxIndex = 0 Then Exit Function 5 [' Y' T1 Z- v- c" q* c/ M
For lLngIndex = 1 To lLngMaxIndex
  N+ p- k; F& p) vlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
( o: H$ S: b5 \! t9 _, YlLngEncrypted = Crypt(lBytAscii, PublicKey) & \4 F8 p' y) R7 U* _9 ]$ U
Encode = Encode & NumberToHex(lLngEncrypted, 4) & D3 B, q3 A' u% T; R! Z
Next % K  i8 D( O8 {. o5 H
End Function & M6 |6 |& i+ p& V: W
Public Function Decode(ByVal pStrMessage)
+ B# |3 C4 K& b2 e# B+ T( rDim lBytAscii * s/ o! J6 s/ @" S2 p
Dim lLngIndex
1 M- K7 `8 L8 ?( b$ d" B) V1 yDim lLngMaxIndex 4 n1 G$ l8 E9 X  h1 O( L
Dim lLngEncryptedData : F/ @0 V/ R4 t* B
Decode = ""
0 {' F) I; s) `+ o4 TlLngMaxIndex = Len(pStrMessage) # o+ d- _7 X5 j+ X
For lLngIndex = 1 To lLngMaxIndex Step 4 & [# Q# W+ U: e  U1 H5 u% u: Q
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 5 E2 x/ G& v. B4 i9 y& d4 g
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)   B3 ?( m; ]. \' _; e% ^+ G
Decode = Decode & Chr(lBytAscii)
- B% t/ P# k- O/ z! l: ?$ eNext % P3 s- j% I  \# p# v1 J
End Function
2 ~+ u  b9 s' g4 a; l, V: K- LPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
% ~( q* [6 |" @. T+ b( ^NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
. ?" T; s3 q  sEnd Function ( d8 K# g5 g6 E: Y  @  d2 T, s* x9 g
Private Function HexToNumber(ByRef pStrHex)
9 l' P; f' H- L! I' c1 THexToNumber = CLng("&h" & pStrHex)
( Y6 U1 P* I* ^End Function
# s9 @3 o6 O6 C  g: JEnd Class ! D; c3 }9 ]8 k) B
function Encryptstr(Message) 7 V) V/ Y. N0 q) @
Dim LngKeyE
/ V, Y1 n7 x! m) nDim LngKeyD
1 \; E1 R: ~$ z2 bDim LngKeyN : K- D$ S3 e/ L* Z1 B
Dim StrMessage
$ c% M! W; ^# _, y0 l$ c* }/ |Dim ObjRSA
+ r$ c! J9 E  u3 x9 M: `LngKeyE = "32823"
. I) q$ q! L7 q- @5 s; _3 T  kLngKeyD = "20643"
7 U1 H. j# z  t! P) L7 E+ n, FLngKeyN = "29893"
' X# y  V/ b& X: x& vStrMessage = Message * e9 [5 h( {% o6 r; O  a+ L" X, L
Set ObjRSA = New clsRSA
2 ]7 I2 E% a7 s8 qObjRSA.PublicKey = LngKeyE 3 W/ V0 w. i( V$ B  F" q
ObjRSA.Modulus = LngKeyN $ [) U% _8 C/ W( \6 `7 C
Encryptstr = ObjRSA.Encode(StrMessage) 9 j# @/ I5 X$ c, o2 g9 Q5 @( d4 u
Set ObjRSA = Nothing
9 X4 r3 K, x, t+ Aend function
3 c. h/ |: l& ^Function Decryptstr(Message)
1 x5 K. a% R" P' m9 hDim LngKeyE 8 N( h+ ^' z  A& j  R, i0 g5 O
Dim LngKeyD 6 V+ A$ m7 d9 s8 ]
Dim LngKeyN
4 {8 J: J. e- `2 MDim StrMessage & A! Y) m  T; p9 k$ h% g2 u# Q
Dim ObjRSA
; L1 c7 P, v1 V( m) v. ^LngKeyE = "32823"
: v6 ?; Y/ u* ~4 fLngKeyD = "20643" 4 C5 T2 E* _7 t/ i
LngKeyN = "29893"
; b" B7 _* @" ~& K3 p4 g$ R  jStrMessage = Message
9 D* c2 a0 t" B% c" g. L2 ySet ObjRSA = New clsRSA * J& }2 l" s! e* W9 K& d; v
ObjRSA.PrivateKey =LngKeyD * z( e  v- u! o
ObjRSA.Modulus=LngKeyN
1 v( h9 W3 L8 p* d% k9 ~5 ]5 ydecryptstr=ObjRSA.Decode(StrMessage)
# u/ U" y% N4 p# ?' FSet ObjRSA = Nothing # ?1 Y1 ?3 V3 g6 V
end function 2 A0 m  }. y, O5 K1 t- F! Q
%>
$ V0 ~# [  q. C9 ?7 G/ w===============================================& _8 e# C* p5 ?$ a

( j% N8 z# R# W4 {! M+ @! J还有一个用于测试这段代码的test.asp
4 t: q  q. e/ t) W( C有兴趣的自己搭建个IIS测试下& [- X5 Q6 z1 o$ o- @4 q& \# o' G
<!--#INCLUDE FILE="RSA.asp"-->
& d0 X/ g5 I2 M- S! k<%6 U5 q$ B0 c0 X( t: o
function Encryptstr(Message) + I" y& h' @* N+ P
Dim LngKeyE : k3 H( c& R2 {( Z9 e
Dim LngKeyD 4 t+ R3 r+ @0 F& o2 h9 @( J
Dim LngKeyN * Z0 Z  f- j) ]# F% y( ^
Dim StrMessage
3 @# c* [6 ]* I  H: h" I) X* }& ]5 ?/ SDim ObjRSA
# g' f6 W' U) uLngKeyE = "32823" 9 _2 L3 x( S) k/ |) z- l3 v$ \
LngKeyD = "20643"
9 G% Z1 C# l/ o' l8 z# a) TLngKeyN = "29893"
, s5 A# t  s+ i* JStrMessage = Message
3 S! g# U% U& Z' U& L( o+ HSet ObjRSA = New clsRSA 4 {7 Y2 ], Z# l$ D" c& x
ObjRSA.PublicKey = LngKeyE
0 ]# B9 Q) I6 l( m6 h4 BObjRSA.Modulus = LngKeyN
+ \4 }6 U% S7 E' ^+ I5 m! zEncryptstr = ObjRSA.Encode(StrMessage)
& R9 M; Q% q3 O5 \Set ObjRSA = Nothing + K2 w: q2 w+ Q1 A% N
end function ; ?9 B  {, Z. p6 U; p( o
function decryptstr(Message)
) j" b6 }8 n4 I: i2 Y, i( w* f5 s) `% bDim LngKeyE 2 {% [" T' m9 J
Dim LngKeyD + ^% \0 L; R6 I" A$ E% O0 V
Dim LngKeyN ! ]1 r' L: d% s: o8 u
Dim StrMessage
+ h' m  N2 b6 ]1 z2 h+ {/ wDim ObjRSA
7 v5 D/ Q$ m( XLngKeyE = "32823"
7 P% P" x. x& m6 oLngKeyD = "20643" * g2 s2 {6 G( X0 e
LngKeyN = "29893" - \5 h4 ?9 n2 V. T- t
StrMessage = Message 8 o! [8 c' m% e
Set ObjRSA = New clsRSA
( ]0 B9 p  N. T7 ]; nObjRSA.PrivateKey =LngKeyD
' x) ?/ [+ J9 H! H, a) L% gObjRSA.Modulus=LngKeyN , H' F# u4 K' y5 i& T8 b* u. }
decryptstr=ObjRSA.Decode(StrMessage) ) ^" D) A% ]- u/ o7 h
Set ObjRSA = Nothing - N+ p3 {) W+ @; V% {- W
end function 3 R7 P( `3 F1 F2 C1 A
dim last,first , o1 D  n' Z0 G, o8 l3 s3 |7 Z! A
first="!@#$%^&*()"
9 E% H+ i6 i+ s9 wResponse.Write "加密前为:"&first
' a: U, _* a# q- ?0 ~8 K, glast=Encryptstr(first) : p1 u/ U& `7 E6 ?" O
Response.Write "加密后为"&last
& W3 a/ \# L2 {3 ?# l- z: LResponse.Write "解密后为" &decryptstr(last) ( q' ]8 e9 u" l% M9 p1 U. G
%> ==============================================
; ^9 _, s2 c2 W3 ^2 K剩下的就是字符的对照表了% C- i5 X5 r$ W+ B/ V! I- c
===================字符集================
' C' A) k( s5 s1_____6EBB# b- c) d/ e) J# D7 h/ C
2_____5C1F: f5 a5 E9 r) |5 {5 @
3_____4D75: O4 f+ \4 s+ V1 W8 f8 A% ]
4_____26CC: Y8 F  h1 x. b8 Y5 p) K) L
5_____4F88
! X6 V4 P+ p; g* a/ S5 l6_____3F4E. j1 z) C% |# q' H+ @
7_____0A9D/ ]! M$ e/ w9 i4 t, M
8_____1A1C1 F, I& ~" l: O; I% g. T
9_____6D208 r% _8 c  P- S, F. V. L% A4 P
0_____1089
. @! O, ]2 k& v( {a_____0F3E1 K3 v, v+ ?6 T; Y0 P- }7 L8 M
b_____31596 J  O4 u% }9 q$ \
c_____3517
+ |0 U  H: J) q" {6 u+ kd_____419C
- l! |: M1 D% c+ ~e_____615C, ]6 L1 R$ N0 N0 l: h5 V$ y" Q
f_____556F
' n  K" M+ D2 Y/ S$ H, I# og_____2B7F- ?* }- [4 x  Q; }
h_____0F9C
, v" }( ^- S9 w0 P; Xi_____00FA1 ^/ h% E! N6 u+ {, ?. _
j_____5A50* E2 `- }4 z2 D5 ?
k_____2850
5 U) Z: j$ }9 n! d9 w' l2 ~l_____3E7B+ b, X) x4 d: g- z
m_____71C5
3 b5 W1 q( l7 }1 `  }& @; }n_____1FC86 c- ^, w, z% S/ u; O5 I
o_____74C1
9 s$ _5 i3 \0 X) y# H+ b1 Ap_____5FB8
: U" I* _* r! H3 _, D& Uq_____6085* g9 V* x) U+ m0 r
r_____3AC4
, n8 h: \8 ]8 v. H! N8 z# K2 Os_____2F50
7 V, O0 {6 W. ^4 B( ot_____36F81 M  P4 |6 _) p  z+ _$ D
u_____7010" l6 H3 Q; b3 X7 X( E
v_____0B425 W& K1 x! T8 [2 [! V- M
w_____1C7A5 N7 T: b, F3 e0 s# d9 g! L0 Y
x_____16F8
6 f- @* M$ t7 |5 A% xy_____2EE7: _& x# S% B' D2 d$ W1 I
z_____5CF3: [8 {; M9 t0 a- o8 ]- G
!_____6233. E7 \& O- y; }/ L3 T+ F3 a
@_____3A45
" K! }0 J5 V( R3 {#_____2291
( @$ n3 A- l4 i/ g! `9 r$_____5D5C2 s) ^8 Y* q1 H8 ^) x; H
%_____09B9- J  F* E% g, q. p  O$ b8 x
^_____43EA( a, _5 `0 F- T( h! ~1 w1 |+ q% y
&_____62B9
0 L! g$ ^8 A7 U*_____63017 H6 @  Q( A  h1 b. Y! Z! o) P
(_____4659  L0 ~2 g/ e% W9 t! ?( B) A1 G
)_____5C82

鱼儿无心

收藏了。。。。。。。。