stale.pas

2003年的远程控制

unit stale;

interface

const BD='- - - - - - - -';
const progname='Prosiak v 0.70 beta 6 client';
      progauth='the best polish trojan for winshit 9x';
      disconn='[not connected]';
      nl=#13#10;
      picturefile='temp.jpg';
      Reg_Current='\SOFTWARE\Microsoft\Windows\CurrentVersion\';
const opis_lines=41;
      opis:array[1..opis_lines] of string=
      (
       'Centrum Chodowli Prosiaka        /\_/\',
       '- = - = - = - = - = - = -       | '' '' |',
       '                                \(o o)/',
       '',
       'Autor',
       '       [e-mail]',
       '',
       'Beta testerzy',
       '-------------',
       '',
       'Ascii',
       'Diabe