1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

нужны программы

Тема в разделе "Помощь по всем вопросам.", создана пользователем savinov798, 18 мар 2015.

  1. TopicStarter Overlay
    savinov798

    savinov798

    Регистрация:
    21 дек 2013
    Сообщения:
    138
    Симпатии:
    62
    ребят,помогите,подкиньте программ,К которым нужны лицензионные ключи для их работы)
     
    Метки:
  2. prostologin

    prostologin Гость

    Please login or register to view links
     
  3. K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    блять, ты что крякми поискать не можешь. возьму ща софтинку накрою енигмой и нифига в тя не получится.
     
  4. K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    окей бро я специально для тебя напишу крями
     
  5. TopicStarter Overlay
    savinov798

    savinov798

    Регистрация:
    21 дек 2013
    Сообщения:
    138
    Симпатии:
    62
    ну накрой,лучшеб ссылку кинул,чем писать просто так
     
  6. TopicStarter Overlay
    savinov798

    savinov798

    Регистрация:
    21 дек 2013
    Сообщения:
    138
    Симпатии:
    62
    причем тут получится или нет???? я просто прошу дать ссылки на софт, к к оторым нужен лицензионный ключ!
     
  7. K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    опыт свой повисыть.
    я в тебя верю. защита простая.
    Please login or register to view links
     
    • Like Like x 1
  8. djak741

    djak741

    Регистрация:
    4 ноя 2014
    Сообщения:
    123
    Симпатии:
    48
    и пропал савинов на месяц...
     
  9. K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    облегчу тебе процесс: вот сорец:
    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, ExtCtrls, StdCtrls,SynaUtil,SynaCode;

    Const
    suphash='0xzffy.g0t~2fp7` }6ew~6`$~dfxtb';

    type
    TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    halt_label: TLabel;
    Timer1: TTimer;
    Label4: TLabel;
    Label5: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    function Crypt(Text: String; Key: String): String;
    var
    i: Integer;
    LongKey, st:string;
    begin
    for i := 0 to (Length(Text) div Length(Key)) do
    LongKey := LongKey + Key;

    for i := 1 to Length(Text) do
    begin
    st := Chr((Ord(Text) xor Ord(LongKey)));
    Result := Result + st;
    end;
    end;

    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    halt_label.caption :=inttostr(strtoint(halt_label.caption) -1);
    if halt_label.caption = '0' then begin
    halt;
    end;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    var
    i:integer;
    temp:string;
    begin
    for i:=0 to 100 do begin
    if i > 50 then begin
    temp :=strtohex(Md5(edit1.Text +'SALT'+edit2.text));
    temp :=crypt(temp,'SALT');
    if temp = suphash then begin
    timer1.enabled :=false;

    halt_label.Font.Color :=clLime;
    end;
    break;
    end;
    end;

    end;

    procedure TForm1.FormShow(Sender: TObject);
    var
    atom: integer;
    SPECSYMBOLS: string;

    begin

    {if GlobalFindAtom('THIS_IS_SOME_OBSCUREE') = 0 then
    atom := GlobalAddAtom('THIS_IS_SOME_OBSCUREE')
    else
    begin
    SPECSYMBOLS := #10 + #13;
    ShowMessage('Данная версия предусматривает только один запуск'
    + 'в текущем сеансе Windows.' + SPECSYMBOLS
    + 'Для повторного запуска необходимо перезапустить Windows, или,'
    + SPECSYMBOLS + 'что лучше, - ' + SPECSYMBOLS + 'ЗАРЕГИСТРИРУЙТЕСЬ !');
    Close;
    end;}
    END;

    end.
     
  10. TopicStarter Overlay
    savinov798

    savinov798

    Регистрация:
    21 дек 2013
    Сообщения:
    138
    Симпатии:
    62
    Зачем??и так .приду ,просмотрю
     

Поделиться этой страницей

Загрузка...