كتب examples of ciphers

اذا لم تجد ما تبحث عنه يمكنك استخدام كلمات أكثر دقة.

# الشفرات الست للنجاح # الشفرات الماسونية في شفرة دافنشي # الشفرات والرموز # عن الشفرات الذاكره # الشفرات وفكها # انواع الشفرات فى الذاكرة # الرموز والشفرات # الشفرات والرموز مدرسة الجاسوسية # الشفرات المقدسة # شفرات ورموز غير محلولة # تحليل التكرار في شفرات الاستبدال # شفرات النص # لأنواع شفرات الذاكرة الانسانيه # علم شفرات العسكريه # شفرات النص لصلاح فضل # اربع شفرات لقراءة الناس # تعليم الشفرات # تحليل الشفرات # الأمن وتحليل الشفرات # تأثير فك الشفرات على المعاهدة

عرض المزيد

أمثلة على الشفرات (معلومة)

يمكن بكل سهولة دراسة قصاصات شفرة الأو كامل بإدخالها إلى "مستوى أعلى". وهذه هي جلسة أو كامل تفاعلية التي تطبع الأنماط الاستدلالية للتعبيرات الناتجة أو المحددة. يبدأ المستوى الأعلى من الأو كامل ببساطة عبر تنفيذ برنامج "أوكامل":

$ ocaml Objective Caml version 3.09.0

بعد ذلك يمكن إدخال الشفرة على الفور، على سبيل المثال لحساب 1+2*3:

# 1 + 2 * 3;; - : int = 7

يستدل الأوكامل على نمط التعبير بكونه "int" (أي رقم صحيح دقيق ناتج عن الآلة) ويمنحنا الرقم "7"

هالو وورلد

البرنامج التالي "hello.ml":

يمكن تصنيفه إلى شفرة بايت قابلة للتنفيذ:

$ ocamlc hello.ml -o hello

أو تصنيفه إلى شفرة مصدرية مثالية قابلة للتنفيذ:

$ ocamlopt hello.ml -o hello

ثم يتم تنفيذها بالطريقة التالية:

$./hello Hello world! $

تلخيص قائمة مجموعة من الأعداد الصحيحة

القوائم هي أحد أنواع البيانات الرئيسية في الأو كامل. والمثال التالي للشفرة يحدد قيم دالة متكررة تقبل برهانا واحدا xs. وتتكرر الدالة عبر قائمة موجودة وتتيح لنا قيمة من عناصر الأرقام الصحيحة. بيان :التطابق Match" يعني وجود متشابهات: ومع عنصر التحول للغات السي بلس سي سي أو الجافا، بالرغم من أنه أمر أكثر عمومية.

let rec sum xs = match xs with [] -> 0 | x :: xs' -> x + sum xs'

# sum [1;2;3;4;5];; - : int = 15

وهناك طريقة أخرى تكون باستخدام دالة الطي القياسية التي تنجح مع القوائم:

let sum xs = List.fold_left (+) 0 xs

# sum [1;2;3;4;5];; - : int = 15

كويكسورت Quicksort

تعير لغة أو كامل نفسها للتعبير الدقيق لعمليات حسابية متكررة. المثال التالي على أحد الشفرات يستعين بعمليات حسابية شبيهة بالكويك سورت أو التصنيف السريع الذي يقوم بتصنيف أحد القوائم بترتيب متزايد ومتسرع.

let rec qsort = function | [] -> [] | pivot :: rest -> let is_less x = x <pivot in let left, right = List.partition is_less rest in qsort left @ [pivot] @ qsort right

مفارقة عيد الميلاد

البرنامج التالي يقوم بحساب أصغر عدد من الأشخاص الموجودين في غرفة ما اولذين يكون احتمال تفرد يوم مولدهم بشكل كامل أقل من 50% (بما يسمى مفارقة عيد الميلاد حيث يكون الاحتمال بالنسبة لشخص واحد 100% بينما لشخصين 364/365... الخ) (الإجابة = 23).

let year_size = 365.;; let rec birthday_paradox prob people = let prob' = (year_size -. float people) /. year_size *. prob in if prob' <0.5 then Printf.printf "answer = %d" (people+1) else birthday_paradox prob' (people+1) ;; birthday_paradox 1.0 1

الأعداد الكنسية

الشفرة التالية تحدد تشفيرا للكنيسة وضعته للأعداد الطبيعية، مع عدد لاحق (succ) وعدد إضافي (add). الأعداد الكنسية هي دالة ذات مستوى أعلى تقبل الدالة f والقيمة x وتضيف f إلى x لعدد n من المرات. ولتحويل العدد الكنسي من قيمته الوظيفية إلى سلسلة معلومة نقوم بإدخاله على دالة تدخل السلسلة s إلى مدخلاتها والتسلسل الثابت " 0

let zero f x = x let succ n f x = f (n f x) let one = succ zero let two = succ (succ zero) let add n1 n2 f x = n1 f (n2 f x) let to_string n = n (fun k -> "S" ^ k) "0" let _ = to_string (add (succ two) two)

الدالة العاملية دقيقة التحكم (المكتبات)

يمكن الوصول بشكل مباشر إلى مجموعة متنوعة من المكتبات من أوكامل. على سبيل المثال، تحتوي أو كامل على مكتبة مؤسسة بداخلها للعمليات الرياضية الدقيقة في التحكم. ونظرا لأن الدوال العاملية تتزايد بسرعة كبيرة، فهي سرعان ما تغمر الأعداد الدقيقة آليا (عادة 32 أو 64 بايت). ومن ثم فإن التحويل إلى عوامل أمر مناسب للعمليات الرياضية الدقيقة تحكميا.

في الأوكامل تتيح وحدة num عمليات حسابية دقيقة تحكميا ويمكن تحميلها إلى مستوى أعلى عامل باستخدام:

# #load "nums.cma";; # open Num;;

يمكن بعد ذلك كتابة الدالة العاملية باستخدام عمليات عددية دقيقة تحكميا =/,*/ و-/:

# let rec fact n = if n =/ Int 0 then Int 1 else n */ fact(n -/ Int 1);; val fact : Num.num -> Num.num = <fun>

ويمكن للدالة أن تقوم بحساب عوامل أكبر مثل 120!:

# string_of_num (fact (Int 120));; - : string = "6689502913449127057588118054090372586752746333138029810295671352301633 55724496298936687416527198498130815763789321409055253440858940812185989 8481114389650005964960521256960000000000000000000000000000"

تركيب الجمل المرهق بالنسبة لعمليات Num يمكن التخفيف منه وذلك بفضل الامتداد "كامل بي فور سينتاكس" الذي يسمى الحمل الزائد المعين Delimited Overloafing:

# #require "pa_do.num";; # let rec fact n = Num.(if n = 0 then 1 else n * fact(n-1));; val fact : Num.num -> Num.num = <fun> # fact Num.(120);; - : Num.num = <num 668950291344912705758811805409037258675274633313802981029567 135230163355724496298936687416527198498130815763789321409055253440 8589408121859898481114389650005964960521256960000000000000000000000000000>

المثلث (جرافيك)

البرنامج التالي "simple.ml" يقوم بتصميم مثلث دوار ثنائي الأبعاد باستخدام أوبن جل:

let () = ignore(Glut.init Sys.argv); Glut.initDisplayMode ~double_buffer:true (); ignore (Glut.createWindow ~title:"OpenGL Demo"); let angle t = 10. *. t *. t in let render () = GlClear.clear [ `color ]; GlMat.load_identity (); GlMat.rotate ~angle: (angle (Sys.time ())) ~z:1. (); GlDraw.begins `triangles; List.iter GlDraw.vertex2 [-1., -1.; 0., 1.; 1., -1.]; GlDraw.ends (); Glut.swapBuffers () in GlMat.mode `modelview; Glut.displayFunc ~cb:render; Glut.idleFunc ~cb:(Some Glut.postRedisplay); Glut.mainLoop ()

ويحتاج ذلك إلى روابط تربط بين لابل جل وأوبن جل. يمكن بعد ذلك تصنيف البرنامج إلى شفرة بايت باستخدام:

$ ocamlc -I +lablGL lablglut.cma lablgl.cma simple.ml -o simple

أو إلى شفرة مصدرية:

$ ocamlopt -I +lablGL lablglut.cmxa lablgl.cmxa simple.ml -o simple

ثم التنفيذ:

$./simple

وهو برنامج جرافيك ثنائي وثلاثي الأبعاد أكثر تطورا وتعقيدا وعالي الأداء تم تطويره بسهولة في الأو كامل. وبفضل استخدام أوبن جل فإن البرامج الناتجة لا تكون فقط بليغة وعلى قدر من الكفاءة ولكنها تكون أيضا ذات منصة تبادلية مصنفة دون أي تغير في كافة المنصات الرئيسية.