Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Treba mi pomoc oko kriptovanja!!

[es] :: Pascal / Delphi / Kylix :: Treba mi pomoc oko kriptovanja!!

[ Pregleda: 2432 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

markone
pancevo

Član broj: 47315
Poruke: 72
*.3dnet.co.yu.



Profil

icon Treba mi pomoc oko kriptovanja!!27.11.2005. u 16:30 - pre 223 meseci
Zanima me kako se kriptuje i dekriptuje neka promenljiva. Ako neko moze to da mi pojasni znam otprilike da se koriste neki kljucevi ili tako nesto, ali ne i kako to izgleda!!!???


Unapred hvala!!!

 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Treba mi pomoc oko kriptovanja!!27.11.2005. u 19:26 - pre 223 meseci
Zavisi koju enkripciju hoces da koristis... mozes koristiti neku jednostavnu gde samo svaki bajt zamenis nekim drugim. Jednostavno imas tabelu na osnovu koje prevodis podatke, a mozes imati i mnogo slozenije enkripcije koje mogu koristiti kljuceve, cerifikate i slicne stvari... ne znam koja je enkripcija u pitanju?
 
Odgovor na temu

markone
pancevo

Član broj: 47315
Poruke: 72
*.3dnet.co.yu.



Profil

icon Re: Treba mi pomoc oko kriptovanja!!29.11.2005. u 15:09 - pre 223 meseci
Pa zanima me neka malo slozenija ne znam ne sa jednim bajtom nego bar 32bitna hteo bih da neke baze podataka i neke podatke o programu kriptujem i cuvam u nekom fajlu pa da ne bi mogao bas svako da u wincmd na f4 izmeni ili vidi nesto!!!
ja sam imao negde sempl to je bilo u 20setak redova i kljuc se birao sa nekim brojem ali sam to zagubi i nemogu da se setim niceg odatle...
 
Odgovor na temu

IvanR.
Ivan Rakic
Mladenovac

Član broj: 44281
Poruke: 639
195.252.87.*



+5 Profil

icon Re: Treba mi pomoc oko kriptovanja!!29.11.2005. u 20:14 - pre 223 meseci
Pa md5 pitaj Avrama, on ce ti objasniti!
 
Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.panet.co.yu.



+1 Profil

icon Re: Treba mi pomoc oko kriptovanja!!29.11.2005. u 20:31 - pre 223 meseci
Ne moze md5 posto on ne moze da vrati podatke u originalno stanje.

Najbolje za to je da koristis xor (ekskluzivno ili) koji kada ga dva puta primenis na podatak on ga vrati u prethodno stanje. Ne naravno neki jednostavan (koji ce da kripuje sve podatke sa jednim bajtom, posto tada lako mogu da se pronadju sektori sa nulama), vec malo slozeniji gde se xor-uje sa nekim nizom bajtova.

[Ovu poruku je menjao Toyo dana 29.11.2005. u 21:32 GMT+1]
 
Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.panet.co.yu.



+1 Profil

icon Re: Treba mi pomoc oko kriptovanja!!29.11.2005. u 20:48 - pre 223 meseci
Evo ti neke moje funkcije koju sam davno pravio.

poziv:
zastita('ulaz.txt','izlaz.txt','bilo_sta');
koji ce da napravi novi zasticen fajl izlaz.txt, ili:
zastita('ulaz.txt','ulaz.txt','asaa54a57sa65s6aa6s5a');
koji ce da zastiti ulaz.txt

Pre nego sto das nekome program, zastitis fajl sa jednim pozivom funkcije zastita.
kada citas podatke, prvo pozoves zastitu, uzmes podatak, a zatim vratis zastitu.

Sve ovo vazi ako fajlovi nisu veliki. ako su veliki onda bi trebalo da se napravi funkcija koja na pocetku programa skida zastitu i podaci se drze u memoriji, ali se zasticen fajl ne dira, nego se sve crpi iz buffera. To je vec neka druga prica.


Code:


function zastita(fu, fi, kript:String):Boolean;
var
  f, f2: File;
  size: Integer;
  buffer: PChar;
  i,j:Integer;
begin
{$I+}
  j := length(kript);
  AssignFile(f, fu);
  Reset(f, 1);
  Result:=false;
  try
    size := FileSize(f);
    GetMem(Buffer, Size);
    try
      BlockRead(f, buffer^, bize);
      for i := 0 to size-1 do
        begin
          byte (buffer[i]):=byte (buffer[i]) xor byte(kript[(i mod j)+1]);
        end;
      if fi=fu then
        begin
          Rewrite(f,1);
          BlockWrite(f, buffer^, size);
          Result:=true;
        end
      else
        begin
          AssignFile(f2, fi);
          Rewrite(f2,1);
          try
            BlockWrite(f2, buffer^, size,i);
            if i<>size then
              showmessage('neeeeeeeeeeeee. Ne mogu da upisem blok u fajl.');
            Result:=true;
          finally
            CloseFile(f2);
          end;
        end;
    finally
      FreeMem(buffer);
    end;
  finally
    CloseFile(f);
  end;
{$I+}
end;




[Ovu poruku je menjao Toyo dana 29.11.2005. u 21:49 GMT+1]
 
Odgovor na temu

markone
pancevo

Član broj: 47315
Poruke: 72
*.3dnet.co.yu.



Profil

icon Re: Treba mi pomoc oko kriptovanja!!30.11.2005. u 15:15 - pre 223 meseci
Probacu pa cu ti javiti sta sam uradio !!!! U svakom slucaju hvala ti!!!
 
Odgovor na temu

Digital_project
Vojvodic Mihajlo
Pancevo

Član broj: 77168
Poruke: 1
*.3dnet.co.yu.



Profil

icon Re: Treba mi pomoc oko kriptovanja!!10.12.2005. u 19:21 - pre 222 meseci
Hvala na pomoci!!!
Sad sam se registrovao ja sam postavio temu sa markone-ovog kompa.
Probao sam ovaj kod ali mislim da nije to to sto meni treba!!! Mozda se nisam dobro izrazio menu ustvari treba da npr. iz text unet u edit1 kada kliknem na button1 kriptuje nekim kljucem i napise ga u editu2, a potom kada pritisnem na button2 vrati u prvobitni oblik i napise ga u edit3!!!

Unapred hvala!!!
 
Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
*.yu1.net.

Sajt: https://avramovic.info


+46 Profil

icon Re: Treba mi pomoc oko kriptovanja!!10.12.2005. u 19:50 - pre 222 meseci
http://www.cityinthesky.co.uk/cryptography.html

Sjajna skupina komponenti za kriptovanje u Delphiju
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Treba mi pomoc oko kriptovanja!!

[ Pregleda: 2432 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.