Segitsegeteket kernem, ha van valakinek RPG (AS/400) programozasahoz
anyaga, atvennem, vagy rovid fenymasolas erejeig berbevennem!

Kedves Viktor!

Nezd meg pl. az International PGP homepage-t (http://www.pgpi.org/ )!

Az RSA algoritmus lenyege magyarul:

1.) Vegy 2 db joooo nagy primszamot: p, q.
2.) Szorozd ossze oket: n := pq.
3.) Valassz egy e szamot, amely n-nel kisebb, es (p-1)(q-1)-gyel rela-
    tiv prim (azaz nincs kozos osztojuk).
4.) Szamold ki a d szamot ugy, hogy (ed) mod (p-1)(q-1) = 1 legyen!
5.) p-t es q-t dobd el (semmisitsd meg a papirt, amire felirtad oket), d-t
    zard be a pancelszekrenyedbe (ez lesz a titkos kulcs), n-t es e-t pedig
    ird ki a postaladadra es a telefonkonyvbe (ez lesz a nyilt kulcs).
6.) Ha valaki Neked uzenetet akar kuldeni, akkor egy egyertelmuen invertalhato,
    mindkettotok altal ismert modszerrel az uzenetet atalakitja m1, m2, ...
    szamok sorozatava, ahol minden szam < n. Ezek utan az egyes szamokat e-edik
    hatvanyra emeli es kiszamolja az n-es osztasi maradekot:

    c1 := (m1^e) mod n; c2 := (m2^e) mod n; ...

    A c1, c2, ... szamokat elkuldi Neked nyilt levelben.

7.) Te a kapott szamokat egyenkent d-edik hatvanyra emeled es kiszamolod az n-
    es osztasi maradekot, igy visszakapod az eredeti szamokat:

    m1 := (c1^d) mod n; m2 := (c2^d) mod n; ...

    Az m1, m2, ... szamokbol pedig az uzenet egyertelmuen rekonstrualhato.

Igy barki tud Neked uzenni (mert n es e kozismert), viszont csak Te tudod meg-
fejteni (mert d a Te pancelszekrenyedben marad, es soha nem kell kiadnod a ke-
zedbol).


Az egesz RSA mint titkositasi modszer 2 allitason alapul:

- Eleg nagy n szamokra, amelyekrol pontosan annyit tudunk, hogy ket primszam
  szorzata, nem letezik hatekony (a probalgatasnal LENYEGESEN gyorsabb) eljaras
,
  hogy a ket primszamot (a szorzotenyezoket) eloallitsuk.
- A fenti modon kiszamolt d-re nem letezik olyan modszer, amellyel d kiszamol-
  hato n-bol es e-bol p es q ismerete nelkul.

E 2 allitas - tudomasom szerint - sem teljesen bebizonyitva, sem megcafolva nin
cs
(legalabbis nyilvanosan nem), de nagyon eros a sejtes, hogy igazak.


Udv

ifj. Petri Andras

Hello Coderek!

A legtobb programozasi konyvben csak a bmp, esetleg a 
lbm fileok megjelenitesenek leirasa olvashato.
Olyan pascal forraskodot keresek, amivel jpg, gif, animalt gif
fileok megjelenithetok. Aki tud, kerem segitsen. Cserebe
soros, parhuzamos port kommunikacios programok forrasait
tudom felajanlani. 

Thanx, Taylor

Kerdesem a kovetkezo: hogy kell WinNT-ben egy VC++6.0 
program segitsegevel letiltania CTRL+ESC -et, az ALT+TAB -
ot, a START menut, a Task Manager-t, meg minden ilyesmit, 
mivel azt akarom, hogyha elindul a progim, akkor csinaljon 
a gepbol egy "fekete dobozt", amihez a felhasznalo nem 
piszkalhat, csak az en programomat hasznalhatja 
(termeszetesen a programbol valo kilepeskor mindezt vissza 
kene allitani)

Tibi

>Delphi 3.0 adatallomanyban (TQuery) kellene
>magyar ekezetes betuk szerint sorbarendeznem
>nevlistat. Van erre valami lehetoseg vagy le kell
>programozni es egy masik mezot hasznalni
>indexmezonek?
A BDE aliasnel be kell allitani az adatbazisban hasznalt nyelvet/kodlapot a
LANGDRIVER tulajdonsagnal. Magyar nyelvhez altalaban a "Pdox ANSI Hun. DC"-t
kell beallitani.
Elmeletileg a query is ez alapjan dolgozik, igy annak is jonak kell
lennie...

>Szinten Delphi 3.0, NT4 alol kellene programbol
>A user altal megadott szoveggel emilt kuldenem
>fix cimre.
Javaslom a Francois Piette fele Internet Component Suite
(http://www.rtfm.be/fpiette) csomagot, pontosabban annak SMTP komponenset.

>Delphi 3.0 standard gyakran osszeugrik az
>NT4 nyomtatoszerverevel. Nem nyomtat,
>elszall a progi (printer index out of range) uzenettel
>vagy eppen letiltja a nyomtatoelerest azon
>a gepen. Kerdesem, hogy a kesobbi verziok jobbak-e
>mar ebbol a szempontbol, vagy a Delphi 4.0 standard
>is ilyen butuska ;-))
En ilyennel meg nem talakoztam. Milyen komponenst hasznalsz a nyomtatasra?
(Esetleg direktbe nyomtatsz?)

Gabor

>  Nos Pascalbol lehet adott lemezszektort irni olvasni ASM nelkul?
>  Ha nem, akkor leci irjatok nekem egy procedurat mert nem ertek
>  assm-ul. Koszke.
Persze, hogy lehet: deklaralni kell egy "registers" tipusu valtozot,
feltolteni benne a megfelelo mezoket a kulonbozo regiszterekbe szant
ertekekkel, aztan meghivni az intr()-et. Pl.

var r: registers;
;

Az egyes BIOS funkciok leirasat megtalalod pl. a TechHelp!-ben vagy a Ralf
Brown fele Interrupt List-ben (URL-t nem tudok, de pl. AltaVista-val biztos
megtalalod...)

>  Meg kene nekem valami hangot (wave v. voc) lejatszo forras
>  pascalhoz, vagy c-hez vagy mindegy... csak kicsi legyen, es
>  parameterezheto... ha a forras sincs, az se nagy baj....
Nezz korul az ftp://ftp.cdrom.com -on, vagy a SimTel-en - biztos rengeteg
ilyen forrast talalsz!

Gabor

>1.
>   van deklaralva  egy   output: TMemoryStream es egy
>     buf :array[1..30000] of string .Ha a streamba  stringek vannak
>  'hogy lehet ezekkel feltolteni az array-t ?
Ha nem feltetlenul kell neked ez a 30ezres tomb akkor inkabb
TStringListet-et hasznalj - annak van LoadFromStream() metodusa is, pl:

var S: TStringList;

S:=TStringList.Create;
S.LoadFromFile('C:\TEST.TXT');

Ha mar nem kell akkor ne felejtsd el diszpozalni egy S.Done-nal!

Ha mindenkeppen ez a tombos szerkezet kell, akkor pedig
a.) csunya megoldas: a Stream.SaveToFile() metodusaval mentsd le egy
atmeneti fajlba, majd azt nyisd meg a standard Pascal file-kezelo
fuggvenyekkel (Assign(), Reset()) - igy mar tudod hasznalni a readln()-t.
b.) szep megoldas: olvasd ki egyenkent a bajtokat a stream-bol es dolgozd
fel oket - a sor veget CR+LF (#$0d#$0a) jelzi. (Ha Unix formatumu szoveg
akkor csak LF, ha Mac-es akkor csak CR van a sorok vegen...)

>2. a tmemo-rol (delphi3)  a konyvek azt irjak 'hogy akar 2G szoveget
>    is be lehet vele tolteni , akkor en miert kapok uzenetet hogy
>    not enougth memo capacity  ?
Mert a tevednek a konyvek - a TMemo csak 64k-t bir. Ha ennel tobb kell akkor
hasznalj TRichEdit-et - bar az meg piszok lassu lesz...

>3. ha  a TForm1.FormCreate- bol ki akrnak nyitni
>   egy uj formot miert fagy ki  a progi.( maskepp fogalmazva 'hogy
>   lehet NAG screent csinallni ) ?
Nem tudom pontosan mire gondolsz, de nezd meg a Delphi\Demos\DB\Mastapp
konyvtarban talalhato program forrasat (egesz pontosan a MastApp.drp-t)!

>4. szerettem voln a a formomnak "hatteret" kesziteni ezert a kovetkezot
gondolt
>am:
>procedure TForm1.FormPaint(Sender: TObject);
>var x,y:byte;
>begin
> for y:=0 to 19 do
> for x:=0 to 31 do
bitblt(form1.canvas.Handle,x*11,y*10,11,10,image2.Picture.Bi
>tmap.Canvas.Handle,0,0,srccopy);
> (X)
form1.Canvas.brushcopy(bounds(240,40,90,50),image1.picture.bitmap,bounds(
>0,0,90,50),clfuchsia);
>end;
>  ez igy jo is  a ket felso ciklus mukodik , de en meg szerettem volna egy
logo
>t
>    is kirajzolni  az (X)  sorral, de ez nem megy ,vagyishogy megy de ahova
az
>atlatszo logot
>    teszi kitorli az elozoleg formra rajzolt mintakat es csak a szurkeseg
latsz
>ik alatta.
>     (na most nem  tudom 'hogy ertheto-e ez ) ? volan ra valami megoldas ?
A WM_ERASEBKGND uzenetet el kell kapni es a Message.Result-ban 1-et
visszaadni. A legjobb ha mindjart ebben rajzolod ki a hatteret is es az
OnPaint()-ot hagyod bekeben...

>5. az elozo brushcopy- nak van-e bitblt-hoz hasonlo winapija amivel a
magara a
>kepernyore
>    is rajzolhatok  "atlatszoan" ?
Nezz korul a MaskBlt(), PatBlt() es a PlgBlt() fuggvenyek kornyeken!

Gabor

Koszonom szepen a sok hozzaszolast.

Ezek szerint 92 a helyes megoldas (ha nem vesszuk figyelembe, hogy egyes mogold
asok 
egymas elforgatottjai ill tukorkepei).

Szoval ez a megoldas csak nekem tunt soknak :-)))) / megis helyes az algoritmus
om :-)) /

Koszonettel :  Zachar Misi

U.i: Marosi Istvannal teljesen egyetertek: abbol nem tanul az ember, ha massal 
iratja meg

a feladatait :-)))  Meg annyit, hogy e teren en nem vagyok bunos, en csak segit
ettem :-)))


Szoval koszonom mindenkinek!!!