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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm: L: {3 c4 K7 o7 w4 N
原始出处：http://www.3ast.com.cm
: a) S! k0 _5 F4 B! J) R1 Y
9 e8 N  b; H) C9 d看不懂的直接绕过
! t. w5 |1 a, S" C加密前为:hwy123456: O) k* o5 S! o0 j
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
) E& e$ O# b: D% x
" l: o! ]' T. j' {============================================
( e; w3 N* Q! w. K2 |上面是当时自己校内的心情。现在已经解破出来了，分享给大家
( H1 _  C1 O- c" z' |& e* i+ U也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
5 ~( ^+ X* x- H- x7 _+ S# J4 Y以下是RSA算法文件; \1 }, M, n! q0 P" P. O

+ g) R3 O: P) u文件名RSA.ASP( m. V! e' w& E, f$ x* }4 _
===============================================
% G$ t  y& }) |& w6 p$ P<%
) |3 k9 T# v, ]2 `& ]" YClass clsRSA
6 n0 L7 z+ }0 mPublic PrivateKey
; d5 z# }# i$ H$ S5 J; l( dPublic PublicKey
& F3 T; S+ v. K4 C( a/ cPublic Modulus
  d# a, b; R& b0 Z6 N' tPublic Function Crypt(pLngMessage, pLngKey)
; _- ^& n) V1 I9 u. b0 XOn Error Resume Next ! ?) Q4 U* R/ G& x" M5 b
Dim lLngMod
9 T1 c+ w+ Z  f$ b$ B/ E# O! f. `Dim lLngResult
) m; L9 W: X" _+ ?6 L) E2 ~( g% M1 ?Dim lLngIndex : \. t% v3 w" t  K: k
If pLngKey Mod 2 = 0 Then
% U0 E! I3 t$ h* |0 w$ w6 {lLngResult = 1 0 c& n# \+ d3 I: V+ M+ y
For lLngIndex = 1 To pLngKey / 2
2 ?* h0 ~4 B0 I: _7 C# flLngMod = (pLngMessage ^ 2) Mod Modulus - v' n9 \1 K- I+ B. V
' Mod may error on key generation
' _* `) r& m6 c( U! r1 F0 v7 qlLngResult = (lLngMod * lLngResult) Mod Modulus
2 S1 A( X' d2 U  s) EIf Err Then Exit Function & L+ \; v6 e$ i" @1 Q; B$ D. m: W
Next
6 ]2 d" ?* B- |$ w$ yElse
! ~8 R9 W5 j" }6 _; i, GlLngResult = pLngMessage + k1 }4 }( A: m% N  c3 x6 z1 r: j
For lLngIndex = 1 To pLngKey / 2 # y/ ^9 L' i' }8 M* `3 B8 t# [
lLngMod = (pLngMessage ^ 2) Mod Modulus ) h2 }9 ~, F/ S7 o4 {2 ^; k- X
On Error Resume Next ( G0 n$ M  V0 X& U' g
' Mod may error on key generation
. `1 F3 f# g% {lLngResult = (lLngMod * lLngResult) Mod Modulus
9 _0 q8 t+ q, G) mIf Err Then Exit Function 8 h2 Y  G+ d1 n. c
Next
& R3 f. v) m% u% ?3 V4 _End If # l) R; P+ K" l9 ]
Crypt = lLngResult " m2 k/ }4 ]' V) r- r) q
End Function
3 f  `3 J  V5 g9 y0 w+ f
6 W2 x3 x, V5 C5 K1 F  @  r1 J% _Public Function Encode(ByVal pStrMessage) ! F8 P9 R2 t0 [  @) ^
Dim lLngIndex   U+ q" V1 F5 Z
Dim lLngMaxIndex ; Q! b" [- I9 x) y
Dim lBytAscii
9 P' M! j  w+ n" _) hDim lLngEncrypted
& D& N3 {) z/ O. l+ W* clLngMaxIndex = Len(pStrMessage)
* b/ D, N/ {; s( ~: \8 }/ s; jIf lLngMaxIndex = 0 Then Exit Function & a- ~# s( m) Z
For lLngIndex = 1 To lLngMaxIndex
  x/ v  `9 i: ~/ q; p, E! X1 GlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
! _0 U5 m" ?4 }; f9 _lLngEncrypted = Crypt(lBytAscii, PublicKey)
# v# p# ~7 G7 W0 ^& g. JEncode = Encode & NumberToHex(lLngEncrypted, 4) 4 ?; \- d" Z" r2 n/ k' U! [- v
Next
7 S; Y9 X! z( w9 X: u  F3 \7 BEnd Function
) }1 S& @& b& B! V+ N" d2 Z+ z: APublic Function Decode(ByVal pStrMessage)
0 g* I% H6 w" R, e; l6 Z4 }& fDim lBytAscii 7 `6 J0 s! r- W  S5 k: A! S; B
Dim lLngIndex . |" [( V1 W( f- D# K2 R* V; B% n
Dim lLngMaxIndex
) T3 ?9 f9 E% w: eDim lLngEncryptedData
) Y% d8 A+ A% I9 O1 pDecode = ""
; [) O8 Y0 u# E4 olLngMaxIndex = Len(pStrMessage) 4 f# s- Q# E2 P- i( Y
For lLngIndex = 1 To lLngMaxIndex Step 4
4 w4 o/ ]( `3 G1 BlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) : G% P6 E, D& n2 L' O
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
( B+ I) n: r" \9 O3 T6 M; `Decode = Decode & Chr(lBytAscii) " I) Y2 x' S# e! ]' N. d$ C# `3 T( V
Next
  `6 B2 d: \- h' [4 W7 N% R. o8 REnd Function 1 u6 l$ J! r0 g8 L/ f
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
- U' M" g  E6 F8 g" \6 v" HNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
: p0 f0 _2 r1 l" Y: B9 _" D, P& N4 YEnd Function 4 C& f- ~3 E/ M, D# K
Private Function HexToNumber(ByRef pStrHex) 3 u& w( h" c3 |( W
HexToNumber = CLng("&h" & pStrHex) + `" B/ Q" l) _% J5 Z/ h$ e
End Function   T! ]6 b+ B2 n* s% P: [+ h, b# V! m, A
End Class $ V& k( ]0 |- w' @4 p# _
function Encryptstr(Message) + A" X" l  A, U. d+ o7 d* K+ u, s
Dim LngKeyE
! q! f) |# X4 lDim LngKeyD ; ~, z* ~2 I. e8 c9 S; |
Dim LngKeyN
" Z  \' _. B( U1 h/ Z7 |Dim StrMessage
! O; C' i6 H0 u% [Dim ObjRSA 4 t# a2 @1 H3 |) R+ A) ^' n2 Z" n
LngKeyE = "32823"
; [1 u  o8 F. g9 C3 LLngKeyD = "20643" 7 N; T$ h: I2 w
LngKeyN = "29893"
. _# t# d4 [6 h! e4 b$ ~0 ]StrMessage = Message / |5 `$ w1 U, s+ g+ H
Set ObjRSA = New clsRSA + v5 m/ c) g/ ^0 S5 Q' t
ObjRSA.PublicKey = LngKeyE
; @# Q3 a) T# D# ]. N( EObjRSA.Modulus = LngKeyN : P/ Q9 {9 U/ U8 g2 R) {( N/ t
Encryptstr = ObjRSA.Encode(StrMessage) / C  N5 e4 e4 E
Set ObjRSA = Nothing
# B& g0 ~6 j+ Z- W, ?8 Xend function5 e, c: M9 `$ G# Z
Function Decryptstr(Message)
2 {6 L8 ]6 n, X6 t6 fDim LngKeyE , t3 f5 D6 k0 @4 I5 N$ I6 u
Dim LngKeyD # k. l: |3 u$ S: r% R* X
Dim LngKeyN 6 |# ^8 x4 F! ~2 d- T% Y4 p
Dim StrMessage 1 P2 F$ c5 R, ?/ U1 a( J
Dim ObjRSA $ [. K0 U+ {% k) H
LngKeyE = "32823"
. u0 O" ^" {/ p# D( |) ]  jLngKeyD = "20643"
: y1 s9 q6 {9 B8 iLngKeyN = "29893"
9 ~( I/ Y& j6 s7 W; ?* ~& DStrMessage = Message
5 @# q( y9 m( ^& ?( V$ A% c" Z0 a* @Set ObjRSA = New clsRSA
2 _& j8 S; n+ W+ Z/ u& NObjRSA.PrivateKey =LngKeyD ' l& N1 v+ t+ y
ObjRSA.Modulus=LngKeyN 2 f, j# N$ \: w$ b1 m; ?
decryptstr=ObjRSA.Decode(StrMessage) 2 ^( X+ U: F/ t
Set ObjRSA = Nothing
/ J* L, D4 w/ b- W6 ^/ rend function
9 `, b! Y, P- G%>* G) N0 B/ A; n4 e' q
===============================================# H- m" l" I8 b5 v! r5 [# k
: f3 K* E5 F6 P2 B
还有一个用于测试这段代码的test.asp
: v/ J3 g: O  }8 |) D0 v. B有兴趣的自己搭建个IIS测试下( G& |/ U" ^0 Y  H/ h& |7 b
<!--#INCLUDE FILE="RSA.asp"--> - ?- V9 n4 ?) x7 G% `$ ]( Q
<%5 |+ a# M! {1 X! U" A! V1 ^
function Encryptstr(Message) ( |0 S' @3 |( F  ^8 M3 P" I8 p, H) ^
Dim LngKeyE 1 G; `+ E, R. l4 P; U5 Z1 s
Dim LngKeyD 0 `  P: e8 F6 e
Dim LngKeyN ) r+ v. D5 Z7 w
Dim StrMessage   |; W8 x$ w" F! a4 k. F: e% m
Dim ObjRSA & m# V; R0 i7 L% K$ B& S
LngKeyE = "32823"
: y- m2 u) N* ?' e4 G+ ?5 ~LngKeyD = "20643"
) P6 ^: {. U# M3 g# kLngKeyN = "29893"
( q- ]! \/ f% J5 W) u5 g; dStrMessage = Message
5 u& x  l3 L1 ]  Z4 N" T' w; O7 HSet ObjRSA = New clsRSA ) d% U; K: X* p; w' J5 L& R
ObjRSA.PublicKey = LngKeyE
' v0 F, A# f" y( Z  ~1 [: Z  E4 N' oObjRSA.Modulus = LngKeyN
& A" x1 ~$ h( z" h: ~0 l  g, H$ T5 D8 EEncryptstr = ObjRSA.Encode(StrMessage) . ~) B9 B# j6 U; F( a, |! B( _
Set ObjRSA = Nothing
. r) L- M; [$ v, _* rend function
! \7 ?# ~& v# {: H* Nfunction decryptstr(Message)
7 P+ }- g  X2 O+ ]0 nDim LngKeyE
! v6 Q" Q7 c0 h3 fDim LngKeyD ' b4 S( ~+ k) ~, i$ _- v9 A4 q4 |. O
Dim LngKeyN
2 T* J5 c: w5 u5 i1 LDim StrMessage
3 O. u1 T) V+ A; C" iDim ObjRSA * C" u# P* ^' }
LngKeyE = "32823"
5 t8 {& N  j7 \, J/ a  j6 r) x  yLngKeyD = "20643" , {% ~" E, N6 Y( X6 c
LngKeyN = "29893"
8 Y/ }6 S3 g- N* OStrMessage = Message ; I  w+ k: T. ]$ Q/ _- Y' T: ?' ^5 V
Set ObjRSA = New clsRSA 8 Z4 ^9 v" `. E3 C1 X
ObjRSA.PrivateKey =LngKeyD
0 W1 v9 j6 T& [8 hObjRSA.Modulus=LngKeyN ; Y( C( ]. _9 E- S! P- e
decryptstr=ObjRSA.Decode(StrMessage)
* X8 C3 Q. L; p) g4 Q' _$ u# _Set ObjRSA = Nothing " o& |7 }" K. Y) b" c' [4 G! `
end function 1 }5 {1 v) X' R8 t! B/ S2 W
dim last,first
- U# y1 H* n6 ^( lfirst="!@#$%^&*()" 5 B* m, w6 l7 `* Z6 }* O) r. x
Response.Write "加密前为:"&first / y! N' l) y& {* s1 N  U
last=Encryptstr(first) ! T& B* k( k$ I, w
Response.Write "加密后为"&last
( ?8 ?* X0 O! I6 C6 Y% @Response.Write "解密后为" &decryptstr(last)   w% F* K2 F; M2 B, |2 ~
%> ==============================================0 m+ Y7 h" i( O2 J8 Q& T5 D! Z8 o, F
剩下的就是字符的对照表了
+ e! c4 x% C4 `! C6 e6 o===================字符集================
: p4 Q% s3 L4 i% ?1_____6EBB/ l8 k6 s) n( c# b. k  w- U
2_____5C1F2 W% d( h# s) W4 L
3_____4D75+ B) z8 S3 g- h4 v7 Z
4_____26CC' Z6 h5 v! l& m" k% y4 r5 g
5_____4F887 g: o4 H) E+ G" l5 |2 L- [
6_____3F4E1 k; z* M3 H) |, j
7_____0A9D& {& i/ k4 H2 H; V; a# P
8_____1A1C
. ^$ X( ?: ^: m9_____6D206 y( A6 L8 q% h) C  B
0_____1089
" }: D  n8 q2 ~% n/ ba_____0F3E1 e3 o! A' x# A+ G+ o' \
b_____31597 {# l( |4 p" ^5 N2 K
c_____3517
6 s$ o# G: V6 W, Ed_____419C
/ C. S' H& d/ G2 Y( ge_____615C2 P( p- v/ r, z6 g. C! t4 X) m& V
f_____556F5 z2 V. O& F1 O; }
g_____2B7F6 n1 B4 E' s/ U0 G
h_____0F9C; ^7 i4 P; t: x% X3 \; |
i_____00FA2 N! d& o# u. V: M
j_____5A50
' ?9 I0 W/ j0 W$ ?, Y8 }( Nk_____28508 r$ T  T& Y* D3 B1 M& J5 _
l_____3E7B" q' o6 a" Z; J- G8 T2 b
m_____71C5
: G% I* k/ p" n- c1 d+ q+ pn_____1FC8
4 d, ?& [! q( `$ wo_____74C1
( ~& |  ^" [- w0 A2 Vp_____5FB8
% q1 _+ _; p3 O( u+ p. l( v: Zq_____6085) U7 O3 `7 k4 }1 W# f! G( J; p
r_____3AC4
0 z2 n5 X2 Q8 X. j* es_____2F50
! Z4 \, u  |% u: g7 e$ Qt_____36F8  ]7 V3 z7 D: h  M1 w" P$ S6 |
u_____70108 C+ N" M$ D  e( I
v_____0B42
: H1 B; A9 w  F# @w_____1C7A
3 O* U7 a/ W+ n4 f3 U/ px_____16F80 ^  x. |( [* A/ v/ j1 r+ b, h: }
y_____2EE7( p1 W& l9 |) m8 c
z_____5CF31 m/ S# H, M: W0 z9 W% M
!_____62332 e* _, P0 u5 |3 j) s
@_____3A45& R* [1 c+ d  H% p3 y; G
#_____2291
& E) d2 \- R+ \9 ~+ ]$_____5D5C
# ]3 Q" K: q7 k0 p" L. M; z%_____09B9- |& h. Y4 B' t% a+ ~+ k9 W* A4 Z
^_____43EA
3 q1 q  y; ^6 U5 n&_____62B9
! J2 X3 W5 j0 L0 n4 R, p3 K*_____6301* G7 f3 V( A+ Y: O4 y
(_____4659
6 G% L3 x! M' l7 ^1 W% \7 ?' [)_____5C82

鱼儿无心

收藏了。。。。。。。。