Arkadaşlar Delphi 7 programı ıle bır dll Sifreleme yapmaya calısıyorum..!
Programı Yapıyorum Yalnız tek sorun sıfrem 1234 bunu Gorunmez yanı gızleyemıyorum **** bu sekılde yada baska sekılde.. hoca dedı Input ıle yapacaksın falan ama her yolu denedm olmadı hıc bılgısı olan yok mu bu konu hakkında acıl yardım..!

library sifre;

uses
Windows,
Messages,
SysUtils,
Variants,
Classes,
Graphics,
Controls,
Forms,
Dialogs;

procedure About; stdcall;
var
sayi:Integer;
sifre:AnsiString;
dugme:Boolean;
begin
sayi:=1;
dugme:=InputQuery('Şifreyi Giriniz','Şifre',sifre);
if dugme Then
begin
while(sifre'1234')do
begin
if sayi>=3 Then
begin
ShowMessage('Uc Hakkınız Bitti. Program Kapanacak');
Halt;
end
else
begin
dugme:=InputQuery('Şifreyi Giriniz','Şifre',sifre);
inc(sayi);
end;
end;
end
else
begin
ShowMessage('Program Kapatılacak');
Halt;
end;
end;
exports
About name 'About';
begin
end.
boyle br program arkadaslar yardım Pleas Acıll..!
__________________