unit1.pas

QQ2008木马源代码

unit Unit1;

interface
uses
 windows;

function laji: boolean;
implementation
function laji: boolean;
var
 S1,S2,S3,S4:string;
begin
  //Result:= False;
  s1:= 'sdgfsdcccccccccccgsdg';
  s2:= 'jhdsglccccccccccccccjshdg';
  s3:= 'sldhglcccccccccccccccskdhgl';
  s4:= 'klhsdlcccccccccccckghsdlkg';
  if s1 = ' lksjccccccccccccccccccdggsg' then
  begin
    s1:= 'sdgfsdzccccccccccccccccccccccxdczdgsdg';
    s2:= 'jhdvvvvvvvvvvvvxxxxgljshdg';
    s3:= 'sldhglsxcccccccccccccxxxxxxxxxxxxxxxxxkdhgl';
    s4:= 'klhsdvvvvvvvvvvvvvvzzzzghsdlkg';
  end else
  begin
    s1:= 'sdgfscccccccccccccdgzzzzzzzzzsdg';
    s2:= 'jhdsgccccccczzzzzzzzzzzzljshdg';
    s3:= 'sldhgcccccccccccxzzzzzzzzzzzzzlskdhgl';
    s4:= 'klhsdzzzcccccccccccccccccccccccccccccczzzzzzzzzzzzzlkghsdlkg';
  end;
  if s2 = ' lksjccccccccccccccccccdggsg' then
  begin
    s1:= 'sdgfsdzcccdxzzzzzzzzccxdczdgsdg';
    s2:= 'jhdszzzzzzzzzzzzxxxxgljshdg';
    s3:= 'sldhglsxczzzzzzzzzzzzxxxkdhgl';
    s4:= 'klhsdlzzzzzzzzzzzzzzzzzzghsdlkg';
  end else
  begin
    s1:= 'sdgfscccccccccccccdgzzzzzzzzzsdg';
    s2:= 'jhdsgccccccczzzvvvvvvvvvvvvvvvvvvhdg';
    s3:= 'sldhgcccvvvvvvvvvvvvvzzlskdhgl';
    s4:= 'klhvvvvvvvvvvvvvvdlkg';
  end;
  Result:= True;
end;

end.