훅크선장의 전함

참고한 내용은 http://www.ciuly.com/delphi/indy/  입니다.
HTTP/HTTPS 프로토콜을 델파이로 Indy 로 구현한 예제들입니다. (주로 웹 메일 로그인 부분에 집중된 내용)

가장 중요한 점 HTTP/HTTPS의 Get 요청에 대한 응답이 Indy 컴포넌트에서 대부분 exception의 ErrorMessage 로 저장된다는 점입니다.
웹 브라우저에서 보이는 것이 항상 Get 함수의 리턴 값 문자열이 아닌 예외 상황으로 많이 처리되는 것 때문에 상당히 어려움을 겪었습니다.

위 구문을 추가하시고, 다음과 같이 코드를 작성하면 됩니다.

아래 코드에서 memo 컴포넌트에 html, response_cdoe, err_code, err_msg 를 출력해보면, 감이 오시리라 생각합니다.
html만 중요한 게 아니라, err_ 쪽도 상당히 중요합니다. 처리가 항상 필요합니다.

unit Unit1;

interface

uses
  Classes, SysUtils,
  IdHTTP, IdSSL, IdSSLOpenSSL;

implementation
procedure btn1click(IP:string);
var
  idhttps: TIdHTTP;
  sslIOHandler : TIdSSLIOHandlerSocketOpenSSL;
  URL, html, response_code, err_code, err_msg : string;
  MemoryStream: TMemoryStream;
  rbstr: RawByteString;
begin
  try
    idhttps := TIdHTTP.Create();
    sslIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    try
      sslIOHandler.SSLOptions.Method := sslvSSLv23;
      sslIOHandler.SSLOptions.Mode := sslmClient;

      idhttps.IOHandler := sslIOHandler;
      idhttps.HandleRedirects:=False;
      idhttps.ConnectTimeout := 5000;
      idhttps.ReadTimeout := 5000;

      URL := 'https://' + IP + '/index.html';

      try
        MemoryStream := TMemoryStream.Create;
        try
          try
            // HTTP Get Method
            idhttps.Get(url, MemoryStream);

            rbstr := PAnsiChar(MemoryStream.Memory);
            if (Pos('utf-8', idhttps.Response.ContentType)=0) and (AnsiPos('charset=utf-8', string(rbstr))=0) then
              SetCodePage(rbstr, 949, false)
            else
              SetCodePage(rbstr, 65001, false);
            response_code := IntToStr(idhttps.Response.ResponseCode); // HTTP 응답 코드
            html := string(rbstr); // 정상적인 페이지 응답은 여기에 저장

          except on e: EIdHTTPProtocolException do
            begin
              err_code := IntToStr(e.ErrorCode); // 예외 상황의 에러 코드 (idhttps.Response.ResponseCode 와 거의 동일)
              err_msg := e.ErrorMessage;  // 예외 상황의 메시지, 웹 페이지 상에 보여주는 HTML 페이지 내용
            end;
          end;
      finally
        MemoryStream.Free;
      end;
      except on E:Exception do

      end;

    finally
      idhttps.Disconnect;

      sslIOHandler.Free;
      idhttps.Free;
    end;

  except on E:Exception do

  end;

end;

end.

특정 일련 숫자들로부터 임의 순열(즉, 무작위로 뒤섞인 일련의 숫자들)을 만드는 방법입니다.

다음의 예제는 1부터 100까지의 숫자가 일련되어 저장된 배열에서, 순서가 무작위로 뒤바뀐 배열을 만들어냅니다.
SizeofArr 을 바꿔서, 다양한 일련의 숫자를 뒤섞을 수 있습니다.

procedure TForm1.btn2Click(Sender: TObject);
var
  RandomPermutationArray : array of Integer;
  I, J, SizeofArr, RandomPosition, Temp : Integer;
  PrintStr : String;
begin
  SizeofArr := 100;
  SetLength(RandomPermutationArray, SizeofArr + 1); // We need one more space, because number starts 1.

  // array init
  for I := 1 to SizeofArr do
    RandomPermutationArray[I] := I;

  // randoomize Permutation
  for J := 1 to  SizeofArr - 1 do
  begin
    RandomPosition := J + Random(SizeofArr - J) + 1;
    Temp := RandomPermutationArray[J];
    RandomPermutationArray[J] := RandomPermutationArray[RandomPosition];
    RandomPermutationArray[RandomPosition] := Temp
  end;

  PrintStr := '';
  for I := 1 to SizeofArr do
  begin
    PrintStr := PrintStr + ' ' + IntToStr(RandomPermutationArray[I]);
  end;
  edt3.Text := PrintStr;
end;

MaxMind 에서 http://www.maxmind.com/app/geolitecountry 통하여 제공하고 있는

IP를 소재 국가 및 도시로 바꾸어주는 Open Source API가 있습니다.

해당 API에 파스칼(Pascal) 이 지원되는데, 이 파일에 오래전에 만들어진 것이라서,

현재 RAD Studio 계열에서는 컴파일 에러가 발생합니다.

데이터베이스 파일은 그대로 사용합니다만,
제공되는 GeoIP.pas 소스 파일은 일부 수정이 필요합니다.

수정이 필요한 부분은 다음과 같이 두 부분입니다.
http://forum.maxmind.com/viewtopic.php?t=1204 에 있는 내용을 참고하였습니다.

1번 :

function TGeoIP._GetCity(IPNum: Cardinal; var GeoIPCity: TGeoIPCity): TGeoIPResult;
var
  ...
// p: PChar;
   p: PAnsiChar;
  ...

2번 :

function TGeoIP.AddrToNum(const IPAddr: string): Cardinal;
var
//netlong: LongInt;             // signed! - wrong type for comparison with INADDR_NONE
  netlong: Cardinal;            // unsigned   (or Longword)
begin
//netlong := inet_addr(PChar(IPAddr));
  netlong := inet_addr(PAnsiChar(AnsiString(IPAddr)));
  if netlong <> INADDR_NONE then

운영 체제에서는 time_t를 32 비트나 64 비트 부호있는 정수형으로 정의하며, UTC 1970-1-1 0:00:00 이후 경과한 초를 담고 있다. (이것이 바로 Unix Time 이라고 불린다.)

이것을 작성하게 된 계기는 PE 파일 헤러의 TimeDateStamp 값을 현재 시간으로 변환하는 과정에서 알게된 사실을 기억해두기 위해서이다. - 처음에는 변환 함수가 없는 것으로 생각했다가, 나중에 알고보니 UnixToDateTime() 함수가 있었다. 문제는 이 날짜,시간 관련 함수들은 DateUtils 유닛을 사용해야 한다.

수동으로 구현한 UnixToDateTime() 함수는 다음과 같다.

var
  dt: TDateTime;
  tzinfo: TTimeZoneInformation; // UTC 시간을 GMT 시간으로 변환하기 위해서,
  GMT_Plus_Offset: Double;

begin
  TSEdit.Text:=IntToHex(ImageNTHeaders.FileHeader.TimeDateStamp,8); // PE 헤더에 있는 TimeDateStamp 값을 가져온다.
  tFlag:=ImageNTHeaders.FileHeader.TimeDateStamp;

  case GetTimeZoneInformation(tzinfo) of // 현재 컴퓨터에서 타임존 정보를 읽어온다.
    TIME_ZONE_ID_STANDARD: GMT_Plus_Offset := -(tzinfo.StandardBias + tzinfo.Bias) / (24*60); // 표준 타임존 일 경우,
    TIME_ZONE_ID_DAYLIGHT: GMT_Plus_Offset := -(tzinfo.DaylightBias + tzinfo.Bias) / (24*60); // 일광절약시간을 적용하는 경우,
  else // 매우 일반적인 경우,
    GMT_Plus_Offset := -(tzinfo.Bias) / (24*60);  // 한국의 경우에는 Bias 값이 -540 으로 9시간 * 60 분으로 지정되어 있다. 이것을 TTimeDate 객체로 변환하려면, 날짜 수로 변환해야 되서, 60분과 24시간으로 나누어준다.
  end;

  dt := EncodeDate(1970, 1, 1) + (tFlag / SecsPerDay) + GMT_Plus_Offset; // 변환 완료

  edtTimeDateStampStr.Text := DateTimeToStr(dt); // GMT+9 시간을 출력한다.

end;

위에서 tzinfo를 얻는 과정을 제외하면, TimeDateStmap 값을 UTC 시간으로 변환할 수 있다. (너무 쉽다.)

array of char의 경우는 바로 AnsiString이나 String으로 변환되지만,
array of BYTE의 경우는 char 과는 틀리게 변환하는 방법이 따로 있었습니다.

상당히 정보 검색에 어려움이 있었지만, 테스트한 결과 다음과 같이 합니다.
const
 Name_Length = 16;
var
 Name : array[0..15] of BYTE;
 strAnsiName : AnsiString;
 strName : String;
begin
  SetString(strAnsiName, PAnsiChar(@Name[0]), Name_Length);
  strName := string(strAnsiName);
end;

이전에 Delphi에서 inline assembly를 사용하는 방법에 대해서 글을 하나 썼는데,

얼마전 받은 교육이 “악성코드 분석” 이었는데, 교육중에 주로 악성코드보다는 초급자를 위한 Crackme 나 KeygenMe 프로그램을 주로 분석하있다.

http://www.delphipraxis.net/147190-how-work-wic.html 를 참고하였습니다.

델파이에서도 GZip 압축을 풀 수 있습니다.

http://www.torry.net/quicksearchd.php?String=faststrings&Title=Yes