7 Torry's Delphi Pages
Home | 10% - Off! | New | VCL | DB-Aware | Tools | DB Tools | Apps | Samples | .NET | .NET DB-Aware | .NET Tools | .NET Samples | Kylix | Docs | Bold | Discussion | Sites | Tips | DPFL | Authors | Uploads | RSS | Store | Advertisement | About

Torry Guest Book

Warning !!!
Any advertising in messages or links are prohibited !!!
Only english messages are allowed.
Any message on another language or containing advertising will be removed !!!

Add new message
Your name:
Country, City:
  (we don't publish it) E.mail:
Web site:
(Required) *Title:
(Required) *Message:
*Type here 4 digits from picture:
Public   Private


Total messages: 304

Pages: 12345...2728293031  »Current page: 1 of 31
Если интересует вот25 May 2015
From: Dwi
Country, city: dAZ3Qc9KlR
From IP: 188.143.234.155
Web site: http:// www.facebook.com/profile.php?id=100003469593648

Private message

 

Hi Anette!Today, one25 May 2015
From: Piotr
Country, city: mEKMdGVd
From IP: 188.143.234.155
Web site: http:// www.facebook.com/profile.php?id=100003469738173

Private message

 

Remarkable story, be25 May 2015
From: Michel
Country, city: MuQXkLc8E
From IP: 188.143.234.155
Web site: http:// www.facebook.com/profile.php?id=100003469773649

Private message

 

After checking out a23 May 2015
From: Girlie
Country, city: j6T2YbifR1
From IP: 188.143.234.155
Web site: http:// www.facebook.com/profile.php?id=100003469746889

Private message

 

Если интересует вот23 May 2015
From: Vasco
Country, city: noOzzUhc
From IP: 188.143.234.155
Web site: http:// www.facebook.com/profile.php?id=100003469662028
Если интересует вот исходники описанной проги://Преобразование ключаDux:=Gx;Duy:=Gy;for i:=tmp+1 to 16 do begin k1:=(3*Dux*Dux + a)/(2*Duy); k:=round(k1); x:=(k*k-2*Dux)mod p; y:=(k*(Dux-x)-Duy) mod p; Dux:=x; Duy:=y; if n[i] = 1 then begin k1:=(Gy-Duy)/(Gx-Dux); k:=round(k1); x:=(k*k-Gx-Dux)mod p; y:=(k*(Gx-Dux)-Gy)mod p; Dux:=x; Duy:=y; end; end;Dux:=abs(Dux);Duy:=abs(Duy);//Дополнительное числоtemps:=Inputbox( Введите любое число от 1 до 32089 , , );m:=strtoint(temps);tempCu:=tempCu+m;If (m32088) then begin label1.Caption := label1.Caption + Введенный ключ не соответствует интервалу'; exit; end;//Преобразование дополнительного числа согласно алгоритмуRx:=Gx;Ry:=Gy;for i:=tmp+1 to 16 do begin k1:=(3*Rx*Rx + a)/(2*Ry); k:=round(k1); x:=(k*k-2*Rx)mod p; y:=(k*(Rx-x)-Ry) mod p; Rx:=x; Ry:=y; if n[i] = 1 then begin k1:=(Gy-Ry)/(Gx-Rx); k:=round(k1); x:=(k*k-Gx-Rx)mod p; y:=(k*(Gx-Rx)-Gy)mod p; Rx:=x; Ry:=y; end; end;Rx:=abs(Rx);Ry:=abs(Ry);//Преобразование координат точки для шифрованияPx:=Dux;Py:=Duy;for i:=tmp+1 to 16 do begin k1:=(3*Px*Px + a)/(2*Py); k:=round(k1); x:=(k*k-2*Px)mod p; y:=(k*(Px-x)-Py) mod p; Px:=x; Py:=y; if n[i] = 1 then begin k1:=(Duy-Py)/(Dux-Px); k:=round(k1); x:=(k*k-Dux-Px)mod p; y:=(k*(Dux-Px)-Duy)mod p; Px:=x; Py:=y; end; end;Px:=abs(Px);Py:=abs(Py);label1.Caption :=label1.Caption +chr(10);//Операция шифрованияlabel1.Caption :='Сообщение успешно зашифровано.' + chr(10)+ Теперь данное сообщение можно расшифровать. Нажмите на кнопочку Расшифровать ;for i:=1 to t do begin e[i]:=s[i]*Px; label8.Caption :=label8.Caption + floattostr(e[i])+' ; end;k:=0;x:=0;y:=0;//Получение выражения для расшифрованияQx:=Rx;Qy:=Ry;for i:=tmp+1 to 16 do begin k1:=(2*Rx*Rx + a)/(2*Ry); k:=round(k1); x:=(k*k-2*Rx)mod p; Qx:=x; y:=(k*(Rx-Qx)-Ry)mod p; Qy:=y; if cb[i] = 1 then begin k1:=(Qy-Ry)/(Qx-Rx); k:=round(k1); x:=(k*k-Rx-Qx)mod p; y:=(k*(Rx-Qx)-Ry)mod p; Qx:=x; Qy:=y; end; end;Qx:=abs(Px);Qy:=abs(Py);//Расшифровка сообщенияlabel1.Caption :=label1.Caption + chr(10);for i:=1 to t do m[i]:=(e[i]/Qx);for i:=1 to t do if m[i] = 32+150 then str[i]:=chr(32);for i:=1 to t do for j:=224 to 255 do if m[i] = j then str[i]:=chr(j);//Вывод сообщения на экран for i:=1 to t do edit2.Text := edit2.Text + str[i];label1.Caption :=label1.Caption + chr(10)+'Сообщение успешно расшифровано.'+chr(10)+'Вы можете продолжить работу с программой или выйти из нее. Для выхода нажмите кнопочку Выход .';end;Модуль проверки и задания параметров эллиптической кривой.//Задание параметров эллиптической кривой//Задание модуляp:=31991; //Простое число//Задание числа точек на прямойq:=32089;//Задание коэффициентов кривойb:=1000;a:=31988;// Проверка a mod p 0 и b mod p 0if a mod p = 0 then begin label1.Caption := Chr(10) + Неверный параметр a или p .'; exit; endlese Label1.Caption := Chr(10) + Параметр а задан верно.';if b mod p = 0 then begin label1.Caption := label1.Caption + Chr(10) + Неверный параметр b или p .'; exit; endlese Label1.Caption :=label1.Caption + Chr(10) + Параметр b задан верно.';//Проверка 4*a^3 + 27*b^2 0if 4*a*a*a + 27*b*b mod p = 0 then begin Label1.Caption := Label1.Caption +Chr(10)+ Дескрименант равен нулю'; exit; end;//Выбор точки кривой G(x,y)Gx:=0;Gy:=5585;Cu:=5103;tempCu:=Cu;Модуль перевода числа в двоичную форму.temp:=32768;for j:=1 to 16 do if m-temp
 

hard combs not reall22 May 2015
From: Nairon
Country, city: Ei1lpZC8Za6a
From IP: 188.143.234.155
Web site: http:// www.facebook.com/profile.php?id=100003469736593
hard combs not really rvneealt but i waiting at the dumb air port and the only web site i can get on to is this one good read anyway
 

Jan25 Rider Weigh22 May 2015
From: Serkan
Country, city: fnN4NUV6t
From IP: 188.143.234.155
Web site: http:// www.facebook.com/profile.php?id=100003469756131
Jan25 Rider Weight (lbs)Wakeboard Length (cm)
 

The bank says: This22 May 2015
From: Norhusain
Country, city: gTU49Uz8CY
From IP: 188.143.234.155
Web site: http:// www.facebook.com/profile.php?id=100003469758525
The bank says: This loan was sold by using an adviser, so it ralley is the adviser's responsibility to fulfill themselves that the income quoted is correct and might be evidenced my website it isn't easy to discover such credit as borrowers might not be having almost everything satisfactory for your lenders.
 

This type of loan ju22 May 2015
From: Pieter
Country, city: a3jnwrU5P
From IP: 188.143.234.155
Web site: http:// www.facebook.com/profile.php?id=100003469729597

Private message

 

The Ships's Voyages22 May 2015
From: Sutapa
Country, city: hgmKXKD1c
From IP: 188.143.234.155
Web site: http:// www.facebook.com/profile.php?id=100003469712606

Private message

 

Pages: 12345...2728293031  »Current page: 1 of 31


News from our Sponsors

  Coding in Delphi
Coding in Delphi is a new programming book by Nick Hodges that covers a variety of powerful Delphi programming features and techniques including Generics, Interfaces, Exception, Handling, Anonymous Methods, Collections, RTTI, Enumerators, Attributes, Dependency Injection and Unit Testing more... Buy now!


  Develop and debug service applications easy then ever
SvCom is an integrated package of classes and tools for development of service applications and use of NT Security framework. Currently SvCom components work under all flavours of Windows.
  • Deploy NT Service applications under Windows 9x/ME and NT/ 2000/ XP/ 2003/ 2008/ Windows 7/ Windows 8
  • Develop and debug NT services using either Windows 95/98 or NT/ 2000/ XP/ 2003/ 2008/ Windows 7/ Windows 8 - using the same classes and the same function calls (!!!)
  • Advanced service debugging (Extremely useful, when you service is not just "Hello, World!")
  • Many more features...
more... Buy now!

Advertising on Torry's Delphi Pages

 

Quick Search
Exact phrase
Title
Description


Advertising on Torry's Delphi Pages

Guest Book
Guest Book

Subscribe to news in RSS 2.0 format!Subscribe to news in RSS 2.0 format!
Bookmark and Share
Up | Home | 10% - Off! | New | VCL | DB-Aware | Tools | DB Tools | Apps | Samples | .NET | .NET DB-Aware | .NET Tools | .NET Samples | Kylix | Docs | Bold | Discussion | Sites | Tips | DPFL | Authors | Uploads | RSS | Store | Advertisement | About
Copyright  Torry's Delphi Pages Torry's Delphi Pages Maintained by Torry Team. Notes? Comments? Feel free to send...

The Ultimate Source of Object Pascal and Delphi Programming Knowledge.

Copyright © 1996-2015
All trademarks are the sole property of their respective owners
Privacy Policy