delphi4arab منتديات دلفي للعرب

السلام عليكم أتمنى أن تكونو بصحة و عافية .
قمت بعمل CrackMe بسيط

كود :
if edit1.text = '9987-5481-2548-2000' then
showmessage('Good Boy !') else showmessage('Bad Boy !');

عند تنقيحه تظهر عبارات Good Boy و BadBoy عند البحث في قائمة ال Strings
[صورة: 30rxhj8.png]

ما الحل؟
الأمر الثاني ... كيف أبرمج كراك مي يعتمد على خوارزمية معينة بدل قيم ثابتة ؟
مثلا هذه خوارزمية بسيطة تعطي لكل اسم مدخل سريال خاص به :

كود :
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;
      edit2.text := IntToStr(s);
end;

كيف أحول الكود التالي إلى كراك مي ؟
أفيدوني جزاكم الله خيرا Blush

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

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

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

تحويلها بسيط خوارزمية الي [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]

بارك الله فيك يا أبو حاتم دائما في المساعدة Blush

ما شاء الله عليك .

كل شيء واضح الان , غير انني عدلت في الكود الذي ارفقته ... لاني استعمل Delphi 7
الغريب انني استعملت كل انواع الجمل الشرطية و لم احصل على شيء في الوهلة الاولى . لكن الامور اتضحت
بوركت

السلام عليكم
لكل فعل ردع فعل

عند محاول الكسر عامة يتم البحث عن النصوص...عليك اخفاء النصوص او عدم اظهار رسالة الخطأ.

دائما فكر كيف تقوم بالكسر ثم فكر كيف تعيق ما قمت به للكسر

Rever7eR

Sudan Tiger

Rever7eR

محمد عبد العزيز