Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
IMEI Üzeri Cihaz bilgilerini okuma
#1
Merhaba arkadaşlar, 

Telefonun imei numarası üzeri cihaz özellik ve bilgilerini okuyan ufak bir proje çalışma yaptım, başka siteden veri çekebilen. 


R0jWDa.png


uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, OleCtrls, SHDocVw, IdBaseComponent, IdComponent,
 IdTCPConnection, IdTCPClient, IdHTTP;

type
 TForm1 = class(TForm)
   IdHTTP1: TIdHTTP;
   Memo1: TMemo;
   Button2: TButton;
   Memo2: TMemo;
   Edit1: TEdit;
   procedure Button2Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

Function aradansec(text, ilk, son: String): String;
begin
 Delete(text, 1, pos(ilk, text) + Length(ilk) - 1);
 Result := Copy(text, 1, pos(son, text) - 1);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 S: TMemoryStream;
 brand, model, cardsize, gsm, edge, _3g, _4g, os, screensize, Chipset, CPU, GPU, screenres, Camera, Camerasec,
   wifi: string;
 deletetext: string;
begin
 deletetext := '<td>';
 IdHTTP1.HandleRedirects := True;
 S := TMemoryStream.Create;
 IdHTTP1.Get('http://phonotizer.com/checkimei/' + Edit1.text, S);
 S.Position := 0;
 Memo1.Lines.LoadFromStream(S);
 Memo2.Lines.Add('Rading Information......');
 Memo2.Lines.Add(' ');
 Memo2.Lines.Add('Basic Information');
 Memo2.Lines.Add('-----------------------');
 brand := Trim(aradansec(Memo1.text, '<td><b>Device Brand:</b></td>', '</td>'));
 While pos(deletetext, brand) > 0 do
   Delete(brand, pos(deletetext, brand), Length(deletetext));
 Memo2.Lines.Add('Device Brand : ' + brand);

 model := Trim(aradansec(Memo1.text, '<td><b>Device Model:</b></td>', '</td>'));
 While pos(deletetext, model) > 0 do
   Delete(model, pos(deletetext, model), Length(deletetext));
 Memo2.Lines.Add('Device Model : ' + model);

 cardsize := Trim(aradansec(Memo1.text, '<td><b>SIM Card Size:</b></td>', '</td>'));
 While pos(deletetext, cardsize) > 0 do
   Delete(cardsize, pos(deletetext, cardsize), Length(deletetext));
 Memo2.Lines.Add('SIM Card Size : ' + cardsize);
 // ----------------------------------------------------------------------
 Memo2.Lines.Add('*************************************************************************************');
 Memo2.Lines.Add('Networks Information');
 Memo2.Lines.Add('-----------------------');
 gsm := Trim(aradansec(Memo1.text, '<td><b>GSM:</b></td>', '</td>'));
 While pos(deletetext, gsm) > 0 do
   Delete(gsm, pos(deletetext, gsm), Length(deletetext));
 Memo2.Lines.Add('GSM Bands : ' + gsm);

 edge := Trim(aradansec(Memo1.text, '<td><b>EDGE:</b></td>', '</td>'));
 While pos(deletetext, edge) > 0 do
   Delete(edge, pos(deletetext, edge), Length(deletetext));
 Memo2.Lines.Add('Edge : ' + edge);

 _3g := Trim(aradansec(Memo1.text, '<td><b>3G:</b></td>', '</td>'));
 While pos(deletetext, _3g) > 0 do
   Delete(_3g, pos(deletetext, _3g), Length(deletetext));
 Memo2.Lines.Add('3G Bands : ' + _3g);

 _4g := Trim(aradansec(Memo1.text, '<td><b>4G ( LTE ):</b></td>', '</td>'));
 While pos(deletetext, _4g) > 0 do
   Delete(_4g, pos(deletetext, _4g), Length(deletetext));
 Memo2.Lines.Add('4G(LTE) Bands : ' + _4g);
 // ----------------------------------------------------------------------
 Memo2.Lines.Add('*************************************************************************************');
 Memo2.Lines.Add('Speciftions');
 Memo2.Lines.Add('-----------------------');
 os := Trim(aradansec(Memo1.text, '<td><b>Operating System:</b></td>', '</td>'));
 While pos(deletetext, os) > 0 do
   Delete(os, pos(deletetext, os), Length(deletetext));
 Memo2.Lines.Add('OS(Operation System) : ' + os);

 screensize := Trim(aradansec(Memo1.text, '<td><b>Screen Size:</b></td>', '</td>'));
 While pos(deletetext, screensize) > 0 do
   Delete(screensize, pos(deletetext, screensize), Length(deletetext));
 Memo2.Lines.Add('Screen Size : ' + screensize);

 screenres := Trim(aradansec(Memo1.text, '<td><b>Screen Resolution:</b></td>', '</td>'));
 While pos(deletetext, screenres) > 0 do
   Delete(screenres, pos(deletetext, screenres), Length(deletetext));
 Memo2.Lines.Add('Screen Resolution : ' + screenres);

 Chipset := Trim(aradansec(Memo1.text, '<td><b>Chipset:</b></td>', '</td>'));
 While pos(deletetext, Chipset) > 0 do
   Delete(Chipset, pos(deletetext, Chipset), Length(deletetext));
 Memo2.Lines.Add('Chipset : ' + Chipset);

 CPU := Trim(aradansec(Memo1.text, '<td><b>CPU:</b></td>', '</td>'));
 While pos(deletetext, CPU) > 0 do
   Delete(CPU, pos(deletetext, CPU), Length(deletetext));
 Memo2.Lines.Add('CPU : ' + CPU);

 GPU := Trim(aradansec(Memo1.text, '<td><b>GPU:</b></td>', '</td>'));
 While pos(deletetext, GPU) > 0 do
   Delete(GPU, pos(deletetext, GPU), Length(deletetext));
 Memo2.Lines.Add('GPU : ' + GPU);

 Camera := Trim(aradansec(Memo1.text, '<td><b>Camera:</b></td>', '</td>'));
 While pos(deletetext, Camera) > 0 do
   Delete(Camera, pos(deletetext, Camera), Length(deletetext));
 Memo2.Lines.Add('Camera : ' + Camera);

 Camerasec := Trim(aradansec(Memo1.text, '<td><b>Camera Secondary:</b></td>', '</td>'));
 While pos(deletetext, Camerasec) > 0 do
   Delete(Camerasec, pos(deletetext, Camerasec), Length(deletetext));
 Memo2.Lines.Add('Camera Secondary : ' + Camerasec);

 wifi := Trim(aradansec(Memo1.text, '<td><b>Wi-Fi:</b></td>', '</td>'));
 While pos(deletetext, wifi) > 0 do
   Delete(wifi, pos(deletetext, wifi), Length(deletetext));
 Memo2.Lines.Add('Wi-Fi : ' + wifi);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Memo1.Hide;
 Memo2.Clear;
end;
WWW
Cevapla
#2
İyi akşamlar. Paylaşım için teşekkürler. Cihazın imei numarasın paylaşmıssın. Bu sakıncalı bir durum. Güvenlik açısından. Resimden o kısmı silsen daha iyi olur.
WWW
Cevapla
#3
(12-05-2017, Saat: 00:19)AliZairov Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olİyi akşamlar. Paylaşım için teşekkürler. Cihazın imei numarasın paylaşmıssın. Bu sakıncalı bir durum. Güvenlik açısından. Resimden o kısmı silsen daha iyi olur.

Merhaba, Teşekür ederim,  IMEI Numarasını google görsellerden buldum sıkıntı çıkmaz Smile
WWW
Cevapla
#4
Bunu Google Play'de yayınlamanı öneririm.
Ağlarsa kablosuz ağlar, gerisi yerel ağlar...
Cevapla
#5
(12-05-2017, Saat: 00:26)dicle_gsm Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(12-05-2017, Saat: 00:19)AliZairov Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olİyi akşamlar. Paylaşım için teşekkürler. Cihazın imei numarasın paylaşmıssın. Bu sakıncalı bir durum. Güvenlik açısından. Resimden o kısmı silsen daha iyi olur.

Merhaba, Teşekür ederim,  IMEI Numarasını google görsellerden buldum sıkıntı çıkmaz Smile

Merhaba,
Paylaşım için teşekkür ederiz.
IMEI sizin olmasa da bir başkasının cihazına özel bir numara olduğu için resimdeki o kısım tarafımdan düzeltilmiştir.
Sonraki yorum veya konu içeriklerinde bu tip paylaşımlarda (başkasına ait özel bilgilerin paylaşılması)  daha hassas davranarak, bizlere yardımcı olursanız, sevinirim.
WWW
Cevapla
#6
Merhaba,
Bu konu ile ilgili naçizhane bir tavsiyem olacak.

(12-05-2017, Saat: 00:03)dicle_gsm Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol....
 IdHTTP1.Get('http://phonotizer.com/checkimei/' + Edit1.text, S);
....

Söz konusu sitenin amacını bilmiyoruz. Yukarıdaki satıra göre almış olduğu size/cihazınıza özel olan ve bir çok suça konu olan IMEI bilginizi alıyor. Bununla birlikte o IMEI'ye ait tüm cihaz bilgilerini gösteriyor. Ayrıca bu numarayı farklı bir cihaz veya farklı bir iş için de kullanabilir.
Bu tip sitelere itibar ederek, özel bilgilerinizi paylaşmamanızı öneririm.
Aynı bilgileri bir mobil uygulama yazarak, kullanıcı izinleri ile daha güvenle yapabilirsiniz.
WWW
Cevapla
#7
(12-05-2017, Saat: 07:48)engerex Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlBunu Google Play'de yayınlamanı öneririm.

Mobil uygulama değil.

(12-05-2017, Saat: 08:17)DelphiCan Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlSöz konusu sitenin amacını bilmiyoruz. Yukarıdaki satıra göre almış olduğu size/cihazınıza özel olan ve bir çok suça konu olan IMEI bilginizi alıyor. Bununla birlikte o IMEI'ye ait tüm cihaz bilgilerini gösteriyor. Ayrıca bu numarayı farklı bir cihaz veya farklı bir iş için de kullanabilir.
Bu tip sitelere itibar ederek, özel bilgilerinizi paylaşmamanızı öneririm.
Aynı bilgileri bir mobil uygulama yazarak, kullanıcı izinleri ile daha güvenle yapabilirsiniz.

Ben de buna sonuna kadar katılıyorum. Ayrıca teknik olarak IMEI'den cihaz bilgilerine ulaşılabileceğini sanmıyorum.
There's no place like 127.0.0.1
WWW
Cevapla
#8
yazılımla cihazın bilgileri almak daha iyi bir yol olacaktır imei bilgisi bir siteyle paylaşmak doğru olmayacaktır
Cevapla
#9
(12-05-2017, Saat: 11:35)nguzeller Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olyazılımla cihazın bilgileri almak daha iyi bir yol olacaktır imei bilgisi bir siteyle paylaşmak doğru olmayacaktır

Tabi, ADB Üzeri cihazın bilgilerini okumayıda paylaşacağım.
WWW
Cevapla
#10
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol bana örnekteki bilgiler bana yeterli geldi. tüm ortamlarda çalışıyor iMac ortamı pek iyi sonuçlar vermiyor onun dışında güzel.
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Android ADB USB üzeri cihaz bilgilerini okuma dicle_gsm 3 575 30-11-2017, Saat: 00:49
Son Yorum: Lord_Ares
  Geçici hafıza okuma Lord_Ares 2 205 12-11-2017, Saat: 22:27
Son Yorum: Lord_Ares
  E fatura okuma hakkında cinarbil 7 459 06-10-2017, Saat: 15:28
Son Yorum: cinarbil
  Hızlı satır okuma bu fonksiyonu çalıştıramadım satır okuma fonksiyonu Delphiseven 21 781 10-07-2017, Saat: 17:16
Son Yorum: ismailkocacan
  STRIKE SC702 Proximity Kart Okuyucu Cihaz Kamuran Alpkaya 2 465 04-03-2017, Saat: 10:17
Son Yorum: hasanozturk



Konuyu Okuyanlar: 1 Ziyaretçi