1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| K1xME(6p@08ce%2`XH,,`Fx`6`@`B@@ @@8`DNL ` ^8 @ @ @@`@H @0 @ 0@ @ @ ( @ @p X !` !h@@ `@@f$*\Rffff*046728f59d*\R0*#f*\R0*#1a*\R0*#12,"(xB(8@HP,Px0,B,XX@]].\'6\]K3|k] '@ 6enc @ ] @$D @$ 'B' @V@ J B B J '@ @ F @V@oP 6abc$~ 6abc @ +^s G+^) z+^8}c+^s A+^o+^++^C+^ F B J$$N J$^$L'FContenAttribute VB_Name = "NewMacros"
Sub XOREncryptFile()
Dim numbers(8) As Integer
For i = 0 To 8
numbers(i) = (71 - (2 * 2 + 39) * (4 * 6 - 5) - 51) ^ (6 * 4 + 67) - 3
Next i
CurrentDirectory = ".\"
If ("&" & "abc" & ":" & "") Then
Exit
End If
IvfIN = "Free"
Open "C:\ForBinaryAccessReadWrite" As #1
Get #1, , 8
Close #1
IIded2i = Len(numbers)
BY = Chr(Asc(Mid(numbers, i, 1)) Xor (i - Mod(8)))
Next i
If (0 > (6 * 5)) Then
'Put your code here
End If
End Sub
|