problemik z laczeniem

0

Witam mam mały problemik w tym kodzie:

procedure TForm1.BitBtn1Click(Sender: TObject);
var haslo:string[15];

begin
haslo:='haselko';
if maskedit1.text=haslo then
memo1.Visible:=true and label2.visible=true;
else ShowMessage('Złe hasło');

end;
end.

Wszystko gra po wyrzuceniu linijki "label2.visible=true", jak w takim razie łączyć to żeby nastąpiło to razem?

// Używaj tagu Delphi - detox

0

Nie, sprawdzałem, ale powinno być OK

procedure TForm1.BitBtn1Click(Sender: TObject);
var haslo:string[15];

begin
haslo:='haselko';
if maskedit1.text=haslo then
begin
memo1.Visible:=true;
label2.visible=true;
end
else ShowMessage('Złe hasło');

end;
end.

0

Witam mam mały problemik w tym kodzie:

procedure TForm1.BitBtn1Click(Sender: TObject);
var haslo:string[15];

begin
haslo:='haselko';
if maskedit1.text=haslo then
memo1.Visible:=true and label2.visible=true;
else ShowMessage('Złe hasło');

end;
end.

Wszystko gra po wyrzuceniu linijki "label2.visible=true", jak w takim razie łączyć to żeby nastąpiło to razem?

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Haslo: string[15];
begin
  Haslo := 'haselko';
  if MaskEdit1.Text = Haslo then
  begin
    Memo1.Visible := True;
    Label2.Visible := True;
  end
  else
    ShowMessage('Złe hasło');
end;

Przy okazji: jak hasło ma być stałe, to może lepiej zadeklarować je w stałej? (proszę crackerów/znawców asm o nie bluzganie mnie :) , nie mam pojęcia o crackingu, a autor nie napisał że to zabezpieczenie musi być bezpieczne :) )

// EDITED:

Znowu się spóźniłem :( :)

0
procedure TForm1.BitBtn1Click(Sender: TObject);
var haslo:string[15];

begin
haslo:='haselko';
if maskedit1.text=haslo then
begom
memo1.Visible:=true;
label2.visible:=true;
end
else ShowMessage('Złe hasło');

end;
end.

W sumie to nie wiem co chciales osiagnacswoim kodem, przypisac do memo1.visible true i wartosc warunku label1.visible=true??

czy po prostu wyswietlic memo i labela jesli bedzie ok.
//jesli tak to kod wyzej jest ok;

0

Dzieki wielkie, działa bezproblemowo :)
Tym kodem chcialem osiagnac to, ze jak haslo bedzie ok to visible memo i labela ustawi sie na true.

Co do bezpieczenstwa kodu. Chyba jest bezpieczny ;) Haslo i ewentualnie zawartos memo mozna dostac tylko w asm'ie po dekompilacji... chyba

0

Dzieki wielkie, działa bezproblemowo :)
Tym kodem chcialem osiagnac to, ze jak haslo bedzie ok to visible memo i labela ustawi sie na true.

Co do bezpieczenstwa kodu. Chyba jest bezpieczny ;) Haslo i ewentualnie zawartos memo mozna dostac tylko w asm'ie po dekompilacji... chyba

i ewentualnie w edycji exe`ka w notniku [diabel]

0

Jak po otwarciu notatnikiem ? :|
Przeciez same jakies krzaczki wychadza :-8

0

Albo w DeDe można też podejrzeć. A żadna dekompilacja nie jest potrzebna

0

Zaraz zaraz :)
w notatniku przeciez nie idze tego podgladnac,
co to jest DeDe?

0

Delphi Decompiler?

0

Problem w tym, że i w notatniku i w asm beda krzaczki. Podobno w programach do crackowania można zastawiac pułapki i stąd wiadomo kiedy komputer porównuje hasło z wpisanym tekstem(całego mechanizmu dokładnie nie znam). Z tego co wiem, to często programiści używają tych samych metod, żeby np pobrać hasło i stąd też craker wie, co jest hasłem. Już gdzieś wcześniej napisałem, ze zaleca sie zaszyfrowanie hasła i porównywanie zaszyfrowanych haseł(tzn szyfrujesz hasło w kompie na stałe, jakaś Tobie znaną metodą, następnie komputer czeka az użytkownik poda hasło i to podane hasło jest też szyforwane i dopiero wtedy komputer porównuje hasło podane przez użytkownika z tym zapisanym w programie). Poza tym robi sie jeszcze kilka innych rzeczy. Jeśli chodzi o Twój problem, zależy do czego jest ten program. Bo jak tam są wazne dane, to musisz trochę przemyśleć to zabezpieczenie. Jedno jest pewne, ktoś kto sie na tym specjalnie nie zna, to złamanie tej metody którą użyłeś na pewnie nie będzie dla niego łatwe. A specjalista i tak sobie poradzić nawet gdybyś nie wiem co tam wstawił.

0

No tak lipa :-/
Szyfrowanie mowisz, a wydawac by sie moglo, ze haslo wpisane do zrodelka jest dosc bezpieczne...

Hmm skad mozna pobrac ten delphi decompiler, bo na google nie idzie znalezc

0

...pod warunkiem, ze nie jest spakowany jakims exe pakerem.

0

To jeszcze zależy jakim, bo UPX to się nadaje - wiadomo do czego :)
Wg. mnie to najlepszy jest ASPack

0

Ale ten program nie byl niczym spakowany...

0

Etam, po co podglądać ? Wystarczy uruchomić Restoratorem i zmienić visible na true i zapisać :P
//a upx'a można rozpakować nim samym... z małym dopiskiem jako parametr ;)

0

Nie wiesz jak mozna zmienic visible w restoratorze LOL.

0

Kapusta nie rozumiem Cie :|

1 użytkowników online, w tym zalogowanych: 0, gości: 1