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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm9 g1 j% D; V( |3 O+ ?7 r
原始出处：http://www.3ast.com.cm1 T: p! l: t* p6 v

) K7 J) t# }; A4 y. x- L' [4 l  D看不懂的直接绕过0 \: m5 ~7 G3 `  ?; W
加密前为:hwy1234561 H1 i+ y, i) R! u: k
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
9 z6 z  C3 R( q$ g1 E$ d- k
2 B1 p, w+ W. p1 J- T+ v6 k============================================
3 k  V7 d) E/ t& h上面是当时自己校内的心情。现在已经解破出来了，分享给大家  _; i( j1 U$ _7 j- L" ]
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法! @# z& a  T5 O9 H/ C0 a4 i
以下是RSA算法文件" {- M, H& o1 T2 E8 \
: K3 @; K" ?4 a- \' O9 \$ y/ F  S
文件名RSA.ASP) z3 x8 u! ]% N; R! ~
===============================================% t( H! p% _4 y- K
<% % \. |2 z5 m# e7 s
Class clsRSA 1 x; O0 `/ @- ]8 _8 Q
Public PrivateKey
9 \, ]4 V: ~  m& o" t* FPublic PublicKey
0 N% R9 ~9 [  t) S% MPublic Modulus
! U' Z. b8 i/ }Public Function Crypt(pLngMessage, pLngKey)
8 i( c* @+ k+ @% i) s8 nOn Error Resume Next - C2 a5 p& t) ~) |
Dim lLngMod ' U9 y" R+ f. M1 ]+ ^
Dim lLngResult
' \8 r, M6 b$ y5 TDim lLngIndex
$ \. m; j* M: j9 kIf pLngKey Mod 2 = 0 Then
% f! M! ?& Y# h$ W' Q- `. HlLngResult = 1
4 I) y. i  j' u! L5 s! b) TFor lLngIndex = 1 To pLngKey / 2
$ V* X6 _. g3 z& c: ?3 L0 e7 @lLngMod = (pLngMessage ^ 2) Mod Modulus
2 l4 h9 M6 g2 w: T: X4 u# M' Mod may error on key generation - V* @; W- I. w3 Z
lLngResult = (lLngMod * lLngResult) Mod Modulus 9 j9 @' C) i6 [$ L! N
If Err Then Exit Function : Q* g( {3 a2 Z7 H0 Q( M$ ~* M1 z
Next
4 z0 G1 w" S( M+ P) R$ T' f7 GElse % i  \' |) w& m8 t* J
lLngResult = pLngMessage
, B, |/ U7 G4 p. j2 ^For lLngIndex = 1 To pLngKey / 2 4 X  {2 b# i$ a% Z. h, d
lLngMod = (pLngMessage ^ 2) Mod Modulus
7 H3 T7 y2 [! X: A9 ~" HOn Error Resume Next ' Z! G) q) S. j
' Mod may error on key generation 7 K8 r; h5 G0 V8 w0 O5 ^
lLngResult = (lLngMod * lLngResult) Mod Modulus
! O! w: t2 |! LIf Err Then Exit Function 7 F/ d. j' A' p) x, v2 N
Next " e: l& A4 B& D; f& W8 z* Q
End If
- [, a& n0 N: F0 [0 wCrypt = lLngResult
! N' Q& b5 P' A$ n5 i3 t2 S0 {End Function
& l5 ]  i1 q" I$ C- w% R/ A; |4 y. w# w1 l
Public Function Encode(ByVal pStrMessage) 6 H# p+ s4 t7 `" b# B
Dim lLngIndex
) w. h1 M  m$ A1 V, i( A0 w& [) W5 iDim lLngMaxIndex % I: q) S& e8 \$ N; r& K
Dim lBytAscii & `9 k4 {5 I- X2 h) H* |
Dim lLngEncrypted
2 P( H2 v0 {5 L6 E6 xlLngMaxIndex = Len(pStrMessage) ! l: C9 V/ Q+ Z7 t7 I6 \
If lLngMaxIndex = 0 Then Exit Function 5 j# Z/ y3 L6 ?- B4 C1 x
For lLngIndex = 1 To lLngMaxIndex
, X6 I; Y+ w4 s) N1 {& qlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
# l& s4 g$ H7 g! D; c# D" T. M- FlLngEncrypted = Crypt(lBytAscii, PublicKey) : |! E4 g4 y( x1 u0 J
Encode = Encode & NumberToHex(lLngEncrypted, 4)
1 j! ?$ w0 l# @Next
/ F9 Q, F8 L" P% v3 G3 BEnd Function
0 Z7 u$ g# u( Q3 F! P8 G# KPublic Function Decode(ByVal pStrMessage)
! V: X7 {# k' ^- u1 [Dim lBytAscii 3 t4 a& D0 t. A  ^7 T! m- V1 z
Dim lLngIndex
6 v) s2 |/ Q' p8 y# p7 c& Q( BDim lLngMaxIndex & b) V* t" K6 I; x% H, t( }+ ^
Dim lLngEncryptedData . P; y$ D, g' x0 w$ P
Decode = "" 3 w; P$ K, [) T4 s. ]) ~
lLngMaxIndex = Len(pStrMessage)
  f4 m6 C4 _- ]" PFor lLngIndex = 1 To lLngMaxIndex Step 4
- C8 a; B# Y+ k: i( r6 q4 U; xlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 6 p0 O: A1 n$ L
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
5 t, D2 U3 d, ]/ n" g/ LDecode = Decode & Chr(lBytAscii)
) K' J0 i, b" {+ O( }+ ^  }8 hNext
* Z  E* ^& a' z$ n* V2 B) CEnd Function & P& q! [6 P- C  d8 _
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
7 q+ z0 N$ m  `; a" ONumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 0 Y1 N5 M2 w- k. b+ ?: G% ?
End Function
+ {; j' i0 J8 u( _; h) wPrivate Function HexToNumber(ByRef pStrHex) 0 H4 @( K  y$ `; h1 M& a
HexToNumber = CLng("&h" & pStrHex) 9 {& }/ C# W- R! B" S9 d4 I; ?5 e
End Function % B$ e8 _# Q+ B; {  Y3 Q
End Class
! w; ?+ T9 L+ n8 i' Hfunction Encryptstr(Message) / z$ Z# n1 o& J! t
Dim LngKeyE + `: X8 j: }6 W, P9 _. i
Dim LngKeyD , }8 ^$ `' u7 z4 i! N0 s1 o
Dim LngKeyN
3 n2 Z2 L* y2 K" s$ ZDim StrMessage : ^- E& B. U$ v4 u
Dim ObjRSA
; Y4 z  c1 T$ a. |3 T9 T2 V5 L; ELngKeyE = "32823" 2 L: X- x# `4 b3 D: D( I1 Z: j
LngKeyD = "20643" ! F, c8 S+ x1 X0 G$ _9 Y% O
LngKeyN = "29893"
1 T& E. Y3 Z% {9 R1 ?1 VStrMessage = Message
, h+ A+ F/ ?3 o- f: Y7 ySet ObjRSA = New clsRSA
: j: N8 M1 C  o7 {' }8 {8 Y# NObjRSA.PublicKey = LngKeyE 9 `8 G: G/ o9 j* J: F
ObjRSA.Modulus = LngKeyN % S5 v6 s' N8 T
Encryptstr = ObjRSA.Encode(StrMessage) 3 ~" g5 X$ w; \/ j  I, U2 _/ N
Set ObjRSA = Nothing # f2 s- f# l" q; ?
end function: e# V% x9 x+ ]
Function Decryptstr(Message) . C( B, n7 H" l+ s- w1 U& s
Dim LngKeyE
# E# ]' @; t7 LDim LngKeyD
  }( |' ^8 t5 L' gDim LngKeyN ) q$ W' V" _! C2 B. ?, E
Dim StrMessage
- N& j3 ^4 y) `, _' wDim ObjRSA   k5 t9 |. P) Y: W
LngKeyE = "32823" $ l% D# i! X* P$ ?
LngKeyD = "20643" % d/ F2 |4 r$ q; I: O  Z, G5 t8 N3 h9 N
LngKeyN = "29893" , p- d4 K+ r  c+ ]: h3 G
StrMessage = Message 7 |# y" R# v# C
Set ObjRSA = New clsRSA 5 M% O, b& S1 d+ b2 M" m
ObjRSA.PrivateKey =LngKeyD
* f; S( J% x9 p1 R1 }9 c7 GObjRSA.Modulus=LngKeyN
+ I: m- c) s% Q* y' m8 Z( ldecryptstr=ObjRSA.Decode(StrMessage)
0 b% m% I# p9 M7 t, ~3 C( f. G3 u$ Z  y3 zSet ObjRSA = Nothing 8 l# y# g" B) H6 ~8 `" w' v
end function 0 |3 y/ z: N8 ?) o- A. p' I0 _
%>
' Z$ u4 O4 ]/ N+ [; J2 U; G9 |* w===============================================
2 B* r1 Q! W+ C2 D! m/ Z; K- E+ b$ h4 k* f8 y4 F1 F# j
还有一个用于测试这段代码的test.asp; g' T' K/ |, ?8 B- |
有兴趣的自己搭建个IIS测试下, [2 D. c& l( Y0 Y. w% H  Y7 A& A& p3 N9 g
<!--#INCLUDE FILE="RSA.asp"-->
1 D8 ?( K3 G5 q* d& T: N5 T8 i<%
/ o0 Z" q1 r9 l( Rfunction Encryptstr(Message)
) R1 l! T# S# [* r9 Q* B3 JDim LngKeyE 4 V* _6 s3 ^) ~3 a2 Q0 [
Dim LngKeyD
& C( c, c4 M  a/ T* D6 }Dim LngKeyN ) w; J/ H6 ?6 l* v! h) Y  j; I& _: |
Dim StrMessage - x) l6 I2 `8 I6 V
Dim ObjRSA / P' Y, y" Q# F6 I5 V0 u9 P
LngKeyE = "32823" , ^( p( b6 Y6 }! l' g
LngKeyD = "20643" 8 a$ |" y3 m. N3 j4 U5 r/ U
LngKeyN = "29893" # l+ Q1 _( v+ M. a" @
StrMessage = Message ) q5 z. Q/ W( x# _8 E
Set ObjRSA = New clsRSA
+ p' b* i2 B) E0 fObjRSA.PublicKey = LngKeyE 5 a5 O; E; _4 p+ y: P; n$ k1 T
ObjRSA.Modulus = LngKeyN ! e# \+ q0 l8 M/ A: p$ P. y: z
Encryptstr = ObjRSA.Encode(StrMessage)
" k4 r7 J+ g; b3 y  m7 f; N9 P% ASet ObjRSA = Nothing 6 q0 J* e  D: Y, k
end function
; j  @& Y- H$ y0 Y( s7 ?function decryptstr(Message)
5 Y9 W7 j& @$ f1 \% v& M2 WDim LngKeyE ! }. H# `8 c, S
Dim LngKeyD 1 b; R' \3 }/ i8 ?
Dim LngKeyN
: F3 E; \- r3 X# g; l* m& PDim StrMessage 3 G. j% k4 V0 e: z
Dim ObjRSA 7 W3 c/ c% B- D  q/ z0 A
LngKeyE = "32823"
; }* s- n) n0 `LngKeyD = "20643" % r' G% d; X" @; h
LngKeyN = "29893"
: g+ n/ s4 {% ~% ^$ H$ TStrMessage = Message
+ {: r3 e$ ?% p0 f) BSet ObjRSA = New clsRSA
; v$ C- B8 M2 e& Y0 a" FObjRSA.PrivateKey =LngKeyD
' f  V% I( J, r/ ^4 V7 rObjRSA.Modulus=LngKeyN ) }: `1 t$ a0 G& o2 C, Y
decryptstr=ObjRSA.Decode(StrMessage) 7 T# g' a. f" ?3 Y. t  m' I& g6 B; o
Set ObjRSA = Nothing . H( A, b- j) P' {  q2 s
end function / P" S6 S8 c- Q7 H& N4 O0 a- ]
dim last,first / @0 z+ W- o! `
first="!@#$%^&*()" + e/ D0 \( K, {" k; K
Response.Write "加密前为:"&first
; A0 [8 p$ ^- S6 H% C1 rlast=Encryptstr(first)
" L7 \" N# {( I6 d9 |2 dResponse.Write "加密后为"&last
1 X7 V0 A7 H- Y( SResponse.Write "解密后为" &decryptstr(last)
2 a; t: D& N4 z: j: G- [%> ==============================================* d6 e9 _2 C+ N& ?
剩下的就是字符的对照表了
3 j9 K# l4 B/ F5 X4 q===================字符集================
8 f6 K1 C# U$ o/ X2 \( `5 F1_____6EBB
/ x, k2 @) P9 y% x$ \2_____5C1F
; G4 `3 b! h7 c- S% l3_____4D75
6 L8 ^( m$ T1 _  i7 P' r- E4_____26CC
  m. ^  \% s0 O, Z. z! |# F/ {5_____4F88* I& W9 o! L; H
6_____3F4E$ {4 o2 y9 w, I: o* o% Y" e
7_____0A9D4 p" g! [( q7 A. `/ T
8_____1A1C
- a- w7 h2 f( x" }2 z* D7 ?& s  o+ M9_____6D20( t6 g# D+ l5 ~' f3 A' b: u
0_____10890 `# W% F# j/ o) E& N3 ^
a_____0F3E
5 j- z: W, W9 D" N& \) Mb_____3159% ~% l7 J' B* ?
c_____3517/ M7 i* d, O+ G6 L0 a; r# m
d_____419C
4 [1 {0 G# ]8 s2 i: z% d, E2 V! ~& je_____615C3 o; s' s: X/ g
f_____556F6 x5 O/ R: u$ o  [+ t
g_____2B7F" S/ k" `# I# _- |
h_____0F9C) r7 t5 @3 ?% J* ^) `5 o
i_____00FA
3 v  ~6 o6 n# D" ~j_____5A50" w& E" V# Q$ w( y0 P: b( a6 C. H! K
k_____28507 l2 o7 l: @" _& U2 b
l_____3E7B
9 s0 o8 Z  H0 H3 Q  ?m_____71C59 z+ V3 r) k9 l# k" C2 r- n
n_____1FC8% z1 s6 w" @' T. \& d& w  n
o_____74C1* g- A9 V9 j: T" u6 N0 f( ~. D- A
p_____5FB8/ g" q9 e) [* u- V+ d
q_____6085
. X! e+ [4 `3 O. F& b: m# Q! Cr_____3AC4, c& c) k! t( k5 \% o9 [# ~! v
s_____2F50. h  F5 u7 k" e4 ^# S- {' [
t_____36F8+ p, R1 f% T% d) `1 a- m) C8 n- B
u_____7010
5 m$ s1 n/ ~! n' a( s5 u% Kv_____0B42! _1 W3 N# _/ @2 U- Z6 x, u: Y
w_____1C7A9 ]& C, A' a7 \: p4 f
x_____16F8; ]% T) U9 x, Q1 `& [$ Y+ y+ u  H
y_____2EE71 U1 _3 l* J8 j' [
z_____5CF3
- \5 ~" _& d" l& \7 S8 m3 Y9 w7 _!_____6233
" ^$ g4 I" \! _8 }& F@_____3A45% ]  K/ ?, r* y8 u) Q% ?2 W5 W
#_____2291
+ {- x( z/ c1 A) J5 A! a0 W3 ~$_____5D5C9 t4 N( L9 T3 {2 U. Y5 j# N
%_____09B9' X2 b% ~! U! I8 o# j. ~
^_____43EA
* K. E+ y: Z) Q, R0 d&_____62B9- V/ s- ^  @2 _
*_____6301
1 w* l* I) U# p1 ](_____4659/ I+ E2 o  g, }' ]
)_____5C82

鱼儿无心

收藏了。。。。。。。。