Ĺadny brzuch
czesc
wiele czytalem o motodach szyfrowania jednak zawsze gdzies ktos napisal ze taka metode mozna odszyfrowac w latwy sposob. Dlatego tez wymyslilem zeby szyfrowac na swoj wlasny sposob
mam w label1 cyfre np 1213 (jest ona zawsze rozna bo zalezy od sumy dodawania do siebie kolejnych cyfr)
dana ta zapisuje mi sie do ini. I teraz podczas zamykania programu chcialbym aby program zaszyfrowal ta cyfre i zapisal do ini a gdy sie wlancza program to zeby odszyfrowal i wyswietlil do label1 ta cyfre.
myslalem zeby zrobic cos takiego, ze:
1 = ***
2 = ****
3 = *****
takie oznazczenia dla cyfr. // i wtedy cyfra z label czyli 1213 wygladalaby w pliku ************
jednak nie mam pojecia jak sie zabrac za szyfrowanie a wlasciwie za zamienianie cyfr na odpowiedni znak
czy moge prosic o jakas pomoc badz rade jak to zaczac
z gory dziekuje
Użytkownik ari123 edytował ten post 15 marzec 2008, 08:36
Sprawdzasz każdy znak po kolei a potem warunek
stringjakis:=label.text;
if znak = "1" then
stringjakis.Replace(znak, "xcz");
end;
to jest tylko podpowiedz i może mieć błędy ;)
///
No przed twoją edycją twój temat miał troszkę inną treść i teraz moja odpowiedz jest wyrwana z kosmosu ;/
jak kcesz same gwiazdki zapisać do pliku czy tego kcesz czy nie raczej musisz oddzielić jedną liczbę od drugiej jakimś innym znakiem. Bo takie coś : ************ równie dobrze można zdekodować jako 1111:)
Ps. http://4programmers....tu_w_prosty_spo - przyda Ci się
Użytkownik strefacst edytował ten post 15 marzec 2008, 08:47
wlasnie wiem wczesniej bylo ze kazda cyfra ma swoj znak xwc dla 1 , dla 2 cvw
w sumie racje ze ta cyfre mozna zakodowac poprzez same 1
tylko tak mysle ze xczxczpoi co da np 113 mozna skopiowac w pliku xczxczpoixczxczpoi i wyjdzie 113113
wiec w sumie to szyfrowanie jest bezuzyteczne
Ja jak robiłem swego czasu swoje kodowanie sprawdzałem każdy znak po kolei i wykonywałem na nim jakieś funkcje matematyczne (proste :P) ale były uzależnione od znaku poprzedniego i następnego :) ot takie proste i dobre ;)
wlasnie wiem wczesniej bylo ze kazda cyfra ma swoj znak xwc dla 1 , dla 2 cvw
w sumie racje ze ta cyfre mozna zakodowac poprzez same 1
tylko tak mysle ze xczxczpoi co da np 113 mozna skopiowac w pliku xczxczpoixczxczpoi i wyjdzie 113113
wiec w sumie to szyfrowanie jest bezuzyteczne
Proponuje coś innego. Zamień tekst szyfrowany na kod ASCII następnie dodaj do każdej liczby kodu ASCII stała wartość np 3.
z kolega napisalismy takie szyfrowanie
moze ocenicie ?
FUNCTION Szyfruj(tekst,haslo:String):String;
var
x,y :Integer;
lp,cyfra :Integer;
a :String;
Begin
haslo:= LowerCase(haslo); //zamiana liter z dużych na małe
for lp:= 1 to Length(haslo) do
begin
cyfra:= Ord(haslo[lp])*lp;
a:= a+IntToStr(cyfra);
end;
haslo:= a;
Result:= tekst; //przypisuje do funkcji wartość zmiennej "tekst"
y:=0; //zeruje licznik ilości znaków w haśle
//wykonuje kolejno litera po literze...
for x:= 1 to Length(tekst) do
begin
Inc(y); //zwiększa licznik o kolejną literę hasła
if y>Length(haslo) then y:= 1; //jeżeli licznik przekroczy dlugość hasła
Result[x]:=Char( Ord(tekst[x]) + Ord(haslo[y]) + 255 );
//jeżeli wystąpi błąd kodowania to...
if Result[x]= '' then
begin
ShowMessage('Użyto niedozwolonego znaku: '+ Char(Ord(haslo[y])) );
Result:= tekst;
Exit;
end;
end;
End;
Znowu odebrałem chęć do tego forum
http://peb.pl/progra...anie-maila.html
http://forum.idg.pl/...php/t42627.html
Użytkownik strefacst edytował ten post 15 marzec 2008, 09:02
o tym ascii znalazlem
http://4programmers....wanie_tekstu_II
strefacst to mnie zabilo co napisales... a kumpel upieral sie ze on sam to zrobil bo ja tylko wymyslalem sposoby szyfrowania a on to zamienial na kod
i jeszcze wzial odemnie kase za napisanie
Użytkownik ari123 edytował ten post 15 marzec 2008, 09:05
No to fajnego masz kolegę :/ Kopiuje kod który ma już x lat i lata se po necie i wciska że sam napisał :/ a ja napisałem Windowsa ;D
aczkolwiek wydaje mi sie ze ten sposob szyfrowania tez nie jest dobry poniewaz
1= a
wiec jak w pliku bede mial aaaaaaaa to bede wiedzial ze to cyfra 11111111
i sam moge sobie dopisywac a do pliku i zwiekszac cyfre
a nie o to mi chodzi
strefacst i tak z nim rozlicze, dzieki ze to mi pokazales
Użytkownik ari123 edytował ten post 15 marzec 2008, 09:08
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
wiele czytalem o motodach szyfrowania jednak zawsze gdzies ktos napisal ze taka metode mozna odszyfrowac w latwy sposob. Dlatego tez wymyslilem zeby szyfrowac na swoj wlasny sposob
mam w label1 cyfre np 1213 (jest ona zawsze rozna bo zalezy od sumy dodawania do siebie kolejnych cyfr)
dana ta zapisuje mi sie do ini. I teraz podczas zamykania programu chcialbym aby program zaszyfrowal ta cyfre i zapisal do ini a gdy sie wlancza program to zeby odszyfrowal i wyswietlil do label1 ta cyfre.
myslalem zeby zrobic cos takiego, ze:
1 = ***
2 = ****
3 = *****
takie oznazczenia dla cyfr. // i wtedy cyfra z label czyli 1213 wygladalaby w pliku ************
jednak nie mam pojecia jak sie zabrac za szyfrowanie a wlasciwie za zamienianie cyfr na odpowiedni znak
czy moge prosic o jakas pomoc badz rade jak to zaczac
z gory dziekuje
Użytkownik ari123 edytował ten post 15 marzec 2008, 08:36
Sprawdzasz każdy znak po kolei a potem warunek
stringjakis:=label.text;
if znak = "1" then
stringjakis.Replace(znak, "xcz");
end;
to jest tylko podpowiedz i może mieć błędy ;)
///
No przed twoją edycją twój temat miał troszkę inną treść i teraz moja odpowiedz jest wyrwana z kosmosu ;/
jak kcesz same gwiazdki zapisać do pliku czy tego kcesz czy nie raczej musisz oddzielić jedną liczbę od drugiej jakimś innym znakiem. Bo takie coś : ************ równie dobrze można zdekodować jako 1111:)
Ps. http://4programmers....tu_w_prosty_spo - przyda Ci się
Użytkownik strefacst edytował ten post 15 marzec 2008, 08:47
wlasnie wiem wczesniej bylo ze kazda cyfra ma swoj znak xwc dla 1 , dla 2 cvw
w sumie racje ze ta cyfre mozna zakodowac poprzez same 1
tylko tak mysle ze xczxczpoi co da np 113 mozna skopiowac w pliku xczxczpoixczxczpoi i wyjdzie 113113
wiec w sumie to szyfrowanie jest bezuzyteczne
Ja jak robiłem swego czasu swoje kodowanie sprawdzałem każdy znak po kolei i wykonywałem na nim jakieś funkcje matematyczne (proste :P) ale były uzależnione od znaku poprzedniego i następnego :) ot takie proste i dobre ;)
wlasnie wiem wczesniej bylo ze kazda cyfra ma swoj znak xwc dla 1 , dla 2 cvw
w sumie racje ze ta cyfre mozna zakodowac poprzez same 1
tylko tak mysle ze xczxczpoi co da np 113 mozna skopiowac w pliku xczxczpoixczxczpoi i wyjdzie 113113
wiec w sumie to szyfrowanie jest bezuzyteczne
Proponuje coś innego. Zamień tekst szyfrowany na kod ASCII następnie dodaj do każdej liczby kodu ASCII stała wartość np 3.
z kolega napisalismy takie szyfrowanie
moze ocenicie ?
FUNCTION Szyfruj(tekst,haslo:String):String;
var
x,y :Integer;
lp,cyfra :Integer;
a :String;
Begin
haslo:= LowerCase(haslo); //zamiana liter z dużych na małe
for lp:= 1 to Length(haslo) do
begin
cyfra:= Ord(haslo[lp])*lp;
a:= a+IntToStr(cyfra);
end;
haslo:= a;
Result:= tekst; //przypisuje do funkcji wartość zmiennej "tekst"
y:=0; //zeruje licznik ilości znaków w haśle
//wykonuje kolejno litera po literze...
for x:= 1 to Length(tekst) do
begin
Inc(y); //zwiększa licznik o kolejną literę hasła
if y>Length(haslo) then y:= 1; //jeżeli licznik przekroczy dlugość hasła
Result[x]:=Char( Ord(tekst[x]) + Ord(haslo[y]) + 255 );
//jeżeli wystąpi błąd kodowania to...
if Result[x]= '' then
begin
ShowMessage('Użyto niedozwolonego znaku: '+ Char(Ord(haslo[y])) );
Result:= tekst;
Exit;
end;
end;
End;
Znowu odebrałem chęć do tego forum
http://peb.pl/progra...anie-maila.html
http://forum.idg.pl/...php/t42627.html
Użytkownik strefacst edytował ten post 15 marzec 2008, 09:02
o tym ascii znalazlem
http://4programmers....wanie_tekstu_II
strefacst to mnie zabilo co napisales... a kumpel upieral sie ze on sam to zrobil bo ja tylko wymyslalem sposoby szyfrowania a on to zamienial na kod
i jeszcze wzial odemnie kase za napisanie
Użytkownik ari123 edytował ten post 15 marzec 2008, 09:05
No to fajnego masz kolegę :/ Kopiuje kod który ma już x lat i lata se po necie i wciska że sam napisał :/ a ja napisałem Windowsa ;D
aczkolwiek wydaje mi sie ze ten sposob szyfrowania tez nie jest dobry poniewaz
1= a
wiec jak w pliku bede mial aaaaaaaa to bede wiedzial ze to cyfra 11111111
i sam moge sobie dopisywac a do pliku i zwiekszac cyfre
a nie o to mi chodzi
strefacst i tak z nim rozlicze, dzieki ze to mi pokazales
Użytkownik ari123 edytował ten post 15 marzec 2008, 09:08