Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Szyfrowanie danych
anonim




Typ: Nie zarejestrowany
Szyfrowanie danych

Witam

Mam proste i krotkie pytanie Nie posiada moze ktos jakiegos algorytmu pozwalajacego zaszyfrowac dane za pomoca jakiegos klucza (podawanego przez usera) a pozniej je rozkodowac przy uzyciu tegoz samego klucza ? Nie chodzi mi o jakies skomplikowane algorytmy rodem z RSA ale cos prostego


Dzieki z gory za odpowiedz
Pawel

15-07-2003 11:55
  
lamas



Typ: neutral
Postów: 35
Zarejestrowany: May 2003

Przyklad wykorzystania szyfrowania danych mozesz sciagnac z :
http://www.bscgroup.tu.com.pl/pliki/download/terminarz.zip

przyklad zawiera wszystko co potrzebne.

Pozdrawiam
Radosław Lorenc


_____________________________________________
CCCP (Rosyjski czyt: SSSR) czytaj po polsku Córka Cesarza Całuje Piekaża

Wim że stare

16-07-2003 14:38
Pokaż profil lamas  Wyślij email do lamas   Odwiedź stronę lamas       817054
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Polecam: Dane Xor Klucz
Z tym ze w danych i w kluczu nalezy podac liczbe ale niema problemu jesli chodzi o tekst. Przyklad:
Private Sub Form_Load()
Dim Tekst As String
Dim Klucz As Integer
Tekst = "ABC"
Klucz = 5
For I = 1 To Len(Tekst)
Mid(Tekst, I, 1) = Chr(Asc(Mid(Tekst, I, 1)) Xor Klucz)
Next I
MsgBox Tekst
End Sub
Odkodowac tekst mozna piszac jeszcze raz petle For ktora jest w powyzszym przykladzie.
O metodzie Xorowania przeczytalem w VBMagazine i zaraz to wykorzystalem.

[Post edytowany dnia 16-07-2003 15:00 przez Chudy]


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

16-07-2003 14:52
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Myle
2psc group




Typ: neutral
Postów: 29
Zarejestrowany: May 2003

http://www.a1vbcode.com/search.asp

wpisz blowfish - znalazlem tam gdzies modul bardzo prosty w uzyciu, tylko niewiem ktory to byl

Pozdrawiam


_____________________________________________
Windows I love this game

29-07-2003 13:25
Pokaż profil Myle  Wyślij email do Myle   
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1