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

السلام عليكم تشكرررررررررررررررررررررررررررررررررر وبارك الله فيك

لها أيضا عدت طرق .. انا أعطيتك الحل على السريع؟ يبدو أنك تحاول تعمل نظام حماية لبرامجك؟؟؟؟
كل مرة تجيب طريقة ؟؟؟؟ (أنصحك بتعلم الأسمبلي أيضا)
ربي يوفقك.

بارك الله فيك ربي يعطيك ما تتمنا

إقتباس :tf6mehboul
و هي ناجحة بنسبة 100/100 :

جرب ... مثلا تشفير و فك تشفير الكلمة byby .

hanipino كتب :جرب ... مثلا تشفير و فك تشفير الكلمة byby .

ناجحة 100/100 جرب شفر و فك : TF6Mehboul

فى جهازى لم تنجح .

hanipino كتب :السلام عليكم .
محاولة .
الدالة غير فعالة مع الدالفى 2009 + غير صحيحة 100 بال 100 .

PHP كود :

Function Dcyt(S:String):String;
Const Aux2 = 'r#gg&P~<gthb8b=r#gg&P~<gthb8b=';
var
 I:Longword;
begin
  for I := Low(I)+1 To Length(S)  do
  Result:=Result+Chr(Ord(S[I])-(Ord(Aux2[i])+Length(S)*23+(I*49)));
end; 


هل تعلم لمادا ؟

لانه في الدلفي 2009 String اصبحت WideString .

لهدا إدا اردت ان تستعمل ال String التي هي AnsiString فيجب ان تعرفها كا AnsiString

يعني :
Var
S:AnsiString

وإلاسوف يحسبها ال Compiler على انها WString

محمد

شكرا اخى mohfa .
اجريت التغييرات على كلتا الدالتين لاكن لم تنجح . غدا ان شاء الله ساحاول . ... (نعست) .

هلا اظهرت كيف قمت بالتعديلات على الدلفي 2009 , لاتحمل اي مرفق قم فقط بكتابة التعديلات هنا ؟