سؤال حول عمل CrackMe - نسخة قابلة للطباعة

سؤال حول عمل CrackMe - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : سؤال حول عمل CrackMe (/showthread.php?tid=9950)

سؤال حول عمل CrackMe - Rever7eR - 14-12-2018

السلام عليكم أتمنى أن تكونو بصحة و عافية .
قمت بعمل 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

RE: سؤال حول عمل CrackMe - Sudan Tiger - 16-12-2018

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

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

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

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

RE: سؤال حول عمل CrackMe - Rever7eR - 16-12-2018

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

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

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

RE: سؤال حول عمل CrackMe - محمد عبد العزيز - 16-12-2018

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

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

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