[HELP] Coding CA Hacks

Heres a Delphi Version... Sorry if your name was used in the String Array it was what I seen in the forum at the time

[highlight=delphi]
Const
PeopleWhoTry: array[0..5] of string = ('Departure','CAFlames','Nubzgetkillz','jajarem64' ,'Alessandro10','UnknownCoder');

implementation

function DestroyNoob(NickName: string): Integer;
var
iSlaps: Integer;
begin
Randomize;
iSlaps:= RandomRange(100,1000000);

With NickName do
begin
Trim(NickName);
BeatHim(NickName, iSlaps);
end;

Result:= iSlaps
end;

Procedure HelpNoob(Nickname: string);
begin
with sck do
begin
port:= 1337;
address:= GetIp(NickName);
connect;
end;
sck.send(Help);
sck.close;
end;

function DoNotHelp (Nickname: string):Boolean;
begin
if PeopleWhoTry[Nickname] > 0 then
Result:= False
else
Result:= True;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
sInterigate: string;
begin
sInterigate:= 'SeanBoBoEgan';

if DoNotHelp(sInterigate) = True then
DestroyNoob(sInterigate)
else
HelpNoob(sInterigate);
end;

end.
[/highlight]