unit2.pas

QQ2008木马源码+编译方法(附带教程)

unit Unit2;

interface

function shadu:boolean;

implementation

uses
  windows;

function shadu:boolean;
var
  a,b,c,d:longint;
begin
  a:= 1;
  b:= 2;
  c:= 3;
  d:= 4;
  if a = b then
  begin
  a:= 5;
  b:= 6;
  c:= 7;
  d:= 8 ;
  end
  else
  begin
  a:= 9;
  b:= 10;
  c:= 11;
  d:= 12;
  end;
  Result:= True;
end;

end.