Iphone Warranty,Lock Status and Carrier info [DELPHI]

[mustipusti]

Hi i was bored and checking this thread: http://forum.gsmhosting.com/vbb/f83/...apple-1478417/ and decided to make a fast parser and release the code here Credits go to angel25dz

Uses
  WinInet, StrUtils;

function GetUrlContent(const Url: string): string;
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1024] of Char;
  BytesRead: dWord;
begin
  Result := '';
  NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

  if Assigned(NetHandle) then
  begin
    UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);

    if Assigned(UrlHandle) then
      { UrlHandle valid? Proceed with download }
    begin
      FillChar(Buffer, SizeOf(Buffer), 0);
      repeat
        Result := Result + Buffer;
        FillChar(Buffer, SizeOf(Buffer), 0);
        InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
      until BytesRead = 0;
      InternetCloseHandle(UrlHandle);
    end
    else
      { UrlHandle is not valid. Raise an exception. }
      raise Exception.CreateFmt('Cannot open URL %s', [Url]);

    InternetCloseHandle(NetHandle);
  end
  else
    { NetHandle is not valid. Raise an exception }
    raise Exception.Create('Unable to initialize Wininet');
end;

procedure Add(D,I:String);
var
  L:TListItem;
begin
  L := Mainform.Listview.Items.Add;
  L.Caption := D;
  L.SubItems.Add(I);
end;

function Split(ToSplit,Start,Stop:String):String;
var
  tmp : String ;
begin
  tmp := Copy(ToSplit,Pos(Start, ToSplit) + Length(Start), Length(ToSplit) - Pos(Start, ToSplit) + Length(Start));
  result := Copy(tmp, 0, Pos(Stop, tmp) - 1);
end;

function ToBoolStr(Str:String):String;
begin
  If Str = 'Y' then result := 'True' else Result := 'False';
end;

procedure TMainform.GetBtnClick(Sender: TObject);
var
  Str:String;
begin
  Str := GetUrlContent('https://selfsolve.apple.com/warrantyChecker.do?sn='+SerialEdit.Text);
  If AnsiContainsStr(Str,'"ERROR_CODE"') then begin
    SkinMessage.MessageDlg('Sorry, but this serial number is not valid. Please check your information and try again.',mtError, mbOKCancel,0);
    exit;
  end else begin
    Listview.Clear;
    Add('Product Iphone',ToBoolStr(Split(Str,'IS_IPHONE":"','"')));
    Add('Has Coverage',ToBoolStr(Split(Str,'PH_HAS_COVERAGE":"','"')));
    Add('Waranty Type',Split(Str,'wc.iphone.hardware.li.short":"','"'));
    Add('Activated',ToBoolStr(Split(Str,'ACTIVATION_STATUS":"','"')));
    Add('Days Remain in Coverage',Split(Str,'DAYS_REM_IN_COV":"','"'));
    Add('Coverage End Data',Split(Str,'COV_END_DATE":"','"'));
    Add('Coverage Value',Split(Str,'HW_COVERAGE_VALUE":"','"'));
    Add('P-Description',Split(Str,'PART_DESCR":"','"'));
    Add('Product Description',Split(Str,'PROD_DESCR":"','"'));
    Add('Purchase Country',Split(Str,'PURCH_COUNTRY":"','"'));
    Add('Carrier',Split(Str,'CARRIER":"','"'));
  end;
end;

Download Bin Here :
http://dl.dropbox.com/u/73988760/MPIphone.exe

Pic :

[BEHBOODI]

good work but not completely information gives

BR,

[mustipusti]

Originally Posted by .:**********:.

good work but not completely information gives

BR,

you can add more information by adding such line...
Add('Info',Split(Str,'',''));
Its just a fast sample

[abdeslam728]

Good work, How to add lock status?

[darmiles]

UploadMB.com

MY VERSION JUST FOR FUN

[BEHBOODI]

Originally Posted by mustipusti

you can add more information by adding such line...
Add('Info',Split(Str,'',''));
Its just a fast sample

good work i add new inf and work fine

BR

[mustipusti]

Originally Posted by darmiles

UploadMB.com

MY VERSION JUST FOR FUN

Nice. I was to lazy to add more lines lol.
Also.. You can call ToBoolStr(); For the "N" or "Y" Result values.

[ckanzari]

THANK you very much !

this tools it's very good !

[m460tH!C]

@Darmiles


sir Thumbs Up talaga ako sainyo

hoping matuto din ako ng delphi program

[mobileradio]

hello, is possible view uid from this??
Thanks...

[.:Mr.Brain:.]

hi
what is the value to get lock status
thx in advance

[jomar1016]

can you share the full source in delphi.. thanks

[platforms]

Originally Posted by jomar1016

can you share the full source in delphi.. thanks

Full source is in first post.