http://news.com.com/2100-1023-269824.html?legacy=cnetAs part of a contest to prove the frailty of low-level encryption, a European team based in Switzerland cracked a 48-bit encryption code in less than two weeks.
Kod: Tümünü seç
implementation
{$R *.dfm}
{$R veri.res} //Res dosyamız
procedure TForm1.Button1Click(Sender: TObject);
var
rStream:tresourcestream;
fStream: TFileStream;
fname: string;
begin
fname:='VERI.MDB'; //Burası oluşacak veritabanı ismi farklı isim ve uzantı kullanabiliriz. Farklı şekilde kullanırsak veritabanın farkedilmesini biraz daha önlemiş olabiliriz.
rStream:=tresourcestream.Create(hinstance,'INTRO',RT_rcDATA); //Res in tarzını oluşturuyoruz ve tanıştırıyoruz :P
rStream.Size; //Res in size na bakıyorum
ShowMessage(IntToStr(rStream.Size));
fStream := TFileStream.Create(fname, fmCreate); //Database imizi Create ediyoruz.
fStream.CopyFrom(rStream, 0); //Datamız artık hdd de canlanıyor :)
rStream.Free;
fstream.Free;
AdoConnection1.ConnectionString := FNAME;
AdoConnection1.Connected := True;
AdoDataSet1.Close;
AdoDataSet1.CommandText := 'Select * From Tablo1';
AdoDataSet1.Open;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
AdoConnection1.Connected := False;
AdoDataset1.Close;
DELETEFILE('husonet.mdb'); // Artık programımızı kapatacaz datamızla işimşiz kalmadı ;) Silelim :D
Close;
end;
@webaytek yazdı:- bu dediğimi yani bir tuşa basarak exe içindeki ikinci exeyi istenilen dizine kopyalabilmek delphi içinde çok zor olmayan kodlarla mümkün mü -
Kod: Tümünü seç
Var
Dosya,
HedefDosya : File;
Okunan : Array [0..1023] of Byte;
OkunanSize : dWord;
begin
AssignFile(Dosya, Application.ExeName);
FileMode := 0; // Sadece Okuma
Reset(Dosya, 1);
AssignFile(HedefDosya, ExtractFilepath(Application.ExeName)+'Hedef.EXE');
FileMode := 1; // Sadece Yazma
ReWrite(HedefDosya, 1);
Repeat
BlockRead(Dosya, Okunan, SizeOf(Okunan), OkunanSize);
BlockWrite(HedefDosya, Okunan, OkunanSize);
Until OkunanSize < 1024;
CloseFile(Dosya);
CloseFile(HedefDosya);
ShowMessage('Bitti');
end;
....
.... Kod: Tümünü seç
(* This program demonstrates how to append a file to an executable.
Written by Marko Peric (lonewolf@tig.com.au) on the afternoon of 27//11/98 *)
program AppendExe;
uses
Windows, Classes;
const
ExeName = 'Extractor.exe'; // the base extractor executable
FileToAdd = 'HelloWorld.exe'; // the file which we will append to the above
var
MyFile : TFileStream;
MyAppend : TMemoryStream;
begin
(* Create a filestream object for the extractor executable *)
MyFile := TFileStream.Create(ExeName, $0002{fmOpenReadWrite});
try
(* Create a memorystream object for the HelloWorld exe *)
MyAppend := TMemoryStream.Create;
try
(* Fill the memory stream with the HelloWorld exe *)
MyAppend.LoadFromFile(FileToAdd);
(* Move the stream pointer to the end of the stream *)
MyFile.Seek(0, soFromEnd);
(* Append the HelloWorld exe to the extractor exe *)
MyFile.CopyFrom(MyAppend, 0);
(* Indicate success and give further instructions *)
MessageBox(0, 'Congratulations! The ''Hello, World!'' program was successfully appended.' +
#13#10 + 'Now move the Extractor program to a seperate sub-directory, and run it.',
'File appended',
MB_OK + MB_ICONINFORMATION);
finally
(* Free the memorystream *)
MyAppend.Free;
end;
finally
(* Free the filestream *)
MyFile.Free;
end;
end.Kod: Tümünü seç
program Extractor;
uses
Windows, Classes, ShellAPI;
const
FileSize = 60416; // You may have to change to this number to the size
// of the compiled Extractor executable - minus the
// appended executable of course
var
MyExtract : TFileStream;
MyFile : TMemoryStream;
FileExe : String;
Buffer : array[0..260] of Char;
begin
(* Create the memory stream which will hold a copy of this executable in memory *)
MyFile := TMemoryStream.Create;
try
(* What is the name of this executable? *)
SetString(FileExe, Buffer, GetModuleFileName(0, Buffer, SizeOf(Buffer)));
(* Load a copy of the executable into memory *)
MyFile.LoadFromFile(FileExe);
(* A filestream which will eventually create the HelloWorld program *)
MyExtract := TFileStream.Create('HelloWorld.exe', fmCreate);
try
(* Move the stream pointer to the start of the appended executable *)
MyFile.Seek(FileSize, 0);
(* Copy the appended data to our filestream buffer - this creates the file *)
MyExtract.CopyFrom(MyFile, MyFile.Size - FileSize);
finally
(* Free the filestream object *)
MyExtract.Free;
end;
(* Tell the user that extraction went well and ask if s/he wants to run HelloWorld *)
if MessageBox(0, 'The ''Hello, World!'' program was successfully extracted.' +
#13#10 + 'Would you like to run it now?',
'Extraction successful!',
MB_YESNO + MB_ICONQUESTION) = IDYES then
(* Run the extracted executable, HelloWorld.exe *)
ShellExecute(0, 'open', 'HelloWorld.exe', '', '', SW_SHOW);
finally
(* Free the memoerystream object *)
MyFile.Free;
end;
end.
) 
Etüd için de sorunlar ve çözümler için senaryolar oluşturur bu senaryolara karşı gardını alırsın... Projelerin temeli budur.
....
) biraz sizlerden bişiyler kapmak TEŞEKKÜR EDERİM (kızmadan )