Forum
Aktif konular
Üyeler
Kurallar
Arama
Şifreleme Şifreleme
-
Selam,
2 Soru
1. Progrma gireken bir şifre ekranı yapmak istiyorum Kullanıcı adı ve parola şeklinde
2. yazmakta olduğum progrma herhangi bir şifreleme koymam gerekirmi başkaları okuyabilirmi.
Bir kitab aldım İhsan karagüllenin yazdığı kitab güzel lakin ben ne aramam gerektiğini bilmiyorum yapmak istediğim şeyi kafamda tasarlıyorum lakin kitabda geçen adı nedir bilmiyorum onun içinde kitabı baştan sonuna okumam gerekiyor.Kitab 1174 sayfa Bunun daha kısa bir yolunu bilen varmı acaba -
Merhaba 1.sorunun cevabı ;
Şifre ekranı yapmak istiyorsan bir tane edit bir tane buton koymalısn
butonun onclick olayına
if edit1.text="şifren" then
begin
işlemini yaptırırsın"
ShowMessage("şifre doğru")
end
else
begin
showmessage("sifre yanlis"); dersin bu şifrelemenin en basit yolu şifreyi veritabanindanda aldırırsın sen hangisini istiyorsan yaz cevap verelim
2.sorunun cevabı ise senin kodlarını göremezler çünkü delphi zaten programını derliyor buyüzden kaynak kodları sadece sende kalır
Kolay gelsin
Kaan -
neorob selam,
istediin konu hakkinda sifreleme, sana yardimci olalim.. kaanin onerisi gusel ama database aktarimli kontrol istiyorsan sana hem encryption hemde sifreleme ile ilgili bilgi verelim
yalnizca nasil olsun istiosan yaz
-
Ben şifreleme sistemini yapmıştım veritabani ile .
Sana yardımcı olabilir
KOlay gelsin
---------------------------------------------------
unit acilis;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, StdCtrls, DBCtrls, Buttons, ExtCtrls, ImgList,
XPMenu, jpeg;
type
Tsifre = class(TForm)
Label1: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Edit1: TEdit;
Table1: TTable;
DataSource1: TDataSource;
Table1Kullaniciadi: TStringField;
Table1Sifresi: TStringField;
ImageList1: TImageList;
XPMenu1: TXPMenu;
Label3: TLabel;
Label4: TLabel;
Image3: TImage;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
sifre: Tsifre;
sira:integer;
implementation
uses anaform;
{$R *.dfm}
procedure Tsifre.BitBtn1Click(Sender: TObject);
begin
if Edit1.Text <> Table1sifresi.Text then
Begin
sira:=sira + 1;
ShowMessage("Yanlış Şifre : Şifre Yazma hakkınız 3dür Doğru yazılmassa program kapanacaktır Hak = " + inttostr(sira));
if sira > 2 then
Application.Terminate;
Edit1.Setfocus;
Edit1.Text := "";
Abort;
end;
begin
form1.show;
self.close;
end;
end;
procedure Tsifre.FormShow(Sender: TObject);
begin
sira:=0;
Edit1.SetFocus;
end;
procedure Tsifre.BitBtn2Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure Tsifre.FormCreate(Sender: TObject);
begin
KeyPreview := true;
end;
procedure Tsifre.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((ssAlt in Shift) and (Key = VK_F4)) then
Key := 0;
end;
end.
------------------------------------- -
+1
-
arakadaşların verdiği örnekler güzel ama en güzel örnek veritabanı örneği olacaktır. şifrelerini bir veri tabanından alırsan hem hızlı doğrularnır. hemde şifrele sayısını artırabşilirsin bir diğer yönten ise encription dır yani klavyeden girilecek herhangibir karaktere karşılık özel karakter belirleme dizi kullanılarak yapılır. google da delphi ENCRIPTION diye aratırsan açık kaynak kodlarına ulaşabilirsin yada tutorgig.com da bulabilirsin.
programlamanın en önemli noktası planlama yapmaktır (algoritma ) küçük programlar için gerekmeyebilir. ama büyük programlarda hem zaman kaybından hemde hata yapmaktan kurtarır. Aklınızda yapacaklarınızı tasarlamanız güzel ama tavsiyem kağıt üzerine çalışma yapmanız eğer algoritma hazırlama hakkında bir bilginiz yoksa yine googleda algoritma hazırlama diye taratırsanız binlerce döküman çıkacaktır. algoritma yapmak ve öğrenmek çok basittir. gelelim tasarladım ama ne yapacağımı bilmiyorum konusuna bu konuda size biraz ingilizce gerekecek mesela bir dönkü algoritması kurdunuz ama programlama diline dökmek istiyorsunuz hemen google a başvuruyoruz :) döngünün ingilizce karşılığı loop tur googleda ya delphi döngü şeklinde yada "delphi loop " şeklinde aratırsanız kesin sonuca ulaşırsınız yanlız iuunu söylemeliyim ki türkçe delphi kaynaları zayıftır. www.delphiturk.com adresinde ise birçok açık kod türkçe açıklamaları ile verilmiştir. yardımı olaaktır.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 2356 Toplam Mesaj: 6
Cevapla