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:= 'jhdsxxxxcccccccccccccccxxxxgljshdg';
    s3:= 'sldhglsxcccccccccccccxxxxxxxxxxxxxxxxxkdhgl';
    s4:= 'klhsdlkxcccccccccccccccxxzzzzzzzzzzzzghsdlkg';
  end else
  begin
    s1:= 'sdgfscccccccccccccdgzzzzzzzzzsdg';
    s2:= 'jhdsgccccccczzzzzzzzzzzzljshdg';
    s3:= 'sldhgcccccccccccxzzzzzzzzzzzzzlskdhgl';
    s4:= 'klhsdzzzcccccccccccccccccccccccccccccczzzzzzzzzzzzzlkghsdlkg';
  end;
    if s2 = ' lksjccccccccccccccccccdggsg' then
  begin
    s1:= 'sdgfsdzccccccccccccccccccccccxdczdgsdg';
    s2:= 'jhdsxxxxcccccccccccccccxxxxgljshdg';
    s3:= 'sldhglsxcccccccccccccxxxxxxxxxxxxxxxxxkdhgl';
    s4:= 'klhsdlkxcccccccccccccccxxzzzzzzzzzzzzghsdlkg';
  end else
  begin
    s1:= 'sdgfscccccccccccccdgzzzzzzzzzsdg';
    s2:= 'jhdsgccccccczzzzzzzzzzzzljshdg';
    s3:= 'sldhgcccccccccccxzzzzzzzzzzzzzlskdhgl';
    s4:= 'klhsdzzzcccccccccccccccccccccccccccccczzzzzzzzzzzzzlkghsdlkg';
  end;

      if s3 = ' lksjccccccccccccccccccdggsg' then
  begin
    s1:= 'sdgfsdzccccccccccccccccccccccxdczdgsdg';
    s2:= 'jhdsxxxxcccccccccccccccxxxxgljshdg';
    s3:= 'sldhglsxcccccccccccccxxxxxxxxxxxxxxxxxkdhgl';
    s4:= 'klhsdlkxcccccccccccccccxxzzzzzzzzzzzzghsdlkg';
  end else
  begin
    s1:= 'sdgfscccccccccccccdgzzzzzzzzzsdg';
    s2:= 'jhdsgccccccczzzzzzzzzzzzljshdg';
    s3:= 'sldhgcccccccccccxzzzzzzzzzzzzzlskdhgl';
    s4:= 'klhsdzzzcccccccccccccccccccccccccccccczzzzzzzzzzzzzlkghsdlkg';
  end;

      if s4 = ' lksjccccccccccccccccccdggsg' then
  begin
    s1:= 'sdgfsdzccccccccccccccccccccccxdczdgsdg';
    s2:= 'jhdsxxxxcccccccccccccccxxxxgljshdg';
    s3:= 'sldhglsxcccccccccccccxxxxxxxxxxxxxxxxxkdhgl';
    s4:= 'klhsdlkxcccccccccccccccxxzzzzzzzzzzzzghsdlkg';
  end else
  begin
    s1:= 'sdgfscccccccccccccdgzzzzzzzzzsdg';
    s2:= 'jhdsgccccccczzzzzzzzzzzzljshdg';
    s3:= 'sldhgcccccccccccxzzzzzzzzzzzzzlskdhgl';
    s4:= 'klhsdzzzcccccccccccccccccccccccccccccczzzzzzzzzzzzzlkghsdlkg';
  end;
  Result:= True;
end;

end.