Tarvitsen apuanne

Miksi ei saisi olla GUI? Eikö käytön helpottaminen ole vaan hyvä asia?

Anonyymi kirjoitti:

Miksi ei saisi olla GUI? Eikö käytön helpottaminen ole vaan hyvä asia?

Millä tavalla se GUI helpottaa kun muutamalla näppäimen painalluksella toimii jo?

Ennemminkin pitäisi kiinnostaa se, että mihin sitä md5 summaa tarvitaan ja miksi sitä pitää käsinee tehdä että eikö sitä voisi automatisoida sinne missä sitä tarvitsee.

Anonyymi kirjoitti:

Millä tavalla se GUI helpottaa kun muutamalla näppäimen painalluksella toimii jo?

Ennemminkin pitäisi kiinnostaa se, että mihin sitä md5 summaa tarvitaan ja miksi sitä pitää käsinee tehdä että eikö sitä voisi automatisoida sinne missä sitä tarvitsee.

Lue lisää

MD5summaa tarvitaan sen varmistamiseen että tiedostot ovat ehjiä eikä ne ole muuttuneet ja GUI taas helpottaa kun ei tarvi avata terminalia ja näpytellä kaikkea itse vaan sujuisi hiiren klikkauksilla.

Anonyymi kirjoitti:

MD5summaa tarvitaan sen varmistamiseen että tiedostot ovat ehjiä eikä ne ole muuttuneet ja GUI taas helpottaa kun ei tarvi avata terminalia ja näpytellä kaikkea itse vaan sujuisi hiiren klikkauksilla.

Lue lisää

Tuollaisia on jo.

Ehkä olisi parempi tunkea se MD5 tarkistus siihen filemanageriin vaikka, että saisi napista jonkun sarakkeen ja laskis siinä kun avaa kansiota. Ellei jo ole filemanagerissa valmiina.

Anonyymi kirjoitti:

Millä tavalla se GUI helpottaa kun muutamalla näppäimen painalluksella toimii jo?

Ennemminkin pitäisi kiinnostaa se, että mihin sitä md5 summaa tarvitaan ja miksi sitä pitää käsinee tehdä että eikö sitä voisi automatisoida sinne missä sitä tarvitsee.

Lue lisää

"Millä tavalla se GUI helpottaa kun muutamalla näppäimen painalluksella toimii jo?"

Ha Haa!

JOS kyse olisi Windows -ohjelmasta, niin siihen olisi yksinkertaista rakentaa jopa Drag&Drop -toiminto, eli voit esim. Windows Tiedostonhallinnasta raahata omaan ohjelmaasi yhden tai useamman tiedoston, ja oma ohjelmasi voisi näistä laskea kryptotiivisteen, olipa se MD5, SHA1. SHA-256, SHA-3 tai vaikkapa BlakeHash2s.

Vinkki:
WM_DropFiles (MSDN)

Mutta eipä taida linuxissa olla määritelty sellaista kuin WM_DropFiles.
Eli miten onnistuisi Linuxissa tuollainen Drag&Drop -toiminto?

koko GUI:n ideahan on tehdä ohjelmista helppoja ja miellyttäviä käyttää.

Mutta linux -maailma on täynnä komentoriviohjelmia, ehkä juuri siksi, kun perinteisesti Linuxissa ei ole ollut Delphiä.

Anonyymi kirjoitti:

"Millä tavalla se GUI helpottaa kun muutamalla näppäimen painalluksella toimii jo?"

Ha Haa!

JOS kyse olisi Windows -ohjelmasta, niin siihen olisi yksinkertaista rakentaa jopa Drag&Drop -toiminto, eli voit esim. Windows Tiedostonhallinnasta raahata omaan ohjelmaasi yhden tai useamman tiedoston, ja oma ohjelmasi voisi näistä laskea kryptotiivisteen, olipa se MD5, SHA1. SHA-256, SHA-3 tai vaikkapa BlakeHash2s.

Vinkki:
WM_DropFiles (MSDN)

Mutta eipä taida linuxissa olla määritelty sellaista kuin WM_DropFiles.
Eli miten onnistuisi Linuxissa tuollainen Drag&Drop -toiminto?

koko GUI:n ideahan on tehdä ohjelmista helppoja ja miellyttäviä käyttää.

Mutta linux -maailma on täynnä komentoriviohjelmia, ehkä juuri siksi, kun perinteisesti Linuxissa ei ole ollut Delphiä.

Lue lisää

Jos käyttöjärjestelmästä löytyy Linux, siinä on yleensä valmiina MD5 summien laskenta ettei tarvitse käydä tekemään ohjelmaa sitä varten.

Sain jo jotain aikaiseksi mutta nyt tuo GUI-softa ilmoittaa että Executable not found: "md5deep" vaikka se varmasti on koneellani ja toimii komentorivillä.
Nyt siis sain haettua SelectDirectoryDialog1.InitialDir avulla sen hakemiston muuttujaksi ja syötettyä sen tohon komentoon, siis mulla on var-kohdassa dir : ansistring eli muuttuja on siis jo määritelty.
Mutta mitä teen tuolle ettei muka md5deepiä löydy? Pitäisi kyllä löytyä kun se kerran toimii ja on tosiaan koneellani.

Tässä tuon proceduurin koodi:

procedure TForm1.Button2Click(Sender: TObject);
begin
dir := SelectDirectoryDialog1.InitialDir;
Edit2.Text := dir;
if RunCommand('/bin/md5deep ' ,' -r ',dir,summa) then Edit3.Text := summa
end;

Tuossa vaan tulee virheilmoitus että:

unit1.pas(57,48) Error: Incompatible type for arg no. 4: Got "AnsiString", expected "TProcessOptions"

Eli mikä meni pieleen? Muuttujat dir ja summa ovat molemmat määritelty ansistring-muuttujiksi, siis näin
var
dir := ansistring
summa := ansistring

Anonyymi kirjoitti:

Tässä tuon proceduurin koodi:

procedure TForm1.Button2Click(Sender: TObject);
begin
dir := SelectDirectoryDialog1.InitialDir;
Edit2.Text := dir;
if RunCommand('/bin/md5deep ' ,' -r ',dir,summa) then Edit3.Text := summa
end;

Tuossa vaan tulee virheilmoitus että:

unit1.pas(57,48) Error: Incompatible type for arg no. 4: Got "AnsiString", expected "TProcessOptions"

Eli mikä meni pieleen? Muuttujat dir ja summa ovat molemmat määritelty ansistring-muuttujiksi, siis näin
var
dir := ansistring
summa := ansistring

Lue lisää

Kokeile mitä 'which md5deep' antaa?
var dir: ansistring;
summa: ansistring;
Tuo TProcessOptions voisi ehkä olla arvoltaan poWaitOnExit, muitakin voi asettaa jos on tarvis eli run-command odottaa aliprosessin päättymistä. Kannattaa katsoa runCommand-esimerkki. Pitäisikö parametri/arvo olla pari? ie ['-r',''] ja samalla tavalla TProcessOptions:in kanssa:
https://forum.lazarus.freepascal.org/index.php?topic=46078.0

Anonyymi kirjoitti:

Tässä tuon proceduurin koodi:

procedure TForm1.Button2Click(Sender: TObject);
begin
dir := SelectDirectoryDialog1.InitialDir;
Edit2.Text := dir;
if RunCommand('/bin/md5deep ' ,' -r ',dir,summa) then Edit3.Text := summa
end;

Tuossa vaan tulee virheilmoitus että:

unit1.pas(57,48) Error: Incompatible type for arg no. 4: Got "AnsiString", expected "TProcessOptions"

Eli mikä meni pieleen? Muuttujat dir ja summa ovat molemmat määritelty ansistring-muuttujiksi, siis näin
var
dir := ansistring
summa := ansistring

Lue lisää

Ihan tiedoksi:

MD5 (ja monelle muullekin hash -algoritmille) on saatavissa Objectpascal -lähdekoodina tehty toteutus.

Ei siis tarvitse käynnistää erillistä komentoriviohjelmaa MD5:n (tai muunkaan hashin) laskemiseksi.

Delphistä tuttuja on ainakin nämä:

https://wiki.freepascal.org/DCPcrypt

https://github.com/MHumm/DelphiEncryptionCompendium

Molemmista löytyvät MD5, mutta niistä löytyy niin muita Hash -funktioita kuin myös muuta kryptotekniikkaan liittyvää (kuten AES eli Rijndael).

Tietty perusosaamien asiasta on silti syytä olla itsellä !

esim. MD5 -tiiviste on 128 -bittinen eli 16 -tavuinen.

Jos ei ko. tyyppiä ole valmiiksi määritelty, niin kas näin:

type
THash128 = Array[0..15] of Byte;

ja jos/kun tuo pitää saada heksadesimaalimerkkijonoksi, niin kas näin:

function Hash128ToString(var H:THash128):String;
var
TmpS : String;
i : Integer;

begin
SetLength(Result, SizeOf(H) shl 1);
for i := 0 to High(H) do begin
TmpS := IntToHex(H[i], 2);
Result[(i shl 1)+1] := TmpS[1];
Result[(i shl 1)+2] := TmpS[2];
end;
end;

ylläolevasta funktiosta voi ottaa mallia myös muiden vastaavien suhteen, esim:

type
THash256 = Array[0..31] of Byte;

function Hash256ToString(var H:THash256):String;

ei se sen vaikeampaa ole !

Nuo DcpCrypt sekä Delphi Encryption Compendum ovat parhaita yleiskäyttöisiä Hash -ja kryptokirjastoja.

Niiden pahin puute on se, ettei kumpikaan tue asymmetrisia salauksia kuten RSA tai EllipticCurve -pohjaisia systeemejä.

RSA:ta moni pitää vanhanaikaisena, mutta onko varma, ettei EC ole NSA:n ns. miinoittama systeemi ?

Ei ole nuo muut mun kirjoittamia, minä olen tehnyt VAIN yhden aloituksen!