delphi4arab منتديات دلفي للعرب
كيف يتم حل معادلة تشفير كلمة السر - نسخة قابلة للطباعة

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

الصفحات: 1 2 3


كيف يتم حل معادلة تشفير كلمة السر - Anter2010 - 10-02-2009

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


كيف يتم حل معادلة تشفير كلمة السر - TF6M - 10-02-2009

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


كيف يتم حل معادلة تشفير كلمة السر - Anter2010 - 10-02-2009

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


كيف يتم حل معادلة تشفير كلمة السر - hanipino - 10-02-2009

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

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


كيف يتم حل معادلة تشفير كلمة السر - محمد عبد العزيز - 10-02-2009

Anter2010 كتب :لو لم احاول فيفكرك اضع هذه المعادلة هنا انا بعدما عجزة في حلها
مستقبلا ضع محاولتك مع السؤال
انظر للسؤال كيف الان، وانظر كيف كان عندما كتبته اول مرة قبل ان يعدل(مجرد جملة طلب مســاعدة ومرفق)

بالنسبة للمعادلة حلها يكون بBrute Force هو الطريق الوحيد للحصول على كلمة السر المستخدمة

ان كان الهدف من السؤال تجربة نجاعة كلمة السر فيمكن تجاوزها بتغيير مكان المقارنة

والسلام عليكم



كيف يتم حل معادلة تشفير كلمة السر - TF6M - 10-02-2009

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

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


كيف يتم حل معادلة تشفير كلمة السر - hanipino - 10-02-2009

فى جهازى لم تنجح . [صورة: sanstitremq7.jpg]


كيف يتم حل معادلة تشفير كلمة السر - mohfa - 10-02-2009

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

[صورة: sanstitredo1.jpg]

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

محمد


كيف يتم حل معادلة تشفير كلمة السر - hanipino - 10-02-2009

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


كيف يتم حل معادلة تشفير كلمة السر - mohfa - 11-02-2009

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