اللهم فرج همي

هندسة الميكاترونيات برنامج الماتلاب
1

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

انا مطلوب مني مشروع عمل encription & Decription
استخدام الGUI
1-casear
2-monographic
3-Transpostion
4-playfair
5-combination between transpostion and subsetuatio
6-hill cipher
7-Rsa
ارجوكم حد يسا عدني
عشان انا حاولت فيها وتعبت ومش عارفه اوصل لحاجه مفيده
ارجو الرد بسرعه
ولاكن ارجو الرد ارجوكم

2

ارجوووووووووووووووووووووكم ردوا عليه انا عليه امتحان فيه

3

ساضيف هنا برنامج ولكن حتى يتم عمل توليد للمفتاح يتطلب ان يكون لديك برنامج جافا بالاضافه للماتلاب:

Rapidly encrypt and decrypt using RSA

وهذا هو مولد مفتاح التشفير

4

شكرا Mr.voltولكن باقي الطرق

ولكن انا اساسا تخصص جافا وعندي الجافا بس ما عرفت ارن البرنامج ارجو ان تخبرني عن كيفية تشغيله وجزاك الله خيرا

5

بما ان البرنامج الذي ارفقته اعلاه يعطي النتائج بلا GUI اليك برنامج يقوم بال GUI والذي ستظهر نتيجته على الشاشه كما يلي :

[CENTER] Download and Usage

اي غموض انا جاهز لتوضيحه
** Click here to download **
After downloading the program, unzip all the files to the same desired directory. Then run the program by calling “pro2” System Requirement
Matlab version 6.0 and if necessary, Maple version 6.0 on any platform.
PentiumII 300 MHz or equivalent.
Usage
Step 1: Put plaintext of any length into message box
Step 2: Hit enter key
[/center]

6

اشتغل الحمد لله طب وباقي الطرق مافي اخبار عنها

7

يا سكان المنتدى لايوجد اجااااااااااااااااااااااااااااااااااااابه pleaaaaaaaaaaaaaaaaaaaaaaaaas

8

اليك برنامج ال Hill cipher



abet = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
letters = @(x) abet(x+1);
A = [11 6 8; 0 3 14; 24 0 9]
mod(det(A),26)
gcd(21,26)
message = 'GO NAVY BEAT ARMY A';
message(findstr(message, ' ')) = []
ptext = ltable(message)
numel(ptext)
rowsize = size(A,1)
numrows = numel(ptext)/rowsize
pmat = reshape(ptext, rowsize, numrows)'
cmat = mod(pmat*A, 26)
ctext = reshape(cmat', 1, numel(cmat'))
ctext = letters(ctext)
ctext = ltable(ctext)
cmat = reshape(ctext, rowsize, numrows)'
pmat = mod(cmat*double(mod(sym(A)^(-1), 26)), 26)
ptext = reshape(pmat', 1, numel(pmat'))
ptext = letters(ptext)
ptext = 'GONAVYBEA';
ptext = ltable(ptext)
pmat = reshape(ptext, 3, 3)'
mod(det(pmat),26)
gcd(7,26)
ctext = 'OAXELQLSM';
ctext = ltable(ctext)
cmat = reshape(ctext, 3, 3)'
mod(double(mod(sym(pmat)^(-1), 26))*cmat, 26)






function let = ltable(message)
    letters = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
    for i = 1:length(message)
        let(i) = find(letters == message(i))-1;
    end
    let;

[CENTER]ننتظر تجريبه بنجاح كما حصل معي

ولنا عودة بالمزيد
[/center]

9

شكلرا جزيلا وفي انتظار المزيد