Bankaların Kullandığı 3D Secure Gerçekten Güvenli mi?

NetSec listesinde geçen bir konuyu kaydetmek istiyorum. Merhaba, Eticaret sitemizde başımıza şöyle bir olay geldi.Kullanıcının kredi kartında 3D secure ile hiç haberi olmadan alışveriş yapılmış.Gece telefonuna 3D secure mesajı geliyor uyurken sabah kalktığında ise alışveriş yapılmış oluyor.Bi kaç kullanıcının başına gelmiş bir durum ve kullanıcılarla konuştuğumuzda farklı sitelerdende aynı yöntemle …

Devamını Oku »

Ftp ye atığınız dosyalar bozuluyorsa

Merhaba Bu ara başıma gelen olayı anlatıyorum arkadaşımın acil bir pdf dosyasına ihtiyacı vardı hemen ftp ye atıp linki yolladım dosya bozuk görüntülenemiyor dedi rar layıp gönderdim yine aynı sorun kendim test edeyim bakayım dediğimde download etsem dahi dosya da arşiv de bozuk görüntülenmiyor. buna sebep filezilla programındaki aktarım tipi …

Devamını Oku »

İnsanlar, anlamadıkları şeylerden korkarlar.

Bir sebepten ötürü kapasitemiz,130.000 yıl boyunca aynı kaldı. Bu konferans salonundaki nörobilimcilerin,mühendislerin, matematikçilerin, hackerların birleştirilmiş zekaları… Yapay zeka ile kıyaslandığında sönük kalır. Duyguları olan bir makine gerçek olursa bir çırpıda biyolojinin sınırlarını aşacaktır.. Ve kısa bir sürede, analitik gücü dünya tarihinde bugüne kadar doğmuş her bir insanın toplam zekasından daha …

Devamını Oku »

Delphi Bmp dosyasını JPEG’e dönüştürme

uses kısmına jpeg unitini ekleyin. procedure TForm1.Button1Click(Sender: TObject); var MyJPEG : TJPEGImage; MyBMP : TBitmap; begin MyBMP := TBitmap.Create; with MyBMP do try LoadFromFile('c:\winnt\ACD Wallpaper.bmp'); MyJPEG := TJPEGImage.Create; with MyJPEG do begin Assign(MyBMP); SaveToFile('c:\winnt\ACD Wallpaper.JPEG'); Free; end; finally Free; end; end;

Devamını Oku »

Delphi Bir klasörün boyutunu öğrenmek

Bir klasörün boyutunu öğrenmek Bir klasördeki dosyaların kaç byte yer kapladığını öğrenmek için   function TForm1.GetDirectorySize(const ADirectory: string): Integer; var Dir: TSearchRec; Ret: integer; Path: string; begin Result := 0; Path := ExtractFilePath(ADirectory); Ret := Sysutils.FindFirst(ADirectory, faAnyFile, Dir); if Ret <> NO_ERROR then exit; try while ret=NO_ERROR do begin inc(Result, …

Devamını Oku »

Delphi Tuş Kodları

Delphi Tuş Kodları Sabit sembolik isim Heksadesimal Karşılığı VK_LBUTTON 1 Sol fare tuşu VK_RBUTTON 2 Sağ fare tuşu VK_CANCEL 3 Control-break işlemi VK_MBUTTON 4 Orta fare tuşu (3 tuşlu fareler için) VK_BACK 8 BACKSPACE tuşu VK_TAB 9 TAB tuşu VK_CLEAR 0C CLEAR tuşu VK_RETURN 0D ENTER tuşu VK_SHIFT 10 SHIFT …

Devamını Oku »