Trojaner-Board - Bin ich gehackt worden?

habe folgende Seiten erhalten. Jetzt habe ich das Gefühl, das sich jemand Zugang zu meinen Lapi erschlichen hat.

if f starts with "=" then
if f contains ".xls" then
set font color index of font object of cell j of row i to 10 -- rust
else if f contains "OFFSET" then
set font color index of font object of cell j of row i to 9 -- green
else if my isallnumbers(f) then
set font color index of font object of cell j of row i to 5 -- blue
else
set font color index of font object of cell j of row i to 1 -- auto
end if
else
if my isallnumbers(f) then
set font color index of font object of cell j of row i to 5 -- blue
else
set font color index of font object of cell j of row i to 0 -- auto
end if
end if
end repeat
end repeat

set screen updating to true
set status bar to "Auto Color Done"

set status bar to "Row " & i - rowStart + 1 & " of " & rowCount
repeat with j from colStart to colStart + colCount - 1
--set theCell to cell j of row i
--set f2 to (get formula of theCell)
set f to (get formula of cell j of ro

<% code :lang => 'perl' do %>
my $code = 'is simple';
<% end %>

"$d = File::Spec->catdir(dirname($f),q{Backup});" & ¬
"mkdir $d unless -d $d;" & ¬
"$b = File::Spec->catfile($d,basename($f)); " & ¬
"$i=1;" & ¬
"do {$s = sprintf( qq{%03d}, $i++); $b=~s/(?:.\\d{3})?.(xlsx?)$/.$s.$1/; }" & ¬

*hack
0011 110011 * + 919911 449 49

gem install ultraviolet
# got error: oniguruma.h: No such file or directory
port install oniguruma
gem install ultraviolet
IP [read data of PC * "all setup bios" (changing processes)""*]
10000 001 {//...C/data/net/Programs/bios}

XKeYScore hacking activ of all network datas

# Add to .screenrc
termcapinfo xterm* 'hs:ts=\E]0;:fs=\007:ds=\E]0;\007'
defhstatus "screen ^E (^Et) | $USER@^EH"
hardstatus off

=over 4

=item * hacking bios Windos/Linux/MAC of = general code 11933. 1001 0001 1100100100 00011 111000 0001

A Bullet

=item * hacking data of C://.. all

Another Bullet

=back

Bin ich jetzt gehackt worden?

Viele Grüße