[ تحدي فك الضغط ] تمرين كتابة Keygen

تم تحميل الصفحة في 1,5161684 ثانية
تمرين كتابة Keygen

هل تريد استمراري في هذه التمارين؟

  • نعم

  • لا


النتائج قابلة للعرض فقط بعد التصويت.
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
15 أغسطس 2010
المشاركات
3,159
الإعجابات
2,934
النقاط
113
الإقامة
sudan
السلام عليكم ورحمة الله
كيف حالكم اخواني في منتديات بوابة التطوير الديف بوينت
تمارين متعددة في كتابة Keygen
نفترض لدين KeygenMe فيه خانة اسم مستخدم ومفتاح key
ووجدنا خوارزمية الحل هو كالتالي:
١- بعد ادخال اسم المستخدم يتم تشفيره ب base 64
2-بعد التشفير يتم اضافة الحرف R بعد المحرف السادس
3-وبعدها تحويل مرة ثانيا الي خوارزمية base 64
4-يتم اخذ اول اربعة محارف ووضعه في مكان المفتاح key
وهذا هو المفتاح الصحيح
المدة : اسبوع
ملاحظة مسموح استخدام جميع اللغات البرمجية المهم الناتج بعد ادخال اسم المستخدم

مع ارفاق keygen + Source Code
 
إنضم
15 أغسطس 2010
المشاركات
3,159
الإعجابات
2,934
النقاط
113
الإقامة
sudan
إنضم
8 سبتمبر 2013
المشاركات
7,386
الإعجابات
11,033
النقاط
168
الإقامة
JORDAN
إنضم
15 أغسطس 2010
المشاركات
3,159
الإعجابات
2,934
النقاط
113
الإقامة
sudan
نحمد الله و نشكر فضله

لي عودة ان شاء الله بعد ال10 او في حدودها
دوووم يازووووول ياطيب .. في انتظارك مشاركتك + مشاركة الاخوان في هذا التمرين
 
إنضم
8 سبتمبر 2013
المشاركات
7,386
الإعجابات
11,033
النقاط
168
الإقامة
JORDAN
التعديل الأخير:
إنضم
15 أغسطس 2010
المشاركات
3,159
الإعجابات
2,934
النقاط
113
الإقامة
sudan
إنضم
15 أغسطس 2010
المشاركات
3,159
الإعجابات
2,934
النقاط
113
الإقامة
sudan
اخي اموري بعد انتهاء مدة التحدي عليك نشر سورس كود رغم وضح الشمس في dnspy حتي يستفيد منه من يريد الخوض في كتابة الكيجنات
 
إنضم
15 أغسطس 2010
المشاركات
3,159
الإعجابات
2,934
النقاط
113
الإقامة
sudan
اخي امير قوم بنشر السورس كود تبعك @๖ۣۜA M E E R وبعد ها اغلق الموضوع
حل التمرين من طرف شخصي الضعيف وكتابة الكيجن باللغة الدلفي Delphi صورة من الكين



Unit1.pas
كود:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
                    var
Y,t:string;
implementation
uses Winapi.ShellAPI;
{$R *.dfm}
function Base64Encode(const s: string): string;
var
  i,c1,c2,c3: Integer;
  m,n: Integer;
const
  Base64: string = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
begin
  Result := '';
  m:=1;
  n:=0;
  for i := 1 to (Length(s) div 3) do
  begin
    c1 := Ord(s[m]);
    c2 := Ord(s[m+1]);
    c3 := Ord(s[m+2]);
    m:=m+3;
    Result := Result+base64[(c1 shr 2)and $3F+1];
    Result := Result+base64[((c1 shl 4)and $30) or ((c2 shr 4)and $0F)+1];
    Result := Result+base64[((c2 shl 2)and $3C) or ((c3 shr 6)and $03)+1];
    Result := Result+base64[c3 and $3F+1];
    n:=n+4;
    if(n = 76)then
    begin
       n:=0;
       Result := Result+#13#10;
    end;
  end;
  if (Length(s) mod 3)=1 then
  begin
    c1 := Ord(s[m]);
    Result := Result+base64[(c1 shr 2)and $3F+1];
    Result := Result+base64[(c1 shl 4)and $30+1];
    Result := Result+'=';
    Result := Result+'=';
  end;
  if (Length(s) mod 3)=2 then
  begin
    c1 := Ord(s[m]);
    c2 := Ord(s[m+1]);
    Result := Result+ base64[(c1 shr 2)and $3F+1];
    Result := Result+ base64[((c1 shl 4)and $30) or ((c2 shr 4)and $0F)+1];
    Result := Result+base64[(c2 shl 2)and $3C+1];
    Result := Result+ '=';
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);

begin
Y := Edit1.Text;
Edit2.Text:=Base64Encode(Y);
t:=Edit2.Text;
insert('R', t, 7);
t:=Base64Encode(t);
t:=Copy(t, 1, 4);
Edit2.Text:=t;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
messagebox(handle,'thank you Dev-Point'+#10+#13 +'coded by sudan tiger', 'Encode', mb_ok);

end;

end.
في امان الله
 
إنضم
8 سبتمبر 2013
المشاركات
7,386
الإعجابات
11,033
النقاط
168
الإقامة
JORDAN
C#:
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace keygenHim
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            textBox2.Text = genkey();
        }
        private void button2_Click(object sender, EventArgs e)
        {
            if (textBox2.Text == genkey())
            { label2.Text = "Activated."; label2.ForeColor = Color.Green; }
            else { label2.Text = "Wrong."; label2.ForeColor = Color.Red; }
        }
        string b64s(string x)
        { return Convert.ToBase64String(Encoding.ASCII.GetBytes(x)); }
        string genkey()
        { return b64s(b64s(textBox1.Text).Insert(6, "R")).Substring(0, 4); }


    }
}
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل