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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
6 D7 H  ?' O: T6 ~' g: T/ F原始出处：http://www.3ast.com.cm
! G2 a" S/ N( f! h4 A! J! _0 ~6 u, q- ~# m- N
看不懂的直接绕过
) I- `$ \3 i. [0 M加密前为:hwy123456
% ]% l) T4 g1 ?( g$ Q- v加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
; U' q5 B$ {& N4 h9 u/ x
! K3 {2 E/ V) f, h============================================  X/ x0 j7 h, ^+ j: r
上面是当时自己校内的心情。现在已经解破出来了，分享给大家4 G* y9 ~& `( I6 q# I9 k* e9 @
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
$ a6 \5 ?9 l0 D. O& E- F9 F, Y以下是RSA算法文件
/ j& A* V- [$ X4 h5 b9 |/ T) q7 v2 f+ {4 F8 ~& f" x
文件名RSA.ASP
$ d" O! b7 o) ~# g" |===============================================" D8 v& g, X: x% v
<%
( o. h. a8 M% ~$ H2 o& V/ j1 CClass clsRSA 0 x8 c  P- g& [& J) n4 S9 d3 J- E
Public PrivateKey / v+ Z3 R* u3 ^0 b0 \
Public PublicKey
# H0 L' A  ^8 P6 J$ ]2 M9 B/ OPublic Modulus ' H) c% q6 U! N4 R6 ^3 ?' m) U2 d; E
Public Function Crypt(pLngMessage, pLngKey) - n( _+ u3 b0 F& {0 W/ e
On Error Resume Next
. w) p$ |; c4 f* m3 B) j" |Dim lLngMod 5 X; ^6 ?% ~( V" Z& a2 s+ T2 w- c2 @
Dim lLngResult $ H0 _, s6 i" V
Dim lLngIndex / |' E/ c% j) C" [
If pLngKey Mod 2 = 0 Then + A) Y$ p* O: p, b; x% M5 b  {2 ]
lLngResult = 1
; f; S0 Q% a/ G5 x. ]- n& P- M- ]For lLngIndex = 1 To pLngKey / 2 ' Z& r) y1 V9 f  j7 b3 V' w
lLngMod = (pLngMessage ^ 2) Mod Modulus . {% m, }& A; @! n
' Mod may error on key generation
: j. [# h" N- c4 I7 J( alLngResult = (lLngMod * lLngResult) Mod Modulus
! T4 A2 D7 C' \If Err Then Exit Function
% G' J. z9 M! Q; MNext 4 _0 V4 h4 ^0 [6 v
Else " u# Z. \9 s5 x  |  _
lLngResult = pLngMessage : p/ R9 X4 q% C
For lLngIndex = 1 To pLngKey / 2 0 D; X, [3 r0 F  {8 ]
lLngMod = (pLngMessage ^ 2) Mod Modulus 9 J# P" S7 c. w: n: X0 L
On Error Resume Next 7 J" |0 c- R5 x  }# W8 `! ^
' Mod may error on key generation + y% q# F" v+ W( {. S% m7 ~: x* o6 z
lLngResult = (lLngMod * lLngResult) Mod Modulus + U2 _& K5 f; v6 Z+ I2 B# r+ r! w5 x
If Err Then Exit Function ; [2 M; g1 ~/ _# i0 z/ }
Next % {: E9 X/ h- ~7 {5 ~7 b
End If
- \8 L8 u$ K1 W( N, u1 MCrypt = lLngResult
1 M* L* x* h2 qEnd Function
0 @) K9 @1 ^$ d) F: `. h1 m/ V& |! z5 W0 @' R8 t0 p
Public Function Encode(ByVal pStrMessage) 0 [% T! Y5 V" Q0 B
Dim lLngIndex 6 A6 C" P  s. M2 ^$ W4 w9 \) k
Dim lLngMaxIndex
. p- d, r6 r. \* l, R+ IDim lBytAscii
7 E: @, Y! j! H; d! x) b3 c& cDim lLngEncrypted
3 J  j$ J$ o/ NlLngMaxIndex = Len(pStrMessage)
4 q/ D9 P4 P( _; Y0 p( GIf lLngMaxIndex = 0 Then Exit Function ( T8 f2 T. L% K5 k& C; {
For lLngIndex = 1 To lLngMaxIndex
/ O9 `0 I+ X0 t7 n' dlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
" r+ D  I/ y! [lLngEncrypted = Crypt(lBytAscii, PublicKey) 9 Z: f' }, w8 {
Encode = Encode & NumberToHex(lLngEncrypted, 4) ! V' t# M3 n8 _3 U3 r0 @. F
Next ( P( u- \4 |3 i, e
End Function 4 {  y6 S% J/ |
Public Function Decode(ByVal pStrMessage) 1 ]: i0 r" b  C4 D# c8 j
Dim lBytAscii ( p( |% i; {0 G5 D1 ?  S& L# V) U
Dim lLngIndex & n% U1 z8 q0 {# @4 i
Dim lLngMaxIndex ' ?" R* H) C9 V! @+ N2 o
Dim lLngEncryptedData - k( D: [- }1 T. h
Decode = ""
0 n* u1 @3 W* a/ k/ a4 w+ j5 _lLngMaxIndex = Len(pStrMessage) " P5 i6 A5 o3 \2 ]# _) ^# s
For lLngIndex = 1 To lLngMaxIndex Step 4 * U( q* Y( t, e# t- A
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 5 Q& E. U# `$ U: d; D; h
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)   h3 G. n% n, v  _; P" J5 t& _4 l
Decode = Decode & Chr(lBytAscii) 4 D# K3 |( i  S- j" e
Next
% S* }" f, `/ L  g5 GEnd Function ! q( j, n1 \/ D) `0 e. H% K
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
9 ~% q! s2 c- hNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) : f2 \; m, \4 H- e* |- y
End Function
/ g3 E0 i  C, u  g4 t9 TPrivate Function HexToNumber(ByRef pStrHex) . {% r1 c7 o& w6 F5 O8 R: m6 H
HexToNumber = CLng("&h" & pStrHex)
/ j: Z  g: m0 d- p2 ?- E- M: nEnd Function 6 ?0 X  o* W+ q4 y4 \, o! V
End Class
- {2 |5 d9 H2 y' b# `4 B! E1 {function Encryptstr(Message) " o: K4 j4 `7 q& I. W4 Y& R
Dim LngKeyE   p$ e" i4 k  o/ j
Dim LngKeyD 3 E  k4 Z- _  J9 h- P1 H9 ?
Dim LngKeyN
- f" o/ D( T. Y+ |( c+ w) fDim StrMessage
% o2 h+ t0 Q: LDim ObjRSA
6 M2 Z( Q; h" r1 o' D; S  Z, O& W. VLngKeyE = "32823"
; Z1 Y3 ~  E1 P4 fLngKeyD = "20643"
( \' R2 f- Q, PLngKeyN = "29893"   m- d( B6 ^4 A9 ^+ h
StrMessage = Message
( q9 H4 W* L1 h1 _- W9 MSet ObjRSA = New clsRSA : ~7 @, ]3 U3 y
ObjRSA.PublicKey = LngKeyE
3 i" p+ P8 }; C2 C, B4 mObjRSA.Modulus = LngKeyN ' B9 R# x" p1 A; X
Encryptstr = ObjRSA.Encode(StrMessage)
) q4 a/ e  g7 ]% ~Set ObjRSA = Nothing 4 q( o5 S  `: p: [$ H' j6 _5 j
end function
4 A0 b! S1 k5 x4 R2 gFunction Decryptstr(Message)
. W3 _+ P( J0 M  QDim LngKeyE ; T9 o7 Y$ H3 p1 K6 h( [5 I# d
Dim LngKeyD
8 W5 v" h8 c1 a. X. H$ E2 yDim LngKeyN
! j# O) ~- T" UDim StrMessage # u  |% ?: Q9 B7 |
Dim ObjRSA
: ^  Y7 f* b( l$ j! P! RLngKeyE = "32823"
" S6 y" I) z( H- gLngKeyD = "20643" $ D& ?, O" a! i
LngKeyN = "29893" , V# r' I+ J' p7 I
StrMessage = Message   l( t( }$ p' z$ G3 `0 r
Set ObjRSA = New clsRSA 2 F( J+ U+ g5 X- T
ObjRSA.PrivateKey =LngKeyD $ |. T4 h& E  e+ ]/ v; H* f
ObjRSA.Modulus=LngKeyN
. f( Q& v2 N; H" q6 Ddecryptstr=ObjRSA.Decode(StrMessage)
1 c! {6 y9 X0 pSet ObjRSA = Nothing
: a0 |: [9 h) q1 S1 X8 N: S1 h3 Nend function ) U* y+ ^7 k" L* y
%>
/ I1 R9 r) u% G===============================================
5 e" j6 B1 A3 x; L; Q3 _5 Q. P! h, L; d7 G) Y& h, x/ h" h
还有一个用于测试这段代码的test.asp
! ?) e. N1 W- S4 h& P5 O" U  z有兴趣的自己搭建个IIS测试下
) c- f: J$ v1 g7 i2 k<!--#INCLUDE FILE="RSA.asp"--> * _! C, Q& T  Y8 k! ^) E( F( S( S; i
<%
2 E3 L3 g. {5 u% w. I- T- V6 dfunction Encryptstr(Message)
8 f, P: u6 @* D& {Dim LngKeyE 5 D* P; {' T: ?; w
Dim LngKeyD 2 z) w" }; s5 y2 z! E6 S" u
Dim LngKeyN * o  n( B. H" y- z& l1 T! q
Dim StrMessage
3 ?3 z' B5 D' U; J' \Dim ObjRSA ( G* L1 p. g2 o5 {
LngKeyE = "32823" & u7 M) r# e3 @$ O4 L5 f- r
LngKeyD = "20643"
: o: u) t( U" [3 ELngKeyN = "29893" 3 m# t! D/ K% V7 q
StrMessage = Message
) E/ b% N" N0 R4 e- i! TSet ObjRSA = New clsRSA $ k$ S; B/ u0 K& O% |9 \1 I9 F
ObjRSA.PublicKey = LngKeyE
4 z1 ?+ M- ]/ uObjRSA.Modulus = LngKeyN 6 X- h0 S9 L# t2 u% U0 o% @  w
Encryptstr = ObjRSA.Encode(StrMessage) % h  H8 b! R5 @1 P) F$ p' h
Set ObjRSA = Nothing 8 b* ]2 _6 M" m* p2 c  X
end function 6 I9 J8 W, m/ }
function decryptstr(Message) ' j! M% \4 Z3 ]
Dim LngKeyE - {# l$ [$ ~* `+ u2 w8 z7 c$ t
Dim LngKeyD
: o' v3 e% f, F+ y$ eDim LngKeyN
! v" s# X! D: i9 BDim StrMessage , S8 V4 i% X. j8 T
Dim ObjRSA
8 r2 v3 E6 J( ?LngKeyE = "32823"
5 s; N% Q) X4 q% p. FLngKeyD = "20643"
( M" |7 B1 ?! A, ^LngKeyN = "29893"   E; q5 m/ P! t! \$ m
StrMessage = Message 0 q3 ]4 _: B( ]0 z- G6 O1 F
Set ObjRSA = New clsRSA
9 m3 F1 k+ y* k/ M$ ?& a. w& U0 `ObjRSA.PrivateKey =LngKeyD * I2 a( o: h5 s
ObjRSA.Modulus=LngKeyN : D6 r3 J, @9 S, z8 R
decryptstr=ObjRSA.Decode(StrMessage)
% |$ `9 I4 F/ F" aSet ObjRSA = Nothing
) M& h$ z" p2 [end function
' y& Y! l# [% {dim last,first " b7 }7 h: P9 s& x+ S5 Y* Q
first="!@#$%^&*()"
) a# L3 M  G/ t# M$ lResponse.Write "加密前为:"&first
, c5 ]$ _+ j  q8 ]# F. llast=Encryptstr(first) : d! z, }& X- z7 P* K
Response.Write "加密后为"&last , E2 `8 ?8 |" w. d6 s9 h
Response.Write "解密后为" &decryptstr(last)
# m5 b8 q' N8 M0 A: s2 S%> ==============================================
+ f7 E+ M5 [1 ?* y/ s7 h剩下的就是字符的对照表了: L5 d$ F9 k8 @% v) [% T
===================字符集================$ e" F; W8 ?3 T6 y. Q
1_____6EBB5 b2 e, d7 @' K# z+ i
2_____5C1F- F5 N& S1 V/ z* w' u+ d6 J
3_____4D75
8 q+ P5 _# `" Q4_____26CC0 s" T; B" _" K3 j" R
5_____4F88
; v/ i$ ~: c  {6_____3F4E2 p! V2 t; e1 t. \- ~) Q  [% d
7_____0A9D
4 f, t( d( `' ?4 @  q# ?0 C2 R8_____1A1C
5 U: u7 `9 h+ j  p" k1 \9 b9_____6D20
0 S1 S/ ~8 @( a3 |. }0_____1089
* H1 S! g3 v4 s3 L  c+ ~2 `# ea_____0F3E# T) k7 ~. B6 g" _- [
b_____31590 E! _" a3 D  t5 b. |3 C* Q  g
c_____3517
1 f* N+ f8 \! Md_____419C
( r7 _; t; K" g" z5 z: T. `e_____615C% @6 ?# u7 X* S) D
f_____556F3 d- B6 e. ]; k' {
g_____2B7F3 i/ k. p2 K# p* I/ s) w
h_____0F9C% x& K" h3 |! o7 u* k4 O: \
i_____00FA
+ `2 N+ N1 e- Y5 n, ?) oj_____5A50
4 k/ ^1 \# l3 J" }# {2 ]k_____2850
) b* ~2 ~( n& e5 h6 l3 u5 t" ?1 C  Tl_____3E7B
; G7 [) f( _& z% j, zm_____71C54 m1 d6 K% M- [0 b  Y
n_____1FC8
! v* E0 r1 f9 u! M, @' h) Lo_____74C18 a# ]8 n2 v  q
p_____5FB8/ w* g' {: B* d! |6 F" j
q_____6085
) k: n% n; R/ u1 n1 br_____3AC4
! L# [; ~& _1 x) Is_____2F50" V2 M8 J( n+ X7 S# M4 o
t_____36F8$ G' N7 e, x0 D1 N7 Q! D5 {
u_____70108 Z% n) I% ~! g
v_____0B425 S" ?: K: [8 J7 m
w_____1C7A! l% z0 o5 I/ H) v+ A
x_____16F8
8 `  B$ ?3 a( T& Xy_____2EE7( K7 A7 s( _; u  ?+ \
z_____5CF3' ?6 o7 [+ k4 s. v2 Y; G' |) }
!_____6233
" ~3 \9 J: [2 D) ]) E5 \* W@_____3A45
& c# s6 b" ]' y% y#_____2291; s8 \( ~. ~4 R6 D: |4 P4 S- u
$_____5D5C" |0 q3 M+ H5 Q* v
%_____09B9
; R* w% O5 q( N^_____43EA8 W7 D& ^" h: n. w" d1 l
&_____62B9
9 ]4 |2 O$ E* z*_____6301
# v( r; Z3 b8 K1 d' C(_____4659
; i/ ^. I) C3 B. r0 i4 H)_____5C82

鱼儿无心

收藏了。。。。。。。。