دخول

Sudan Tiger · 16-12-2018, 07:01 AM

وعليكم السلام ورحمة الله اخي عبدالحميد

بالنسبة للاستفسار الاول عليك تعلم طرق تشفير النصوص

اما بالنسبة للاستفسار الثاني

تحويلها بسيط خوارزمية الي [size=x-large]crack me[/size]

[size=x-large]انظر الي unit1 التالي[/size]

كود :
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,s : Integer;
begin
 for i:=1 to Length(Edit1.Text) do
   begin
     s:=ord(Edit1.Text[i])
        end;
   s:=s+$985;
  IntToStr(s);

  if Edit2.Text=(IntToStr(s))then

  ShowMessage('Good boy!')
  else
  ShowMessage('Bad Boy!');
end;

end.

[size=x-large]هذه صور من crackme[/size]

[size=x-large] [صورة: p_1080pirdk1.png]

[/size]

اخوك [size=medium]ɢᴇɴɴᴀʀᴏ[/size]

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة