죠스고기의 생선가게(@josgogi)

간암의 예후

죠스고기 — Fri, 17 Feb 2012 16:20:30 +0900

간암 환자의 예후는 종양이 간에 한정되어 있는지, 수술적 치료로 완전히 제거 가능한지에 달려 있습니다. 수술을 받았더라도 간세포암과 담관암 환자의 5년 생존율은 20% 미만입니다. 간이식이 성공했을 경우 예후는 더 좋습니다.

간에 한정되고 완전 절제가 가능한 간모세포암 소아 환자는 5년 생존율이 약 70%입니다. 대부분의 혈관육종(Angiosarcoma) 환자는 진단 당시 이미 전이가 되어 있으며 예후도 일반적으로 좋지 않습니다.

http://www.vitaminmd.co.kr/dic/disease/harvard/view.md?diseaseid=000fS

간암의 치료

죠스고기 — Fri, 17 Feb 2012 16:19:39 +0900

치료의 종류는 암의 병기(Stage), 환자의 나이, 건강 상태 등의 여러 요소에 달려 있습니다. 수술, 방사선 치료, 화학 요법 등이 가능성 있는 치료 방법이며 3가지 방법 모두를 사용하는 일도 많습니다.

암이 단독 종양이고 림프절이나 다른 장기로의 전이가 없다면 수술로 제거할 수 있습니다. 그러나 이처럼 초기 단계에 간암이 발견되는 경우는 많지 않습니다.

일부 선별적인 경우에서 간이식이 고려될 수 있습니다. 여러 가지 경험적인 치료 방법들도 있습니다. 완치가 불가능한 많은 경우에서 치료는 암의 증상을 경감시키고 암이 커지거나 전이되는 것을 방지하는 것에 초점을 맞춥니다.

간암 환자들은 다른 건강 문제나 간의 기능이 좋지 않기 때문에 수술에 제한이 있고, 수술을 받을 수 없는 경우도 있습니다. 여러 곳에 다발적으로 생긴 간암의 경우에는 일반적으로 수술을 시행하지 않습니다. 이런 환자들의 경우에는 암의 성장을 일시적으로 멈추거나 증상을 경감시키기 위해 다른 치료를 사용할 수 있지만, 이런 치료들이 암 환자의 생존을 연장 시킨다는 연구 결과는 없습니다.

• 냉동외과수술, 한랭수술, 동결수술(Cryosurgery)은 극도로 차가운 금속 탐침자를 이용하여 암세포를 얼려서 파괴합니다. 전신마취 후에 냉동외과수술, 한랭수술, 동결수술은 재 시행할 수 있습니다. 일반적으로 합병증은 매우 적으며 회복도 빠릅니다.
• 에탄올 절제술(Ethanol ablation)은 경피적 에탄올 주입술 이라고도 불리며 간암에 직접 농축한 알코올을 주입합니다. 알코올로 암세포를 탈수시키고 파괴하는 방법입니다. 이 치료법은 부분 마취로 시행할 수 있습니다. 부작용으로는 주입 위치에 몇분간 통증이 있을 수 있고 주입 후 열이 날 수 있습니다.

원격 전이가 있거나 간의 여러 곳에 퍼져 있는 경우에는 종양 전체를 제거하기 어렵습니다. 이처럼 간암 말기에 적용할 수 있는 표준 치료법은 없습니다. 말기 환자의 경우 실험적인 치료법을 테스트하기 위한 임상 실험에 참여하는 방법도 있으나 이같은 임상 실험은 예측할 수 없는 부작용이 있을 수 있고 치료의 효과도 단정할 수 없으므로 주의해야 합니다.

http://www.vitaminmd.co.kr/dic/disease/harvard/view.md?diseaseid=000fS

간암의 예방법

죠스고기 — Fri, 17 Feb 2012 16:19:00 +0900

대부분의 원발성 간암은 예방할 수 있습니다. 예방법은 다음과 같습니다.

• 간염 - 간염 바이러스에 감염되는 위험성을 최소화시킵니다.
o 예방 백신을 접종합니다. (B형 간염의 경우에 해당, C형은 제외)
o 안전한 성생활을 하고(콘돔을 사용), 감염 예방 없는 성생활은 하지 마십시오.
o 탐폰이나 피가 묻어있는 조직 등을 만지거나 치우는 일을 할 때는 라텍스 장갑을 착용하십시오.
o 일회용 면도기나 칫솔, 귀걸이 등을 공동 사용하지 마십시오.
o 문신이나 피어싱(piercing)을 할 때는 자동소독장치를 이용하여 멸균된 도구를 사용하십시오.

• 음주 – 간경변증을 방지하기 위해서, 하루 두잔 이상의 음주는 제한합니다.
• 음식물 – 간으로 전이하는 대장, 유방, 폐암들은 음식물 섭취와 관련되어 있습니다. 적절한 몸무게를 유지하고, 채소와 과일을 많이 먹고, 포화 지방산의 섭취를 줄이십시오.

http://www.vitaminmd.co.kr/dic/disease/harvard/view.md?diseaseid=000fS

간암의 진단

죠스고기 — Fri, 17 Feb 2012 16:18:21 +0900

간암은 말기가 될 때까지 증상이 나타나지 않기 때문에 말기에 진단되는 경우가 많습니다. 간암이 의심되는 경우에는, 다음과 같은 진단 검사를 하나 이상 시행합니다.

• 신체 검사 – 체중 감소, 영양 결핍, 신체 허약, 간종대 그리고 간염과 간경변증과 같은 연관 질환을 검사합니다.
• 혈액 검사 – 간암의 징후가 될 수 있는, 알파태아단백(Alphafetoprotein, AFP)이라 불리는 단백질 수치의 상승을 검사합니다.
• 컴퓨터전산화 단층 촬영(CT scan) - 방사선과 컴퓨터 기술을 이용하여 몸의 단층 영상을 만들어내는 것. 종양을 발견하고 위치를 확인합니다.
• 간동맥 조영술(Hepatic artery angiogram) - 혈관에 조영제를 주입하고 방사선을 이용하여 혈관을 살펴보는 검사. 간에 혈액을 공급하는 혈관을 검사하고, 종양이 수술로 제거 가능한지 결정하는 검사입니다.
• 자기공명촬영(MRI scan) - 자기장을 이용하여 몸 안 구조들의 사진을 만들어내는 기술. 컴퓨터전산화 단층 촬영이나 초음파 검사보다 좀 더 자세한 영상을 얻을 수 있습니다. 항상 필요하지는 않습니다.
• 생검(Biopsy) – 종양의 작은 조직을 채취하여 악성 여부를 병리학 전문의가 검사하는 것입니다.
• 복강경(Laparoscopy) – 복부의 작은 절개창을 통해 빛이 들어오는 얇은 관을 삽입하여 간을 보는 검사입니다.

http://www.vitaminmd.co.kr/dic/disease/harvard/view.md?diseaseid=000fS

간암의 증상

죠스고기 — Fri, 17 Feb 2012 16:17:34 +0900

간암은 질환이 진행될 때까지 잘 나타나지 않는 것이 보통입니다. 대표적인 증상은 다음과 같습니다.

• 설명되지 않는 체중 저하
• 식욕 감퇴
• 음식을 적게 먹어도 포만감을 느낌
• 우측 상복부의 통증이나 부종
• 피부와 눈의 황색화(황달)
• 간 종대나 간 주위의 혹
• 만성 간염과 간경변증의 악화
• 낮은 혈당 수치(저혈당)
• 남성에서의 유방 발달

http://www.vitaminmd.co.kr/dic/disease/harvard/view.md?diseaseid=000fS

간암이 뭐냐 ?

죠스고기 — Fri, 17 Feb 2012 16:14:18 +0900

간암은 한 마디로 비정상적인 간세포의 병적 증식이라 요약할 수 있습니다. 우리 몸에서 간이 하는 역할을 소개하자면,

• 혈액응고를 돕는 인자들을 생산합니다.
• 독성 물질과 약물 및 알코올을 중화시키고 제거합니다.
• 지방과 콜레스테롤을 몸에서 흡수하도록 도와주는 담즙을 생성합니다.
• 정상 혈당을 유지하도록 도와줍니다.
• 여러 호르몬들을 조절합니다.

간암에는 간에서 시작한 암(원발성 간암)과 몸의 다른 부분에서 간이로 전이된 암(속발성 간암)이 있습니다. 원발성 간암은 세계에서 가장 흔한 고형암이며, 해마다 1백만명 이상 발병합니다. 그러나 미국과 유럽에서는 상대적으로 드문 암입니다. 미국암학회(The American Cancer Society)는 2005년에 약 17,550명의 원발성 간암 환자가 발생할 것으로 예측하였습니다. 대부분의 환자는 40세 이상으로 15,420명의 환자가 이 질환으로 사망할 것입니다. 미국에서 간암은 여성보다 남성에서 2배정도 더 흔합니다.

미국에서 대부분의 간암은 대장이나, 직장, 폐, 유방, 췌장, 위와 같은 다른 장기에서 간으로 전이된 암입니다. 다른 곳에서 간으로 전이된 암의 경우 암세포의 종류는 두 곳이 똑같습니다. 예를 들어, 폐암이 간에 전이된 경우 간의 암세포는 폐암세포와 똑같습니다. 이런 이유로, 환자들은 간암 치료를 받는 것이 아니라 폐암 치료를 받게 됩니다. 의사들은 간에 있는 암을 '전이된 폐암'이라고 부릅니다. 간은 암의 전이가 가장 흔한 장기 입니다.

오직 원발성 간암만이 간암의 치료를 받게 됩니다. 원발성 간암에는 다음과 같은 4가지 종류가 있습니다.

• 간세포암(Hepatocellular carcinoma, Hepatoma, HCC) – 이 종류는 미국에서 원발성 간암의 약 84%를 차지하고, 매우 공격적(aggressively)입니다.
• 담관암(Cholangiocarcinoma, Bile duct cancer) – 이 종류는 미국에서 원발성 간암의 약 13%를 차지하고 담석이나 담낭염, 만성 궤양성 대장염(대장의 염증)과 같은 질환이 이 암의 위험성을 증가 시킵니다.
• 혈관육종(Angiosarcoma, Hemangiosarcoma) – 간암 중에서는 매우 드문 암입니다.
• 간모세포종(Hepatoblastoma) – 4세 미만의 어린이에서 발견되는 드문 암입니다.

위험 인자들 : 원발성 간암의 발생을 증가 시키는 위험 인자들은 다음과 같습니다.

• 간염, 바이러스에 의해 유발되는 간의 염증반응. A, B, C, D, E, G의 6가지 종류의 간염은 각각 다른 종류의 바이러스에 의해 유발됩니다. B형 간염과 C형 간염은 간세포암 대부분의 경우와 관련이 있습니다. A형 간염은 간암의 위험성을 증가시키지 않습니다.
• 간경변증, 여러 원인들에 의해서 간에 상처(Scaring)가 남는 것. 미국에서 간경변증의 가장 흔한 원인은 C형 간염과 과도한 음주입니다. 미국에서 간암의 50~70%가 간경변증과 연관되어 있습니다.
• 염화 비닐(Vinyl chloride, Polyvinyl chloride, PVC)과의 직접적 접촉 – 이 화학 물질은 PVC 파이프와 같은 플라스틱을 만드는데 사용하고, 몇몇 연구들에서 간세포암과 관련이 있습니다.
• 비소, 목재를 보존하고 제초제, 살충제, 유리와 금속 합금으로 사용되는 화학물질에 노출되는 경우. 어떤 음료들은 비소에 오염되어 있습니다. 그것은 자연적인 미네랄 퇴적물에 존재합니다.
• 합성 스테로이드(Anabolic steroids), 가끔 운동선수들이 기량을 향상시키기 위해서 불법적으로 사용하고 특정 질환의 치료에 사용되는 남성 호르몬입니다. 장기간의 복용은 간암의 위험성을 증가시킵니다.
• 흡연은 폐, 대장, 췌장과 같은 다른 암들이 간으로 전이되는 것을 용이하게 합니다. 흡연과 간암과의 직접적인 연관성은 아직 밝혀지지 않았습니다.

출처 http://www.vitaminmd.co.kr/dic/disease/harvard/view.md?diseaseid=000fS

ImageMagick

죠스고기 — Fri, 10 Feb 2012 14:04:26 +0900

http://www.imagemagick.org/script/index.php

ImageMagick^® is a software suite to create, edit, compose, or convert bitmap images. It can read and write images in a variety of formats (over 100) including DPX, EXR, GIF, JPEG, JPEG-2000, PDF, PhotoCD, PNG, Postscript, SVG, and TIFF. Use ImageMagick to resize, flip, mirror, rotate, distort, shear and transform images, adjust image colors, apply various special effects, or draw text, lines, polygons, ellipses and Bézier curves.

The functionality of ImageMagick is typically utilized from the command line or you can use the features from programs written in your favorite language. Choose from these interfaces: G2F (Ada), MagickCore (C), MagickWand (C), ChMagick (Ch), ImageMagickObject (COM+), Magick++ (C++),JMagick (Java), L-Magick (Lisp), NMagick (Neko/haXe), MagickNet (.NET), PascalMagick (Pascal), PerlMagick (Perl), MagickWand for PHP (PHP), IMagick(PHP), PythonMagick (Python), RMagick (Ruby), or TclMagick (Tcl/TK). With a language interface, use ImageMagick to modify or create images dynamically and automagically.

ImageMagick is free software delivered as a ready-to-run binary distribution or as source code that you may freely use, copy, modify, and distribute in both open and proprietary applications. It is distributed under the Apache 2.0 license, approved by the OSI and recommended for use by the OSSCC.

The ImageMagick development process ensures a stable API and ABI. Before each ImageMagick release, we perform a comprehensive security assessment that includes memory and thread error detection to prevent security vulnerabilities.

The current release is ImageMagick 6.7.5-3.

오픈소스에 멀티플랫폼 지원에 쓸모가 많기는 한데 내부 바이너리 쩐다... ㅜㅜ 참 iOS도 지원 한다. 지원 가능한 이미지
포멧은 무려 100여가지가 넘는다. 멀티 플랫폼을 노린다면 좍살~ ㅋㅋㅋ

FreeImage

죠스고기 — Thu, 09 Feb 2012 22:31:45 +0900

공식 페이지 : http://freeimage.sourceforge.net

이미지 처리 관련 라이브리중 꽤나 오래된 프로젝트이다. dll 형식으로 제공 되며 아래의 언어들을 지원 한다.

Source distribution

Source distribution includes source for FreeImage, C++, C#, Delphi and VB6 wrappers, examples and the internally used libraries LibTIFF, LibJPEG, LibPNG, LibMNG, ZLib, OpenEXR, OpenJPEG and LibRaw-Lite.

현재 3.13.1버전이 최신 버전이다.

다운로드 : http://downloads.sourceforge.net/freeimage/FreeImage3131.zip

도움말 : http://downloads.sourceforge.net/freeimage/FreeImage3131.pdf

라이센스는 FreeImage 공식 페이지에 아래와 같이 명시 되어 있다.

FreeImage Open Source Dual-License

FreeImage is licensed under the GNU General Public License (GPL) and the FreeImage Public License (FIPL)

You can choose the license that has the most advantages for you:

Use the liberal FreeImage Public License to use FreeImage commercially or

Use the GNU General Public License to use FreeImage into your open source project.

A plain-text version of the FreeImage Public License can be found here.
As stated in § 6.1 of this license, Floris van den Berg may publish revised and/or new versions of the License from time to time. Each version will be given a distinguishing version number.

Using FreeImage in your application

When using FreeImage in your open source or commercial application, you are REQUIRED to :

distribute the license (GNU GPL or FIPL) you choosed with your application (i.e. the TXT file)

provide a suitable acknowledgement, either in the program's "About" box or in the user's manual (or both), for example :

This software uses the FreeImage open source image library. See http://freeimage.sourceforge.net for details.

FreeImage is used under the (GNU GPL or FIPL), version (license version).

괜찮은 라이브러리 이므로 공부를 위해서 소스를 분석해 보거나 공개용 유틸리티를 만들때 사용하면 좋겠다.

Graphics32

죠스고기 — Thu, 09 Feb 2012 22:30:26 +0900

공식 페이지 : http://graphics32.org/wiki

현재 Graphics32는 1.9버전 까지 나와 있다. Delphi를 사용하는 사람이라면 한번 쯤은 들어 봤을 것이다.

굉장히 완성도가 높은 프로젝트로 오픈소스 이다.

Graphics32는 아래와 같은 특징이 있다.

Graphics32

Graphics32 is a library designed for fast 32-bit graphics handling on Delphi and Kylix. Optimized for 32-bit pixel formats, it provides fast operations with pixels and graphic primitives, and in most cases Graphics32 outperforms the standard TCanvas classes. It is almost a hundred times faster in per-pixel access and about 2–5 times faster in drawing lines.

Features Some of Graphics32 features include:

    * Fast per-pixel access up to 100 times faster compared to standard TBitmap;
    * High-performance Bitmap alpha blending (including per-pixel alpha blending);
    * Pixel, line and polygon antialiasing with sub-pixel accuracy (combined with alpha blending);
    * Arbitrary polygon transformations and custom fillings;
    * Bitmap resampling with high quality reconstruction filters (e.g. Lanczos, Cubic, Mitchell);
    * A unique state-of-the-art rasterization system;
    * Affine transformations of bitmaps: rotations, scaling, etc with sub-pixel accuracy;
    * Arbitrary projective transformations of bitmaps;
    * Arbitrary remapping transformations of bitmaps (e.g. for Warping, Morphing);
    * Flexible supersampling implementation for maximum sampling quality;
    * Flicker-free image displaying components with optimized double buffering via advanced

      MicroTiles? based repaint optimizer;
    * Multiple customizible easy-to-use overlay layers;
    * Locking of bitmaps for safe multithreading;
    * A property editor for RGB and alpha channel loading;
    * Design-time loading of image formats supported by standard TPicture;
    * Works on Borland Delphi, C++ Builder and Kylix.

As of version 1.5.1b Graphics32 is licensed under the terms of the Mozilla Public License.

프로그래밍은 백문이 불여 일타라 했으니 한번 사용해 보시길...

다운로드 : http://sourceforge.net/projects/graphics32/files/graphics32/

도움말 : http://graphics32.org/documentation/Docs/_Body.htm

스크린샷 : http://sourceforge.net/project/screenshots.php?group_id=112985&ssid=28536

써드파티 : http://graphics32.org/wiki/Main/ThirdParty

ThirdParty를 방문 하시면 더 많은 정보를 보실 수 있습니다. 살펴 보았더니 응용 가능한 내용들도 몇 가지 있더군요.

Delphi GDI+ Library

죠스고기 — Thu, 09 Feb 2012 22:28:57 +0900

Delphi 2009 GDI+ Library : http://www.bilsen.com/index.htm?http://www.bilsen.com/gdiplus/

- 페이지로 이동하셔서 다운로드 하시면 예제와 소스 코드가 포함되어 있습니다.

This library enables GDI+ functionality for Delphi 2009 and later. It differs from other Delphi GDI+ libraries in the following ways:

It is modeled more after the .NET System.Drawing namespace instead of the C++ GDI+ classes. As a result, this library is a bit more high level and easier to use.
It uses object interfaces for automatic memory management and ease of use. You don't have to keep track of your graphics objects anymore.
It uses exceptions instead of error codes to handle errors the Delphi way.
It comes with sample applications that demonstrate the usage of GDI+ through examples from the Windows Platform SDK.
It supports the GDI+ version 1.1 extensions that were added with Windows Vista and certain Office versions.
Optionally provides class helpers for interoperability with Delphi's TBitmap and TCanvas.

Note that this GDI+ library only works with Delphi 2009 or later. This is because the library uses some new features of Delphi 2009 such as generics, and assumes that all string functions use Unicode strings.

DSPack으로 더 유명한 progdigy.com 의 GDI+ API Wrapper.

공식 페이지 : http://www.progdigy.com/?page_id=7

다운로드 : http://code.google.com/p/dspack/downloads/list

GDI+ Control(Delphi )

progdigy.com 의 GDI+ API Wrapper 를 이용해 만든 GDI+ Control 입니다.

공식 페이지 : http://lummie.co.uk/delphi-components/gdi-controls-for-delphi/

다운로드 : http://lummie.co.uk/wp-content/uploads/File/GDI+Controls.zip

Windows Animation Library

보너스로 윈도우 에니메이션(Win7 이상에서 동작 합니다.)

공식 페이지 : http://www.bilsen.com/windowsanimation/

다운로드 : http://www.bilsen.com/windowsanimation/WindowsAnimation1.0.zip

.Net-style Regular Expression Library for Delphi 2009 or later

PCRE 기반으로 작성 되어 있습니다.

공식 페이지 : http://www.bilsen.com/regularexpressions/index.htm

다운로드 : http://www.bilsen.com/regularexpressions/RegularExpressions1.1.zip

EXIF

죠스고기 — Thu, 09 Feb 2012 22:26:20 +0900

공식 페이지 : http://www.exif.org/

EXIF.org is an unofficial site dedicated to EXIF and related resources. EXIF stands for Exchangeable Image File Format, and is a standard for storing interchange information in image files, especially those using JPEG compression. Most digital cameras now use the EXIF format. The format is part of the DCF standard created by JEITA to encourage interoperability between imaging devices.

Please note that this site is solely here to provide a convenient point of reference for users of the EXIF standard, and is neither owned nor maintained by the creators of EXIF. It is as such wholly unofficial.

위 페이지에 가시면 샘플 이미지와 EXIF 포멧에 대한 문서가 있습니다. EXIF가 무엇인지 궁금하신 분들께서는 아래 내용을 참고 하시기 바랍니다.

EXIF란...(아래 내용은 SLR클럽의 Constant님의 글입니다.)

1. EXIF

Exif(Exchangeable Imge File Format)은 일본¹ 카메라 회사들이 현 일본전자정보기술산업협회를 통해 만든 표준입니다. 1995년 11월 최초 제정되었으며, 2003년 09월 2.21 개정안이 현재(2006년 02월) 최신입니다. '일반 사용자들이 쉽게 사용할 수 있는 디지털 정지영상 카메라용 정보 교환 체제 구축'을 목표로 제정되었으며, 협회 표준으로서 법률적인 구속력을 가지고 있지는 않지만, 일본에 있는 거의 모든 디지털 카메라 업체가 참가해 제정한 표준이고 매우 간단한 기술이므로 현재 판매되고 있는 카메라는 거의 모두 EXIF를 탑재하고 있습니다.

2. 구현 방법 및 내용

일반 메타정보로서 해당 영상 파일에 추가적으로 기록되게 됩니다. 가장 많이 사용되는 JPEG 파일의 경우, 파일 앞쪽 (헤더 뒤쪽)의 App 1 세그먼트에 기록되며, 이는 MP3 파일에 tag를 붙이는 식으로 영상 데이터에는 영향을 주지 않습니다.

Exif²에서 기록하는 정보는 다음과 같습니다.

- 카메라 제조사

- 카메라 모델

- 카메라 펌웨어 버전

- 촬영 시각 (셔터 누른 순간)

- 저장 시각

- 촬영 장소의 위도 및 경도 (GPS 부착된 카메라의 경우)

- 촬영자 (시그니쳐 설정되는 카메라의 경우)

- 셔터 속도

- 렌즈초점거리

- 조리개 값

- 노출 보정치

- 촬영 프로그램

- 측광 모드

- 화이트 밸런스 설정

- B/W 기준점

- 픽셀 컴프레션/샘플링/포지셔닝 (Y:Cb:Cr)

- 컴포넌트 설정 및 압축률 (Y to C)

- 컬러 스페이스

- x 해상도

- y 해상도

- x 사이즈

- y 사이즈

- 단위

- 오리엔테이션

- 파일 압축 방식

- 이미지 이름

- 스트립 카운트 (JPEG은 해당 없음)

- 그 외 (이 리스트는 Exif의 메타 전체를 기술하고 있지 않음)

3. 사용 방법

Exif는 촬영하는 시점에 카메라에 의해서 영상파일(JPEG)에 자동으로 기록됩니다. 2000년 이후 제작된 이미지 처리용 프로그램에서는 대부분 Exif를 읽을 수 있으며, 일부 프로그램에서는 저작권자 및 촬영자 정보를 기입할 수 있습니다. 저작권자 및 촬영자 정보 외의 수정은 순결성 및 정직성을 중요시하는 표준특성에 따라 판매용 프로그램에서는 일반적으로 지원하지 않습니다.

4. 참고 사항

4.1 Exif는 JPEG(.jpg, .jpeg) 및 TIFF (.tif,.tiff) Rev. 6.0 이상에서 지원되나, JPEG 2000 및 PNG등의 포맷에서는 지원되지 않습니다.

4.2 Exif 관련 프로그래밍시 주의점으로, 기작성되어 돌아다니는 코드들 중에 JPEG의 Exif를 핸들링 시 재압축을 하는 경우가 있습니다. 자신이 직접 짤 경우에도 주의를 요합니다.

넥슨 해킹 1300만 개인정보 유출

죠스고기 — Fri, 25 Nov 2011 21:55:51 +0900

넥슨 해킹 충격, 메이플스토리 가입자 1천300만명

메이플 스토리는 전체 가입자가 2,000만명에 이르기 때문에 파장이 클 것으로 보인다.

이번에 유출된 정보는 이름, 주민등록번호, ID 등 개인정보로 암호화 작업을 거친 상태로 유출 되었다.

http://www.etoday.co.kr/news/section/newsview.php?TM=news&SM=0407&idxno=509944

http://news.naver.com/main/read.nhn?mode=LSD&mid=sec&sid1=101&oid=003&aid=0004210567

How to get the CPU usage of a process

죠스고기 — Fri, 18 Nov 2011 09:30:03 +0900

How to get the CPU usage of a process In this short article I will describe how to obtain the CPU usage of a single process (like the “CPU” column in Task Manager). I have also created a small unit that implements this functionality ? uCpuUsage (7 Kb, RAR archive).


One way, that works only in NT-based operation systems (NT/2000/XP and so on) is to use the GetProcessTimes() API function (Windows unit).

function GetProcessTimes(
    // process handle
    hProcess:cardinal;
    // when the process was created
     var lpCreationTime:_FILETIME;
    // when the process exited var
     lpExitTime:_FILETIME;
    // time the process has spent in kernel mode
     var lpKernelTime:_FILETIME;
    // time the process has spent in user mode
     var lpUserTime :_FILETIME
):LongBool;

As you can see, this function returns the total amount of time the process has been using the CPU (lpKernelTime+lpUserTime) (we can ignore lpCreationTime and lpExitTime). This amount is expressed in units of 100 nanoseconds (divide by 10000 to get miliseconds). The _FILETIME structure is essentially a 64-bit integer and can be converted to Delphi version of Int64 quite easily :

TotalTime:Int64;
{…..}
TotalTime:=int64(mKernelTime.dwLowDateTime or (mKernelTime.dwHighDateTime shr 32));

To get the CPU usage we must get the process times twice (say, TotalTime1 and TotalTime2), and calculate the CPU usage as ((TotalTime2-TotalTime1) / DeltaTime), where DeltaTime is time elapsed between the two calls of GetProcessTimes (TotalTime’s and DeltaTime must be expressed in the same units, see the example below).

Method 1
A simple (though not very flexible) way of getting the CPU usage is then such :

(Add Windows to your Uses clause)

{A function that returns CPU usage (in percent) for a given process id}
function GetCpuUsage(PID:cardinal):single;
const
    cWaitTime=750;
var 
    h : Cardinal;
    mCreationTime,mExitTime,mKernelTime, mUserTime:_FILETIME;
    TotalTime1,TotalTime2:int64;
begin
     {We need to get a handle of the process with PROCESS_QUERY_INFORMATION privileges.}
    h:=OpenProcess(PROCESS_QUERY_INFORMATION,false,PID);
    {We can use the GetProcessTimes() function to get the amount of time the process has spent in kernel mode and user mode.}
    GetProcessTimes(h,mCreationTime,mExitTime,mKernelTime,mUserTime);
    TotalTime1:=int64(mKernelTime.dwLowDateTime or (mKernelTime.dwHighDateTime shr 32)) + int64(mUserTime.dwLowDateTime or (mUserTime.dwHighDateTime shr 32));

    {Wait a little}
    Sleep(cWaitTime); 

    GetProcessTimes(h,mCreationTime,mExitTime,mKernelTime,mUserTime);     TotalTime2:=int64(mKernelTime.dwLowDateTime or (mKernelTime.dwHighDateTime shr 32))+
    int64(mUserTime.dwLowDateTime or (mUserTime.dwHighDateTime shr 32));

    {This should work out nicely, as there were approx. 250 ms between the calls
    and the result will be a percentage between 0 and 100}
    Result:=((TotalTime2-TotalTime1)/cWaitTime)/100;
    CloseHandle(h);
end;

Method 2
The previous method has some obvious shortcomings ? it pauses the program for the specified time every time it is run and is a bit inefficient when used repeatedly (e.g. to create a CPU usage graph for a process). That’s why I wrote a simple unit that is more flexible and still easy to use. You can download it or copy & paste the code below.

Using the unit

When starting to monitor a process, call cnt:=wsCreateUsageCounter(Process_id) to initialize a usage counter. When you need to get the current CPU usage of that process, use usage:=wsGetCpuUsage(cnt). When you have finished monitoring the process, call wsDestroyUsageCounter(cnt) to free memory used by usage counter and close open handles.

The uCpuUsage unit

unit uCpuUsage;

interface
const
    wsMinMeasurementInterval=250; {minimum amount of time that must have elapsed to calculate CPU usage, miliseconds. If time elapsed is less than this, previous result is returned, or zero, if there is no previous result.}
type
    TCPUUsageData=record
        PID,Handle:cardinal;
        oldUser,oldKernel:Int64;
        LastUpdateTime:cardinal;
        LastUsage:single;
        //Last result of wsGetCpuUsage is saved here
        Tag:cardinal;
        //Use it for anythin you like, not modified by this unit
    end;
    PCPUUsageData=^TCPUUsageData;

function wsCreateUsageCounter(PID:cardinal):PCPUUsageData;
function wsGetCpuUsage(aCounter:PCPUUsageData):single;
procedure wsDestroyUsageCounter(aCounter:PCPUUsageData);

implementation

uses Windows;

function wsCreateUsageCounter(PID:cardinal):PCPUUsageData;
var
    p:PCPUUsageData;
    mCreationTime,mExitTime,mKernelTime, mUserTime:_FILETIME;
    h:cardinal;
begin
    result:=nil;
    //We need a handle with PROCESS_QUERY_INFORMATION privileges
    h:=OpenProcess(PROCESS_QUERY_INFORMATION,false,PID);
    if h=0 then exit;
    new(p);
    p.PID:=PID;
    p.Handle:=h;
    p.LastUpdateTime:=GetTickCount;
    p.LastUsage:=0;
    if GetProcessTimes(p.Handle, mCreationTime, mExitTime, mKernelTime, mUserTime) then begin
        //convert _FILETIME to Int64
        p.oldKernel:=int64(mKernelTime.dwLowDateTime or (mKernelTime.dwHighDateTime shr 32));
        p.oldUser:=int64(mUserTime.dwLowDateTime or (mUserTime.dwHighDateTime shr 32));
        Result:=p;
    end else begin
        dispose(p);
    end;
end;

procedure wsDestroyUsageCounter(aCounter:PCPUUsageData);
begin
    CloseHandle(aCounter.Handle);
    dispose(aCounter);
end;

function wsGetCpuUsage(aCounter:PCPUUsageData):single;
var
    mCreationTime,mExitTime,mKernelTime, mUserTime:_FILETIME;
    DeltaMs,ThisTime:cardinal;
    mKernel,mUser,mDelta:int64;
begin
    result:=aCounter.LastUsage;
    ThisTime:=GetTickCount; //Get the time elapsed since last query

    DeltaMs:=ThisTime-aCounter.LastUpdateTime;
    if DeltaMs < wsMinMeasurementInterval then exit;
aCounter.LastUpdateTime:=ThisTime;

    GetProcessTimes(aCounter.Handle,mCreationTime, mExitTime, mKernelTime, mUserTime);
    //convert _FILETIME to Int64.
    mKernel:=int64(mKernelTime.dwLowDateTime or (mKernelTime.dwHighDateTime shr 32));
    mUser:=int64(mUserTime.dwLowDateTime or (mUserTime.dwHighDateTime shr 32));
    //get the delta
    mDelta:=mUser+mKernel-aCounter.oldUser-aCounter.oldKernel;

    aCounter.oldUser:=mUser;
    aCounter.oldKernel:=mKernel;

    Result:=(mDelta/DeltaMs)/100;
    //mDelta is in units of 100 nanoseconds, so…

    aCounter.LastUsage:=Result;
    //just in case you want to use it later, too
end;

end.

Related posts :
Process memory usage
How To Get Per-Core CPU Usage
Manipulating Taskbar Buttons
Listing All Open Handles
Hiding from NT TaskManager

SHGetKnownFolderPath(), KNOWNFOLDERID

죠스고기 — Wed, 02 Nov 2011 09:53:13 +0900

Vista 이전에는 SHGetFolderPath() 함수를 이용, Vista 이후로는 SHGetKnownFolderPath() 함수 사용.
아래는 SHGetKnownFolderPath() 함수 사용에 대한 예제를 간단히 만들어 본 것임.

자세한 것은 아래 링크 참조.
http://msdn.microsoft.com/en-us/library/windows/desktop/dd378457(v=vs.85).aspx

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ActiveX, ComObj;

type
  KNOWNFOLDERID = TGuid;
  TSHGetKnownFolderPath = function(const rfid: KNOWNFOLDERID; dwFlags: DWord; hToken: THandle; var ppSzPath: LPWSTR) : HResult; StdCall;

const
  FOLDERID_AddNewPrograms: KNOWNFOLDERID = '{de61d971-5ebc-4f02-a3a9-6c82895e5c04}';
  FOLDERID_AdminTools: KNOWNFOLDERID = '{724EF170-A42D-4FEF-9F26-B60E846FBA4F}';
  FOLDERID_AppUpdates: KNOWNFOLDERID = '{a305ce99-f527-492b-8b1a-7e76fa98d6e4}';
  FOLDERID_CDBurning: KNOWNFOLDERID = '{9E52AB10-F80D-49DF-ACB8-4330F5687855}';
  FOLDERID_ChangeRemovePrograms: KNOWNFOLDERID = '{df7266ac-9274-4867-8d55-3bd661de872d}';
  FOLDERID_CommonAdminTools: KNOWNFOLDERID = '{D0384E7D-BAC3-4797-8F14-CBA229B392B5}';
  FOLDERID_CommonOEMLinks: KNOWNFOLDERID = '{C1BAE2D0-10DF-4334-BEDD-7AA20B227A9D}';
  FOLDERID_CommonPrograms: KNOWNFOLDERID = '{0139D44E-6AFE-49F2-8690-3DAFCAE6FFB8}';
  FOLDERID_CommonStartMenu: KNOWNFOLDERID = '{A4115719-D62E-491D-AA7C-E74B8BE3B067}';
  FOLDERID_CommonStartup: KNOWNFOLDERID = '{82A5EA35-D9CD-47C5-9629-E15D2F714E6E}';
  FOLDERID_CommonTemplates: KNOWNFOLDERID = '{B94237E7-57AC-4347-9151-B08C6C32D1F7}';
  FOLDERID_ComputerFolder: KNOWNFOLDERID = '{0AC0837C-BBF8-452A-850D-79D08E667CA7}';
  FOLDERID_ConflictFolder: KNOWNFOLDERID = '{4bfefb45-347d-4006-a5be-ac0cb0567192}';
  FOLDERID_ConnectionsFolder: KNOWNFOLDERID = '{6F0CD92B-2E97-45D1-88FF-B0D186B8DEDD}';
  FOLDERID_Contacts: KNOWNFOLDERID = '{56784854-C6CB-462b-8169-88E350ACB882}';
  FOLDERID_ControlPanelFolder: KNOWNFOLDERID = '{82A74AEB-AEB4-465C-A014-D097EE346D63}';
  FOLDERID_Cookies: KNOWNFOLDERID = '{2B0F765D-C0E9-4171-908E-08A611B84FF6}';
  FOLDERID_Desktop: KNOWNFOLDERID = '{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}';
  FOLDERID_DeviceMetadataStore: KNOWNFOLDERID = '{5CE4A5E9-E4EB-479D-B89F-130C02886155}';
  FOLDERID_DocumentsLibrary: KNOWNFOLDERID = '{7B0DB17D-9CD2-4A93-9733-46CC89022E7C}';
  FOLDERID_Downloads: KNOWNFOLDERID = '{374DE290-123F-4565-9164-39C4925E467B}';
  FOLDERID_Favorites: KNOWNFOLDERID = '{1777F761-68AD-4D8A-87BD-30B759FA33DD}';
  FOLDERID_Fonts : KNOWNFOLDERID ='{FD228CB7-AE11-4AE3-864C-16F3910AB8FE}';
  FOLDERID_Games : KNOWNFOLDERID ='{CAC52C1A-B53D-4edc-92D7-6B2E8AC19434}';
  FOLDERID_GameTasks : KNOWNFOLDERID ='{054FAE61-4DD8-4787-80B6-090220C4B700}';
  FOLDERID_History : KNOWNFOLDERID ='{D9DC8A3B-B784-432E-A781-5A1130A75963}';
  FOLDERID_HomeGroup : KNOWNFOLDERID ='{52528A6B-B9E3-4ADD-B60D-588C2DBA842D}';
  FOLDERID_ImplicitAppShortcuts : KNOWNFOLDERID ='{BCB5256F-79F6-4CEE-B725-DC34E402FD46}';
  FOLDERID_InternetCache : KNOWNFOLDERID ='{352481E8-33BE-4251-BA85-6007CAEDCF9D}';
  FOLDERID_InternetFolder : KNOWNFOLDERID ='{4D9F7874-4E0C-4904-967B-40B0D20C3E4B}';
  FOLDERID_Libraries : KNOWNFOLDERID ='{1B3EA5DC-B587-4786-B4EF-BD1DC332AEAE}';
  FOLDERID_Links : KNOWNFOLDERID ='{bfb9d5e0-c6a9-404c-b2b2-ae6db6af4968}';
  FOLDERID_LocalAppData : KNOWNFOLDERID ='{F1B32785-6FBA-4FCF-9D55-7B8E7F157091}';
  FOLDERID_LocalAppDataLow : KNOWNFOLDERID ='{A520A1A4-1780-4FF6-BD18-167343C5AF16}';
  FOLDERID_LocalizedResourcesDir : KNOWNFOLDERID ='{2A00375E-224C-49DE-B8D1-440DF7EF3DDC}';
  FOLDERID_Music : KNOWNFOLDERID ='{4BD8D571-6D19-48D3-BE97-422220080E43}';
  FOLDERID_MusicLibrary : KNOWNFOLDERID ='{2112AB0A-C86A-4FFE-A368-0DE96E47012E}';
  FOLDERID_NetHood : KNOWNFOLDERID ='{C5ABBF53-E17F-4121-8900-86626FC2C973}';
  FOLDERID_NetworkFolder : KNOWNFOLDERID ='{D20BEEC4-5CA8-4905-AE3B-BF251EA09B53}';
  FOLDERID_OriginalImages : KNOWNFOLDERID ='{2C36C0AA-5812-4b87-BFD0-4CD0DFB19B39}';
  FOLDERID_PhotoAlbums : KNOWNFOLDERID ='{69D2CF90-FC33-4FB7-9A0C-EBB0F0FCB43C}';
  FOLDERID_PicturesLibrary : KNOWNFOLDERID ='{A990AE9F-A03B-4E80-94BC-9912D7504104}';
  FOLDERID_Pictures : KNOWNFOLDERID ='{33E28130-4E1E-4676-835A-98395C3BC3BB}';
  FOLDERID_Playlists : KNOWNFOLDERID ='{DE92C1C7-837F-4F69-A3BB-86E631204A23}';
  FOLDERID_PrintersFolder : KNOWNFOLDERID ='{76FC4E2D-D6AD-4519-A663-37BD56068185}';
  FOLDERID_PrintHood : KNOWNFOLDERID ='{9274BD8D-CFD1-41C3-B35E-B13F55A758F4}';
  FOLDERID_Profile : KNOWNFOLDERID ='{5E6C858F-0E22-4760-9AFE-EA3317B67173}';
  FOLDERID_ProgramData : KNOWNFOLDERID ='{62AB5D82-FDC1-4DC3-A9DD-070D1D495D97}';
  FOLDERID_ProgramFiles: KNOWNFOLDERID ='{905e63b6-c1bf-494e-b29c-65b732d3d21a}';
  FOLDERID_ProgramFilesX64: KNOWNFOLDERID ='{6D809377-6AF0-444b-8957-A3773F02200E}';
  FOLDERID_ProgramFilesX86: KNOWNFOLDERID ='{7C5A40EF-A0FB-4BFC-874A-C0F2E0B9FA8E}';
  FOLDERID_ProgramFilesCommon: KNOWNFOLDERID ='{F7F1ED05-9F6D-47A2-AAAE-29D317C6F066}';
  FOLDERID_ProgramFilesCommonX64: KNOWNFOLDERID ='{6365D5A7-0F0D-45E5-87F6-0DA56B6A4F7D}';
  FOLDERID_ProgramFilesCommonX86: KNOWNFOLDERID ='{DE974D24-D9C6-4D3E-BF91-F4455120B917}';
  FOLDERID_Programs : KNOWNFOLDERID ='{A77F5D77-2E2B-44C3-A6A2-ABA601054A51}';
  FOLDERID_Public : KNOWNFOLDERID ='{DFDF76A2-C82A-4D63-906A-5644AC457385}';
  FOLDERID_PublicDesktop : KNOWNFOLDERID ='{C4AA340D-F20F-4863-AFEF-F87EF2E6BA25}';
  FOLDERID_PublicDocuments : KNOWNFOLDERID ='{ED4824AF-DCE4-45A8-81E2-FC7965083634}';
  FOLDERID_PublicDownloads : KNOWNFOLDERID ='{3D644C9B-1FB8-4f30-9B45-F670235F79C0}';
  FOLDERID_PublicGameTasks : KNOWNFOLDERID ='{DEBF2536-E1A8-4c59-B6A2-414586476AEA}';
  FOLDERID_PublicLibraries : KNOWNFOLDERID ='{48DAF80B-E6CF-4F4E-B800-0E69D84EE384}';
  FOLDERID_PublicMusic : KNOWNFOLDERID ='{3214FAB5-9757-4298-BB61-92A9DEAA44FF}';
  FOLDERID_PublicPictures : KNOWNFOLDERID ='{B6EBFB86-6907-413C-9AF7-4FC2ABF07CC5}';
  FOLDERID_PublicRingtones : KNOWNFOLDERID ='{E555AB60-153B-4D17-9F04-A5FE99FC15EC}';
  FOLDERID_PublicVideos : KNOWNFOLDERID ='{2400183A-6185-49FB-A2D8-4A392A602BA3}';
  FOLDERID_QuickLaunch : KNOWNFOLDERID ='{52a4f021-7b75-48a9-9f6b-4b87a210bc8f}';
  FOLDERID_Recent : KNOWNFOLDERID ='{AE50C081-EBD2-438A-8655-8A092E34987A}';
  FOLDERID_RecordedTVLibrary : KNOWNFOLDERID ='{1A6FDBA2-F42D-4358-A798-B74D745926C5}';
  FOLDERID_RecycleBinFolder : KNOWNFOLDERID ='{B7534046-3ECB-4C18-BE4E-64CD4CB7D6AC}';
  FOLDERID_ResourceDir : KNOWNFOLDERID ='{8AD10C31-2ADB-4296-A8F7-E4701232C972}';
  FOLDERID_Ringtones : KNOWNFOLDERID ='{C870044B-F49E-4126-A9C3-B52A1FF411E8}';
  FOLDERID_RoamingAppData : KNOWNFOLDERID ='{3EB685DB-65F9-4CF6-A03A-E3EF65729F3D}';
  FOLDERID_SampleMusic : KNOWNFOLDERID ='{B250C668-F57D-4EE1-A63C-290EE7D1AA1F}';
  FOLDERID_SamplePictures : KNOWNFOLDERID ='{C4900540-2379-4C75-844B-64E6FAF8716B}';
  FOLDERID_SamplePlaylists : KNOWNFOLDERID ='{15CA69B3-30EE-49C1-ACE1-6B5EC372AFB5}';
  FOLDERID_SampleVideos : KNOWNFOLDERID ='{859EAD94-2E85-48AD-A71A-0969CB56A6CD}';
  FOLDERID_SavedGames : KNOWNFOLDERID ='{4C5C32FF-BB9D-43b0-B5B4-2D72E54EAAA4}';
  FOLDERID_SavedSearches : KNOWNFOLDERID ='{7d1d3a04-debb-4115-95cf-2f29da2920da}';
  FOLDERID_SEARCH_CSC : KNOWNFOLDERID ='{ee32e446-31ca-4aba-814f-a5ebd2fd6d5e}';
  FOLDERID_SEARCH_MAPI : KNOWNFOLDERID ='{98ec0e18-2098-4d44-8644-66979315a281}';
  FOLDERID_SearchHome : KNOWNFOLDERID ='{190337d1-b8ca-4121-a639-6d472d16972a}';
  FOLDERID_SendTo : KNOWNFOLDERID ='{8983036C-27C0-404B-8F08-102D10DCFD74}';
  FOLDERID_SidebarDefaultParts : KNOWNFOLDERID ='{7B396E54-9EC5-4300-BE0A-2482EBAE1A26}';
  FOLDERID_SidebarParts : KNOWNFOLDERID ='{A75D362E-50FC-4fb7-AC2C-A8BEAA314493}';
  FOLDERID_StartMenu : KNOWNFOLDERID ='{625B53C3-AB48-4EC1-BA1F-A1EF4146FC19}';
  FOLDERID_Startup : KNOWNFOLDERID ='{B97D20BB-F46A-4C97-BA10-5E3608430854}';
  FOLDERID_SyncManagerFolder : KNOWNFOLDERID ='{43668BF8-C14E-49B2-97C9-747784D784B7}';
  FOLDERID_SyncResultsFolder : KNOWNFOLDERID ='{289a9a43-be44-4057-a41b-587a76d7e7f9}';
  FOLDERID_SyncSetupFolder : KNOWNFOLDERID ='{0F214138-B1D3-4a90-BBA9-27CBC0C5389A}';
  FOLDERID_System : KNOWNFOLDERID ='{1AC14E77-02E7-4E5D-B744-2EB1AE5198B7}';
  FOLDERID_SystemX86 : KNOWNFOLDERID ='{D65231B0-B2F1-4857-A4CE-A8E7C6EA7D27}';
  FOLDERID_Templates : KNOWNFOLDERID ='{A63293E8-664E-48DB-A079-DF759E0509F7}';
  FOLDERID_UserPinned : KNOWNFOLDERID ='{9E3995AB-1F9C-4F13-B827-48B24B6C7174}';
  FOLDERID_UserProfiles : KNOWNFOLDERID ='{0762D272-C50A-4BB0-A382-697DCD729B80}';
  FOLDERID_UserProgramFiles : KNOWNFOLDERID ='{5CD7AEE2-2219-4A67-B85D-6C9CE15660CB}';
  FOLDERID_UserProgramFilesCommon : KNOWNFOLDERID ='{BCBD3057-CA5C-4622-B42D-BC56DB0AE516}';
  FOLDERID_UsersFiles : KNOWNFOLDERID ='{f3ce0f7c-4901-4acc-8648-d5d44b04ef8f}';
  FOLDERID_UsersLibraries : KNOWNFOLDERID ='{A302545D-DEFF-464b-ABE8-61C8648D939B}';
  FOLDERID_Videos : KNOWNFOLDERID ='{18989B1D-99B5-455B-841C-AB7C74E4DDFC}';
  FOLDERID_VideosLibrary : KNOWNFOLDERID ='{491E922F-5643-4AF4-A7EB-4E7A138D8174}';
  FOLDERID_Windows : KNOWNFOLDERID ='{F38BF404-1D43-42F2-9305-67DE0B28FC23}';

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function ShGetKnownFolderPath(const rfid: KNOWNFOLDERID; dwFlags: DWord; hToken: THandle; var ppszPath: LPWSTR): HResult;
var
  Shell: HModule;
  SHGetKnownFolderPath: TSHGetKnownFolderPath;
begin
  Shell := LoadLibrary('shell32.dll');
  Win32Check(Shell <> 0);
  try
    @SHGetKnownFolderPath := GetProcAddress(Shell, 'SHGetKnownFolderPath');
    Win32Check(Assigned(SHGetKnownFolderPath));
    Result := SHGetKnownFolderPath(rfid, dwFlags, hToken, ppszPath);
  finally
    FreeLibrary(Shell);
  end;
end;

function GetKnownFolderPath(const rfid: KNOWNFOLDERID; dwFlags: DWord; hToken: THandle): WideString;
var
  buffer: LPWSTR;
begin
  buffer := nil;
  try
    OleCheck(ShGetKnownFolderPath(rfid, dwFlags, hToken, buffer));
    try
      Result := buffer;
    finally
      CoTaskMemFree(buffer);
    end;
  except
    Result := '';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  str: WideString;
begin
  for i := 0 to ComboBox1.Items.Count - 1 do
  begin
    str := GetKnownFolderPath(StringToGUID(ComboBox1.Items[i]), 0, 0);
    Memo1.Lines.Add(Format('%s : %s', [ComboBox1.Items[i], str]));
  end;
end;

end.

Shield from thread injection

죠스고기 — Tue, 25 Oct 2011 17:16:52 +0900

진짜로 막힌단다. 성공율은 80%정도, 코드 인젝션은 못 막지만 일반적인 방식의 인젝션은 막을 수 있단다.

Originally posted on rootkit.com
http://www.rootkit.com/blog.php?newsid=640

——————————————————————————————

This method was discovered when I was doing some random debugging. Sudden idea came to my mind when I inject some DLL into olly-debugged process. Olly log traced that one thread was created and terminated. Then I thought since the DLL loading takes place in user-mode, why cant I prevent it from loading by hooking some function ?

So I put a bp on kernel32.LoadLibraryA() and inject DLL again. ollydbg halted. I traced the stack frame to one function in kernel32.dll. I inject some DLL again, and yet I traced to the same function.

My sense tell me that is the function I’m looking for. So I began coding and hook that function. Voila, now Winject reports DLL-injection failed. But wait, our job is not done yet.

After more debugging I found that my hook was preventing the our own thread from creating too. So I need a method to distinguish rogue thread from our own thread.

Finally, I found a method used by Piotr Bania to prevent shellcode execution. He used VirtualProtect() to determine whether a code is rouge or not. Usually shellcode is injected as a result of stack-overflow or any other memory-based leak. These memory should be writable. If any pointer is pointing to a writable memory section, we can conclude that it is altered by the shellcode.

Yet, this method has a flaw. Most packer and protector modifies PE and mark the image as writable (to decompress or decrypt the content) and doesn’t bother to restore them. It would raise false alarm when we use VirtualProtect() to check the protection. So I thought of a better solution.

I used VirtualQuery() to check for memory type. Usually when we create a thread, it should point to code within the image. (marked by loader as MEM_IMAGE) Any VirtualAllocEx() allocated memory would not have that flag set.

——————————————————————————————

Trypanophobia
http://code.google.com/p/opcode0x90/source/browse/trunk/snippets/Trypanophobia/

——————————————————————————————

opcode0x90.zip

noinjection.zip

HookMon_src.zip

위 내용에 대한 자세한 설명 출처 : http://nerd.egloos.com/2940078

프로세스에 DLL Injection할 때 주로 사용하는 방법은 CreateRemoteThread()를 사용하여
LoadLibrary()를 호출하여 원하는 DLL을 Load한다. 이런 방법을 사용하는 트로이 프로그램이나
Hook을 시도하는 녀석들을 감지해낼 수 있다.

CreateRemoteThread()가 Target Process를 향해 호출되면 Target Process내에서는 CreateThread()가
호출되며 CreateThread()를 리버싱해보면 다음과 같다.

KERNEL32!BaseThreadStartThunk:
77e964cb xor     ebp,ebp
77e964cd push    ebx
77e964ce push    eax
77e964cf push    0x0
KERNEL32!BaseThreadStart:
77e964d1 55               push    ebp
77e964d2 8bec             mov     ebp,esp
77e964d4 6aff             push    0xff
...snip...
77e9651d ff750c           push    dword ptr [ebp+0xc] <-- push the argument
                                                                                          to ThreadFunc
77e96520 ff5508           call    dword ptr [ebp+0x8] <-- DWORD WINAPI
                                                                                         ThreadFunc(LPVOID);
77e96523 50               push    eax
77e96524 e805000000       call    KERNEL32!ExitThread (77e9652e)
77e96529 e923f10000       jmp     KERNEL32!BaseThreadStart+0x81 (77ea5651)

여기서 제일 처음 호출되는 BaseThreadStartThunk() 함수를 Hooking 하여 Hook Procedure
에서 lpStartAddress(Thread의 시작주소-Stack에 존재)를 LoadLibrary나 GetProcAddress,
FreeLibrary와 같은 함수의 Address와 비교하여 같을 경우, Injection이라고 간주한다.

이러한 탐지 방법은 단지 CreateRemoteThread()를 사용하여 DLL Injection하는 경우만
탐지가능하고, SetWindowsHookEx(), SetThreadContext()로 DLL Injection하는 경우는 탐지
불가능하다.

보스를 지켜라.

죠스고기 — Wed, 20 Jul 2011 14:50:15 +0900

이거 광고 보는데 최강희가 면접을 보는 장면에서, 최강희의 수험표에 어디서 많이 보던 로고가 있더라... ㅋㅋㅋ
자세히 보니 더존 로고가 ... 내가 다니는 회사가 드라마에 나오는건 처음인지라 신기했다.

오늘 사내 공지에 보니 회사에서 간접광고와 제작지원을 병행하는 PPL을 진행중이라고 한다.
실제 내가 근무하는 연구동이 있는 더존IT그룹 강촌캠퍼스에서 8월 중순부터 촬영도 한단다.

최강희랑 지성을 좋아하는데 촬영때 볼 수도 있겠구먼~
연구동이랑 구내식당이랑 헬스케어 센터 등에서도 촬영을 한다는데~ 최소한 한 번은 보겠지~

네이버 검색해보니 이렇게 나오는 군...

보스를 지켜라

본방정보: SBS (수, 목) 오후 09:55~ (2011년 8월 3일 방송예정)
제작사: 에이스토리
제작진: 연출 손정현 | 극본 권기영
출연진: 지성, 최강희, 재중, 왕지혜, 박영규, 차화연, 김청, 이희원
소개: 여비서가 된 주인공과 훈남 상사의 사랑 이야기를 그린 로맨틱 드라마

드라마 시작하면 시간이 되는 날은 꼭 봐야 겠다.

UI 디자인, Balsamiq Mockups

죠스고기 — Fri, 15 Jul 2011 17:42:09 +0900

음 UI를 구상하거나 구성할때 개발자들은 주로 종이에 그림을 그리지 싶다. 나도 몇년째 그러고 있으니...
그런데 종이에 그리는거 이거 보통 힘든게 아니다.

그러다가 우연히 Balsamiq Mockups 이라는 툴을 알게 되었다. 아래 링크...

http://balsamiq.com/products/mockups

완전 감동이었다.

쉽고 빠르게 내가 원하는 또는 생각하는 UI를 구성해 볼 수 있다.

뭐 간단히 구성해봤는데 쓸만하다.

각 객체별로 옵션이 있어 내가 원하는 형태로 구성이 가능하고, 웬만한 UI들은 이걸로 디자인 하는 것이 가능할 것 같다.

아래는 동영상.

좋은 하루들 되세요~~~

URL Protocol View

죠스고기 — Tue, 12 Jul 2011 16:17:44 +0900

looking for registered custom protocols. Those will be children of the HKey_Classes_Root key that have a value named URL Protocol.

Each time you find one, record the default value of the shell\open\command key.

까먹을까봐 백업한다.

귀파지마 !!! 짜증난단 말야 !!!! 우리집 강아지 귀 파는거~

죠스고기 — Thu, 07 Apr 2011 17:47:13 +0900

8살된 시추인데 귀파는거 겁나게 싫어함.
그래도 꾿꾿하게 귀파시는 여신님 !!!

강원도 춘천 강촌에 짬뽕 맛집 추천 합니다.

죠스고기 — Thu, 07 Apr 2011 17:27:07 +0900

강원도 춘천에 강촌유원지에 맛있는 짬뽕을 팔고 있다.

회사가 서울에서 강촌IC근처로 이전을 하게 되어 회사 식당에서 주는 밥만 열심히 먹었는데,
어제 과음으로 오늘 점심때 속도 풀겸해서 짬뽕을 먹으러 중화요리집을 찾다가 새로 생긴 강촌역에서
구 강촌역 방향으로 가다보면 도원이라는 곳을 찾았다.

우선 위 사진을 보라~ 속 풀기 딱이다.
뚝배기 짬뽕이라는 녀석인데 얼큰한 것이 속풀이용으로는 정말 괜찮다.
시골이라 기대 없이 들어갔다가 한 건 했다.

쟁반짜장, 뚝배기짬뽕, 탕수육을 시켜 먹었는데 술 기운에 속이 울렁이는데도 시킨 음식 모두 아주 맛있게 먹어치웠다.
다음에는 여신님 모시고 한번 가봐야 겠다.

혹시나 강촌에 놀러 오시는 분들 한번쯤 찾아 볼만 한 곳이다.

앱스토어용 게임심의신청경험담 - 입주오피스텔 주차장때문에 게임심의가 안됨

죠스고기 — Thu, 20 Jan 2011 17:59:12 +0900

클리앙에서 퍼왔네요.

요 며칠동안 대한민국의 차세대 신 성장 동력이라는 게임산업의 멍청하고도 한심한 단면에 대해 정말 뼈저리게 느끼게 되서 글 남겨봅니다.

아시다 시피, 애플 아이폰 앱스토어 한국에는 게임 카테고리가 아예 존재하지 않습니다.

이유는?, 전세계에서 거의 유일하게, 게임제작을 사전심의하기 때문입니다.

뿐입니까? 학교 과제로, 또는 집에서 친구들과 심심풀이로 플래쉬로 만드는 게임을 자기 홈페이지에 올리는 것 조차 돈내고 사전 심의받으라는 나라가 대한민국입니다.

네. 공산국가 중국도 안하는 짓을 우리나라에서는 합니다.(중국은 사후심의)

이유는? 뭐 우리 세금으로 녹을 먹는 공무원나부랑이께서 국민을 보호하겠답니다.

나쁜 게임으로 부터 말이죠.

영상물의 심의나, 음악의 심의는 예전에 위헌판결을 받았지만 게임은 아닙니다.

게임은 심의를 받아야 한답니다. 네 좋습니다. 받겠습니다.

제가 지금 부터 적을 글들은 요 며칠동안 제가 겪은 일들입니다.

게임을 하나 만들었습니다.

그래서 국내 앱스토어에 등록하기 위해서, 심의를 받으려고 게임물 등급위원회 홈페이지에 방문했습니다.

사이트의 회원으로 가입해야만, 심의신청을 할수 있습니다.

그런데 회원 가입이 안됩니다. 왜 안되는지 한참을 헤메고 보니.

공인인증서가 있어야 한답니다.

근데 이게, 우리가 아는 그 저주스러운 공인인증서를 뛰어넘는 인증서입니다.

게임심의전용 공인인증서로.. 이놈은 뭐가 그렇게 대단한 것인지 인증서를 내주는 회사에 직접 서류를 작성해서 대표가 찾아가야 그 회사 직원과 대면을 하고 확인을 한 후에 메일로 인증서 받는 방법을 보내준다는 군요.

그래서 서류를 준비하고 찾아갔습니다. 면접처럼 두근거리더군요.

가서 서류를 내니,

네 다 됐습니다. 가세 메일 확인하세요.

이게 끝입니다.

5초도 안걸렸습니다. 뭐 대단한 서류일까요? 아닙니다. 그냥 사업자등록증하고, 신청서 그게 답니다.

(만약 제 글이 이슈가 되서 이게 메스컴을 타게 되면, 분명 우리나라의 잘난 정치인과 공무원님들께서는, 아 저 회사 대면 단계를 더 강화해야겠군..이라고 생각하겠지요.

제발 머리좀 탑제해 주세요.)

사무실로 투덜거리면서 돌아왔습니다.

그래서 회원가입을 다시 시도했습니다.

가입이 안됩니다.

이유는? 실명인증이 되지 않는답니다. 이게 뭔 소리지 ?

밑에 조그맣게 실명인증이 안되면 아래 팩스 번호로 사업자 등록증을 넣으랍니다.

결국, 국가의 실명인증 정책 덕분에, 국가가 뭔가 하는 사업에는 다 실명인증을 하게 되어 있는 모양이더군요.

네임체크이라는 회사에 또 뭔가 해야 한답니다. 그래야 일이 진행이 된답니다.

이 회사에 전화를거니, 안내에 나와 있는 팩스번호 말고, 다른대로 보내랍니다.

왜 안내가 다르냐니까, 그건 옛날 번호랍니다. 그럼 이거 잘못 아니냐니까, 글루 보내도 받을수는 있다는군요. 무슨 소리인지..

사업자 카피본을 보내고 40분쯤 지나니, 게임물등급위원회 회원가입 다음단계로 겨우 넘어가더군요.

여기까지 걸린 시간이 인증서 회사 방문부터 장장 5시간 정도 걸렸습니다.

다음단계로 넘어갈때 정말 환호성을 질렀습니다. 이야! 이제 되는구나!

6시간째 지나고 나서야, 겨우 회원가입에 성공했습니다. 저녁 7시에 회원가입 처리 문자를 받았습니다. 정말 눈물 나더군요.

이제 게임 파일을 등록할 차례입니다.

그나마 많이 나아진 것이, 작년까지는 아이팟터치에 게임을 인스톨해서 기계를 제출해야 했다는군요.

이 오픈 마켓 게임의 심의 신청 단계에 넘어갔습니다.

첫 페이지에 작게 필요한 서류들에 대한 목록들이 뜨더군요.

사실 뭐 더 어떤 복잡한게 필요할거라고 생각지 않아 대충 읽고 넘긴게 화근이었습니다.

제 오산이었죠.

남자들은 혹, 군대가기전에 병무청에 해외여행 신청해 보신분은 기억에 있을지도 모르겠습니다. 지금은 그러지 않겠습니다만...

서류를 준비해서 가면, 이거 빠졌다 다시 준비해와라~ 하고 서류를 던집니다.

그래서 그걸 준비해가면, 다른거 빠졌네 그거 준비해서 다시와라..이럽니다.

제 생각에 게임물 등급위의 게임등급신청 시스템은 위의 저런 경험을 완벽하게 온라인으로 재현하고자 노력한 결과물이라고 생각합니다.

한단계 넘어가면..

인감 도장 스캔한거 없네~?

한단계 넘어가면, 사업자 사본 스캔한거 없네?

한단계 넘어가면 또 이거 준비해서 업로드 해야지?

맨 첫페이지의 작은 글씨의 준비 서류부분을 제대로 읽지 못하고 가면.

그 중간과정에는 어떤 과정에서 어떤 서류들이 필요한지 확인이 불가능합니다.

더군다나.. 중간에 게임설명서를 업로드하라고 되어 있는데....양식이 hwp 파일.

결국 거기서 좌절...

내일 다시 해야겠구나..라고 포기했습니다. 아래한글이 없었거든요.

사무실 사람중에 아래한글 가진 사람에게 부탁해서 내일 출근할때 가져다 달라고 하고 퇴근했습니다.

이때 시간 10시.

그 다음날 아침입니다.

아래한글을 설치하고, 게임 내용에 대한 설명을 넣고 사진을 넣었습니다.

이게 꼭 사진을 넣어야 한다는 것인지, 문제가 있다면 사진을 넣으라는 것인지 정말 불분명한 설명의 파일을 이리 저리 궁리하고 추리하면서 문서를 완성했습니다.

드디어 파일을 업로드 해서 마무리 지었습니다.

6만원을 입금하라는군요.

그런데 아뿔사.. 제가 입금계좌를 못봤습니다. 아니, 제 기억엔 입금계좌에 대한 안내가 없었습니다. 있었으면 메모했겠죠. 아니면 또 작은 글씨로 어디에 있었던지, 제가 정말 못본걸지...

게임위에 전화를 하니 계좌번호를 알려주더군요. 그리고 전화로 제 서류를 검토해 주시더니, 잘못되었다는 겁니다.

게임제작업체등록증이 없다는 겁니다. 그 대신 사업자등록증을 올렸다는 군요.

게임제작업체 등록증이 없으면 진행할수가 없답니다.

그래서 또 다시, 검색을 시작했습니다.

(이 과정에서 새롭게 알게 된 사실은, 심의가 나오고 나면 심의 확인증이라는게 나오는데. 이게 딱 1회만 프린트 가능하답니다. 네트웍 프린트도 안되고, 반드시 칼라여야 하기 때문에, 컴퓨터에 꼭 로컬로 연결해서 칼라로 프린트 하랍니다. 정말 대박입니다)

우리나라에서는 게임을 만들려고 하면 구청에 가서 게임을 제작하는 회사입니다~ 라고 등록을 해야 한다는군요.

이게 없으면 게임의 등급신청도 불가능합니다. ㅠ.ㅠ

몰랐습니다. 발급까지 3일 걸린답니다.

또 불이나케 서류를 준비했습니다.

솔직히 이제 뭐 거의 다 끝났다고 생각했습니다. 이거 하나만 받으면 게임심의 신청을 할수 있겠구나..

지금 이 순간까지 겪은 일의 느낌을 간단히 설명하자면

“야 너 우리가 이렇게 까지 하는데 꼭 이 조국 대한민국에서 그 하잖은 게임같은거 만들어야 하겠냐? 엔간하면 포기해라?” 라는 압박을 매 단계마다 받는 느낌이었습니다.

그런 느낌조차 뭐 웃으며 잊을수 있을 정도로 허허허 한 상태였는데...

근처의 마포구청으로 즐거운 기분으로 향했습니다.

그러나..

구청에서 한말은 가관이었습니다.

“게임업체 등록이 안됩니다”

이유가......

제가 빌린 오피스텔 건물의 주차장 지붕이 불법건축물이기 때문에, 그걸 철거하거나, 벌금을 물기 전까지 게임업체 등록을 시켜줄수 없다는 겁니다.

제 입대차 계약서를 검색하면 불법건물이라고 나오기 때문에 등록시켜줄수 없다는군요.

제가 10월 말에 입주했는데, 11월 중순에 불법건물 지정이 되었습니다.

구청 문화체육과에서 저보고 참 딱하다고, 상황은 이해가 되고 하는데 운이 없으시다며.

해결방법은 이사가랍니다.

그게 젤 쉬운 방법이랍니다.

이게 말이 되는 소립니까.

그래서 집주인과 통화를 했습니다.

집주인분들은 참 좋은 분들입니다. 관리인도 좋은 분이시구요.

완공허가 받은지 8년동안 아무 말 없다가, 이제 와서 주차장의 아크릴 지붕이 불법이니 당장 부수거나 벌금내라고 했답니다.

그래서 그럼 지금 겨울이니 공사하기 힘드니 2월달에 허물겠다..라고 구청과 구두 약속이 되어있다더군요.

그래서 다시 문화체육부서에 이야기했더니..이리 저리 알아보더니

안된답니다.

지금이라도 벌금을 내던가, 당장 허물던가 하지 않는 이상, 게임업체 등록을 해줄수 없다는군요.

저로서는 도대체 이해가 안되는 상황이었습니다.

솔직히 불법인지 어떤지의 여부는 제가 잘 모르겠습니다.

그리고 그런 법의 취지도 임차인을 보호하기 위해서라는 점도 십분 이해는 하겠습니다.

근데 내가 뭐 공장지은것도 아니고, 무슨 불법건물에 공장만들어 게임찍는것도 아니고..

문제는 제가 주차장의 지붕밑을 집주인이 사무실로 개조해서 세를 준것도 아니고

전 딱 201호에 들어와 사무실을 한 사람인데..

건물의 주차장의 지붕때문에 게임제작사 등록이 안된다는게 말이 안되지 않느냐?

설사 건물주가 불법을 저질렀다 해도 왜 내가, 임차인이 그 벌을 받아야 하는거냐?

자기네들도 어쩔수 없답니다.

법이 그렇답니다. 참 운이 없답니다.

이사가는게 젤 쉬운 방법이랍니다.

이사는 쉽냐고 이사람아...

구청에서 3시간쯤을 그렇게 지내고 나니.. 화도 안나고, 사실 그 공무원들이 무슨 죄겠습니까? 그사람들이야 시스템의 톱니바퀴일 뿐인데...

건물주가 내일 구청건축과에 찾아간답니다.

어떻게 될지는 내일 지나봐야 알겠습니다.

한마디로, 우리나라서는 번듯한 사무실, 그것도 건물주가 어떤 불법을 저질렀는지 여부까지 확인해서(미래에 저지를 여부까지 고려해서) 사무실을 얻지 않으면 게임을 만들수 없습니다. 만들수는 있어도 등급신청조차 할수 없기 때문에 (왜? 당신이 있는 사무실의 건물주가 주차장에 아크릴로 물세지 말라고 지붕을 설치해서..) 게임을 유통시킬수가 없습니다.

그렇다고 개인이 집에서 끄적끄적대며 게임을 만들어 봤자...그 뒤가 거의 불가능.

집은 사업장으로 등록이 안됩니다.

뭘 어쩌라고!!!

우리나라는 집에서 끄적이면서 창고창업같은거 안되는 나라입니다. 벤처? 훗.

정말.. 요 며칠동안 국내에서 게임을 만든다는게.이렇게 힘든거라는걸 첨 알게 되었습니다.

우리나라는

게임을 만들겠다는 사람들의 의욕을 짓밟기 위한 시스템을 만들기 위해 정말 머리를 맞잡고 고민한게 느껴집니다.

‘그냥 너네 구멍가게나 해. 무슨 창조적인 짓거리야. 가서 장사나해..

내가 이렇게 까지 귀찮게 하는데 꼭 게임을 만들어야 니 직성이 풀리겠냐?’ 라는 소리가 매 순간순간마다 마음속으로 들어옵니다.

제 주변 사람들에게 제가 입주한 건물의 주차장의 지붕때문에 게임제작업체 등록이 거부되었다고 말하니 다들 자지러지게 웃습디다. 정말이냐고. 완전 대박이라면서. 그게 진짜냐면서..

그래 레알 진짜다.

게임등급위의 홈페이지 메인에는 다음과 같이 써 있습니다.

“ 게임산업은 우리의 차세대 성장동력입니다”

엿이나 먹으라지.

위정자님들... 당신들은 국민들 위에 군림하는 사람들이 아닙니다.

국가의 시스템을 만들고 그 시스템으로 사회를 더 원활하게 돌아가게 만들고, 사람의 기운을 북돋아주게 만들어야 하는 사람들입니다. 좌절하게 하는 시스템을 만들라고 있는 사람들이 아닙니다.

이 글이 웃기시거든 널리 널리 퍼트려 주세요. ㅠ.ㅠ

무지개 말

죠스고기 — Wed, 19 Jan 2011 17:07:21 +0900

작품 설명

무지개 말이 푸른 하늘의 구름과 함께 걷고 있다. 무지개 말은 녹색 얼굴을 가지고 있으며 그림에서도 잘 표현되지만 분홍빛 립스틱을 바른 것으로 보아 분명히 여자 말이다. 말의 배 밑을 잘 보면 아무것도 없다. 분명히 암컷이 맞다.

몸통 쪽을 보면 부위별로 색상을 나누어 칠한 것을 볼 수 있다. 커서 정육점을 하려나...

드라이브 체크 코드 - A:\ or Floppy Drive Not found 오류 , SetErrorMode

죠스고기 — Fri, 07 Jan 2011 16:15:28 +0900

논리 드라이브의 크기를 구하기 위해 API를 사용하다 보면 간혹 실제로는 존재하지 않는 드라이브가 윈도우에 잡혀 있는 경우가 있다. 이때 디스크 사이즈를 구하기 위해 API를 호출 하면 "XX 드라이브를 찾을 수 없습니다." 라는 식의 오류 메시지를 접하게 된다.

이럴 때는 SetErrorMode API를 사용하여 드라이브를 읽거나 쓰기용으로 사용할 수 없는 경우 Windows 오류를 발생시키지 않도록 할 수 있다. SetErrorMode 함수에 대해 자세히 알고 싶다면 윗 줄에 함수 링크를 눌러주시길...

아래의 샘플을 보면 무슨 소리인지 인해가 갈 것이다.

procedure DriveCheck....;
 var
    EMode: Word;
 begin
   EMode := SetErrorMode(SEM_FAILCRITICALERRORS) ;
   try
     if DiskSize(Ord('A')-$40) <> -1 then
       ShowMessage('Disk in drive A: !')
     else
       ShowMessage('No disk in drive A: !') ;
   finally
     SetErrorMode(EMode) ;
   end;
 end;

코드를 보면 노란색으로 표시된 부분이 해당 코드이다.

아래 샘플은 쓰기 방지가 되어 있는 드라이브에 쓰기를 시도하는 샘플이다.

MSDN에 있는 샘플이다.

*-- Code begins here.
   CLEAR

   *-- Check if floppy drive a: is available for writing
   *-- and print the results.  Try this twice, once with
   *-- a write-protected floppy and again with a floppy
   *-- that is not write-protected.
   // CheckMediaWrite("a:")
   *-----------------------------------------------------------------
   *- Function:    CheckMediaWrite
   *- Summary:     Checks if the passed drive is available for writing.
   *- Parameters:  lsDrive - The drive to check.
   *- Returns:     -1 If drive cannot be written to.
   *- Example:     liReturn = CheckWrite("a:")
   *-----------------------------------------------------------------

   FUNCTION CheckMediaWrite()

   PARAMETERS lsDrive

   *-- Defines from Winbase.h

   #DEFINE SEM_FAILCRITICALERRORS      0x0001
   #DEFINE SEM_NOGPFAULTERRORBOX       0x0002
   #DEFINE SEM_NOALIGNMENTFAULTEXCEPT  0x0004
   #DEFINE SEM_NOOPENFILEERRORBOX      0x8000

   *-- Check that the parameter is in the correct format.

   IF SUBSTR(lsDrive, 2, 1) <> ":" OR ;
     (ASC(UPPER(SUBSTR(lsDrive, 1, 1))) < 65 OR ;
     ASC(UPPER(SUBSTR(lsDrive, 1, 1))) > 90)
       =MESSAGEBOX("Drive must be in the format :", ;
         0, "Error")
       RETURN -1
   ENDIF

   *-- SetErrorMode determines whether the system handles
   *-- serious errors or whether the program handles them.

   DECLARE INTEGER SetErrorMode IN win32api INTEGER

   *-- SetErrorMode returns to what the flags were last set.
   *-- You need to store this in lnResult so that you can set them
   *-- back the way they were before calling SetErrorMode.
   *-- Failure to do so can produce unpredictable results
   *-- when encountering future errors.  SetErrorMode only
   *-- applies to the current process and therefore only affects
   *-- the FoxPro program that called SetErrorMode.

   lnResult = SetErrorMode(SEM_FAILCRITICALERRORS)
   hFile = FCREATE(lsDrive + "\tmp.txt")
   IF hFile <> -1
       FCLOSE(hFile)
       ERASE(lsDrive + "\tmp.txt")
   ENDIF

   *-- Put things back the way you found them.
   lnResult = SetErrorMode(lnResult)
   RETURN hFile
   *-- Code ends here.

예전에 써먹던 코드인데 잊어버려서 재 정리 한다. 이 넘의 머리는 어떻게 된건지 넣는 순간 사라진다. 완전 휘발성 !!!

SetErrorMode - 윈도우 오류 핸들링

죠스고기 — Fri, 07 Jan 2011 16:10:41 +0900

SetErrorMode

SetErrorMode 함수는 어떤 시스템이 지정된 심각한 종류의 에러를 다룰 것인지나 어떤 프로세스가 그것들을 다룰 것인지를 제어한다.

UINT SetErrorMode

UINT uMode

);

매개 변수

uMode

[in] 프로세스 에러 모드. 이 매개변수는 다음 값 중 하나 이상이 될 수 있다.

시스템 기본값 사용한다. 모든 에러 다이얼로그 박스를 보여 준다.

SEM_FAILCRITICALERRORS

시스템은 심각한 에러 핸들러 메시지 박스를 보여 주지 않는다.

대신, 시스템은 호출 프로세스로 에러를 보낸다.

SEM_NOALIGNMENTFAULTEXCEPT

64비트 윈도우 : 시스템은 자동적으로 메모리 정렬 오류를 수정하며

그것들은 응용프로그램에 대해 비가시화한다. 그것은 프로세스 및

모든 하위의(descendant) 프로세스들을 호출함으로써 이를 수행한다.

이 값이 프로세스에 대해 설정된 후에, 그 값을 초기화하려는 일련의 시도는 무시된다.

SEM_NOGPFAULTERRORBOX

시스템은 일반적인 오류 보호 메시지 박스를 보여 주지 않는다. 이 플래그는

예외 핸들러를 사용해 스스로 일반적인 보호(GP, general protection)을 다루는

디버깅 응용프로그램에 의해서만 설정될 수 있다.

SEM_NOOPENFILEERRORBOX

시스템은 파일을 검색하는데 실패했을 때 메시지 박스를 보여 주지 않는다.

대신 에러는 호출 프로세스로 반환된다.

반환값

반환값은 이전의 에러 모드 비트 플래그 상태이다.

주의

각 프로세스는 응용프로그램이 어떻게 심각한 에러에 응답할 것인지를 시스템에 지시하는

자신의 에러 모드를 가진다. 자식 프로세스는 부모 프로세스의 에러 모드를 상혹한다.

Itanium : 응용프로그램은 반드시 명시적으로 SEM_NOALIGNMENTFAULTEXCEPT 를

호출하여 시스템이 자동적으로 정렬 오류를 수정하도록 해야 한다.

그 시스템에 대한 기본 설정은 응용프로그램에 정렬 오류를 가시화하는 것이다.

x86 : 시스템은 응용프로그램에 대해서 정렬 오류를 가시화하지 않는다. 결국

SEM_NOALIGNMENTFAULTEXCEPT 를 지정하는 것은 에러가 아니지만,

시스템은 그 요청을 암묵적으로 무시하게 된다. 이것은 아래와 같은 코드가 항상

x86 컴퓨터에서는 유효하지 않다는 것을 의미한다 :

SetErrorMode(SEM_NOALIGNMENTFAULTEXCEPT);

fuOldErrorMode = SetErrorMode(0);

ASSERT(fuOldErrorMode == SEM_NOALIGNMENTFAULTEXCEPT);

RISC : 잘못 정렬된 메모리 참조는 정렬 오류 예외를 발생시킨다. 어떠한 시스템이

그러한 정렬 오류를 수정할 것인지를 제어하거나 응용프로그램에 그것들을 가시화할 것인지를

제어하기 위해서는 SEM_NOALIGNMENTFAULTEXCEPT 를 사용하라.

MIPS : 응용프로그램은 반드시 명시적으로 SEM_NOALIGNMENTFAULTEXCEPT 와 함께

SetErrorMode 를 호출하여, 시스템이 자동적으로 정렬 에러를 수정하도록 해야 한다.

그 시스템에 대한 기본 설정은 응용프로그램에 정렬 오류를 가시화하는 것이다.

Alpha : 정렬 오류 행위를 제어하기 위해서는, 아래와 같이

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Session Manager

레지스트리 키의 EnableAlignmentFaultExceptions 값을 설정한다.

자동으로 정렬 오류를 수정한다. 이것은 기본값이다.

응용프로그램에 정렬 오류를 가시화한다. SEM_NOALIGNMENTFAULTTEXCEPT 와 함께

SetErrorMode 를 호출해서 시스템이 자동으로 정렬 오류를 수정하도록 해야 한다.

요구 사항

Client: Included in Windows XP, Windows 2000 Professional, Windows NT Workstation,

Windows Me, Windows 98, and Windows 95.

Server: Included in Windows Server 2003, Windows 2000 Server, and Windows NT Server.

Header: Declared in Winbase.h; include Windows.h.

Library: Use Kernel32.lib.

CodeBlocks + Wxwidget를 이용한 크로스플랫폼 GUI 개발

죠스고기 — Tue, 04 Jan 2011 14:28:31 +0900

출처 : http://shad0w.egloos.com/tb/718271

Wxwidget 은 Qt 나 Java 처럼 크로스플랫폼 환경 하에서 동작하는 GUI 개발 툴킷입니다.
이번에 프로젝트에서 Qt를 쓸 것인가 Wxwidget을 쓸 것인가 판단을 해야했었습니다.
결국엔 상용프로그램인 Qt를 사용하였지만 Wxwidget이 결코 뒤지지 않는 기능이
있는 걸 조사결과 나타났습니다.

- 기본사항 -

작성된 언어 : C++

지원 언어 : C/C++, Python, Perl, C#/.NET , Java, Lua, Eiffel, Basic, Ruby

최신버전 : 2.8.7 ( 2007년 11월 27일 )

최초 릴리즈 : 1992년

라이센스 : wxWindows 라이브러리 라이센스

개발자 : wxWidgets Team

공식사이트 : http://www.wxwidgets.org

서적은 "Cross-Platform GUI Programming with wxWidgets",
Smart, Julian/Hock, Kevin/ Csomor, Stefan 저자,

Prentice Hall Ptr, 2005, 정상가 56,990원이며, 주문 후 4~6주 정도 걸림

- 라이선스 -
wxWidget은 GNU LGPL(Lesser General Public License) 를 일반적으로 따른다.

wxWidget 라이브러리를 사용하여 개발한 프로그램 역시 LGPL 라이센스를 따른다.

GPL, LGPL 소프트웨어를 상업적 목적으로 이용하는 것과 GNU 라이센스와는 별개의
문제이다. 앞 말이 의미하는 바는 wxWidget을 사용하여 소프트웨어를 사용했더라도,
wxWidget 라이브러리 자체를 손봤다거나 버그를 잡았다면 그 결과물을 공개해줘야 하지만,
그게 아니라면 모든 저작물에 대해선 배타적, 독점적 라이센스를 사용해도 문제가 없는 정책을
  가지고 있다. 추가적으로, 저작권과 라이센스도 별도의 문제이며, 어떠한 라이센스도 개인의
  저작권을 뺐어가는 라이센스는 없다.
  관련주소 : http://korea.gnu.org/people/chsong/copyleft/lgpl.ko.html

- 단가 -
상업적, 비상업적 목적에 상관없이 오픈소스(Open Source)이므로, wxWidget 공식 사이트에서
최신버전을 다운받아 사용할 수 있다.

다운로드 사이트 : http://www.wxwidgets.org/downloads/

- 사용방법(MinGW+wxWidget+Code::Blocks)

MinGW 설치
1. http://prdownloads.sf.net/mingw/MinGW-5.1.3.exe?download 다운로드
2. 설치 옵션에서 Custom 선택하고, MinGW base tools, g++ compiler, MinGW Make 요소를 선택한다.
3. 설치 디렉터리를 \MinGW를 선택하고 나머지는 설치 과정 기본 값에 따른다.
4. 설치 후, http://downloads.sourceforge.net/mingw/gdb-6.7.50.20071127-mingw.tar.bz2?modtime=1196199985&big_mirror=1
5. 에서 GDB-6.7.50 을 다운로드 받아서 설치한다. (http://prdownloads.sf.net/mingw/gdb-6.3-2.exe?download)
6. 설치 경로를 \MinGW로 설정하고 기본 값에 따른다.
7. 제어판->시스텝->고급->환경 변수-> 시스템변수에서 PATH를 추가한다. (\MinGW\bin)
8. 실제로 사용자 변수 PATH 변수에 경로를 추가시켜줘야 cmd 에서 제대로 동작한다.

wxWidget 설치

http://prdownloads.sourceforge.net/wxwindows/wxMSW-2.6.3-Setup-1.exe 다운로드
설치화면 중 디렉터리 설정만 \wxWidgets-2.6.3 설정해주고 나머지 디폴트 설정
등록된 WXWIN 사용자 환경 변수를 시스템 변수로 이동
MinGW 에서 설치한 컴파일러를 이용하여 라이브러리들을 컴파일 해야 됨.

(이 패키지는 소스형태로 배포되며, 바이너리 라이브러리를 제공하지 않기 때문)

방법. CMD 창을 연뒤, mingw32-make -v 에서 3.81 이상인지 확인한다.

wxWidget 빌드
1. wxWidgets를 컴파일하기 위하여 wxWidgets-2.8.7 디렉터리로 이동
2. c:\wxWidgets-2.8.7\build\msw
3. 소스에 대한 크린업을 수행(아래 명령어 입력하여 실행 - 유니코드에 릴리즈 빌드)
  
  mingw32-make -f makefile.gcc MONOLITHIC=1 SHARED=1 UNICODE=1 BUILD=release clean
4. 컴파일을 아래와 같이 실행한다.(아래 명령어를 입력하여 실행 - 이 옵션은 Code::Blocks에서 공식적으로 지원되는
  옵션이며, 다른 옵션을 원한다면 Code::Blocks를 재구성하여야 하고, 또 다른 절차가 필요하다)
  
  mingw32-make -f makefile.gcc MONOLITHIC=1 SHARED=1 UNICODE=1 BUILD=release
Code::Blocks 설치
1. http://codeblocks.org 사이트에서 "Code::Blocks IDE, without compiler" 윈도우용 바이너리를 받는다.
2. 필자가 다운로드 한 파일 명은 codeblocks-1.0rc2.exe 이다. 이 배포판은 문제상 실제 사용하지 않고,
3. 기본 설정 상태를 유지하기 위해 설치함
4. 설치 시, 옵션에서 모든 항목을 선택하되, SVN/CVS support for projects는 제외한다.
  이는 해당 기능에 버그가 존재하기 때문이다. (마지막 옵션에 wxwidget 가 포함된 옵션도 선택하였음)
5. 최신 Nightly Build 패키지를 다운받음.(현재, CB20080213_rev4875_win32.7z 가 최신버전)
  http://forums.codeblocks.org/index.php?board=20.0
6. 또한 Code::Blocks를 위한 wxWidget dll 도 다운 받음
  http://prdownload.berlios.de/codeblocks/wxmsw28u_gcc_cb_wx287.7z
7. 7z 압축을 해제하기 위해 7-zip 유틸리티를 다운받음
  http://www.7-zip.org
8. 다운받은 CB...win32.7z 를 압축해제하여 CodeBlocks 디렉터리에 전부 덮어쓰기 한다.
9. 다운받은 wx...wx287.7z 를 압축해제하면 wxmsw28u_gcc_cb.dll 파일을 CodeBlocks 디렉터리에 복사한다.
  이때 기존 wxmswXX_gcc_cb.dll 버전은 삭제한다.
Code::Blocks 설정
1. CodeBlocks IDE를 실행함.
2. File->New Project를 실행함.
  - wxWidgets project를 선택하고 go 버튼을 누른다.
  - 위저드 화면에서 프로젝트 이름이나 작성자 등을 작성 후 wxWidget's location 에서 wxWidget 설치 경로를 선택한다.
3. 메뉴에서 Build 를 해본 후 오류없이 진행된다면 wxTest.exe가 생성된다.
4. 이 실행 파일을 실행하기 위해선 wxmsw28u_gcc_cb.dll 파일이 필요하기에 windows\system32 폴더에 넣어둔다.
5. 만약 프로그램이 콘솔창과 함께 뜰 경우, project/targets options에서 target option을 GUI application으로 변경 후
  "Pause when execution ends"를 해제한 후, 리빌드 한다.
6. 본 글은 UNICODE를 사용하는 것을 전제로 하였기에 에디터 설정 역시 유니코드를 지원하도록 설정하여야 함

- wxWidget을 사용한 프로그램 -
wxWidget을 사용해서 개발된 프로그램은 매우 많다.
그 중에 C++ Builder X 등의 상용 개발 도구에 포함되었다.

http://www.wxcommunity.com 사이트에서는 해당 어플리케이션을 소개하고 있다.

인생의 로맨스에 관한 공식

죠스고기 — Wed, 17 Nov 2010 09:32:48 +0900

인생의 로맨스에 관한 공식

이하 Smart : 똑똑한, dumb : 멍청한

공식 1) Smart Man + Smart Woman = 로맨스

공식 2) Smart Man + Dumb Woman = 불륜

공식 2) Dumb Man + Smart Woman = 결혼

공식 4) Dumb Man + Dumb Woman = 임신

잠시 생각하는 시간을 ......

이상한 호박들

죠스고기 — Wed, 17 Nov 2010 09:31:39 +0900

iPhone 에서 작성된 글입니다.

MAX_LENGTH 보다 긴 파일 읽거나 쓸때 팁 한가지

죠스고기 — Wed, 29 Sep 2010 02:57:03 +0900

파일을 읽거나 쓸때 CreateFile 이 호출 된다. Delphi의 경우 FileStream이나 스트링을 다루는 클래스에서 LoadFromFile 이라는 프로퍼티를 호출하게 되는데 결국은 CreateFile API를 호출하게 된다.

이때 파일명 앞에 "\\?\"를 달아 주면 32,000개 정도의 유니코드 문자를 경로로 사용할 수 있게 해준다.

예를 들어

C:\dsafdfasdfasdf\asdfsdfasdfas\......\a.dat 라는 경로가 10,000 개 이상의 캐릭터로 이루어진 파일 이라면 보통은 오류를 발생하게 되는데 이때 \\?\C:\dsafdfasdfasdf\asdfsdfasdfas\......\a.dat 식으로 경로를 입력해주면 함수에 경로 분해를 하지 말라고 통보를 하게 된다. 당연히 경로 체크를 하지 않게 되니 먹히는 것이다.

그 외에 CreateFileW 같은 API를 호출해도 된다.

MSDN에 보면 잘 나와 있으나 가끔 알 수 없는 문제로 인해 이런 일이 발생할 수 있으니 참고가 되었으면 한다.

남자의 자격 - 제7회 거제전국합창경연대회 풀샷 (10.09.03 FanCam)

죠스고기 — Thu, 09 Sep 2010 13:28:56 +0900

재밌네요. 소프라노 하시는 분들도 멋지게 잘 하셨구요. 장려상 받았답니다.

내 아이가 그린 나, 혹시 천재 화가 ???

죠스고기 — Mon, 30 Aug 2010 21:14:05 +0900

나의 사랑스러운 따님은 올해로 5살이시다. 12월에 태어나 한 달도 되지 않아 2살이 되어 버렸다. 아이들은 개월수로 치니까 정확히 하자면 내 아이는 12월이 4번째 생일이므로 아직 4살도 되지 않았다.

이 그림이 내 아이가 그린 나다. 48개월도 채 안된 아이가 그린 그림 치고는 있을건 다 있다. 단지 귀가 없다. 원래 아이들이 귀를 그리지 않는 건지는 모르겠지만 나는 귀가 없는 이유가 나의 헤어 스타일 때문 인 것 같다.

나는 옆머리가 귀를 덮고 있기 때문에 귀가 거의 보이지 않는다. 저 그림이 정말 마음에 드는 건 내가 웃고 있다. ㅋㅋㅋ

아이가 나를 보는 모습이 저렇다는 것이 기분이 매우 좋다. 좀 웃기는 것은 저기 저 콧구멍... 아주 크게 그려 놨는데 사실 내 콧구멍 그리 크지 않다. 혹시 오해 할까봐 적어 본다.

저 그림 외에도 물고기를 그려 달라는 말에 물고기를 그려 준적이 있는데 거기다가 나의 아이가 색칠을 한 적이 있다. 너무도 깔끔하게 색칠을 했길래 혹시 미래의 미술계의 거장이 되지 않을까 생각 해본적도 있는데 모든 부모가 공통적으로 하는 생각이 내 아이는 천재인가봐~ 라는 것이란다. 그래서 나도 이미 꿈 깼다... ㅋㅋㅋ

저 색동 저고리 색상의 물고기다. 너무 신기해서 기념으로 날짜와 시간, 이름을 기록했는데 이름은 아이의 프라이버시를 지켜주기 위해 삭제 했다. 저때가 4월이니까 약 40개월 정도 일때 색칠한 그림이다.

그 뒤로 서점에서 색칠공부 같은 종류의 책을 여러 권 사줬는데 최근에는 흥미가 떨어졌는지 색칠이 엉망이고 색을 섞어 쓰기는 하는데 요즘은 얼굴을 녹색으로 칠한다. 내가 얼마전 슈렉을 보여 준적이 있는데 그 때문인지도 모르겠다.

최근에 늘 늦게 퇴근을 하는 바람에 아이랑 자주 놀아주지 못해 많이 미안하기는 하지만 먹고 사는게 뭔지... 주말에 놀아줘야지 하면서도 잠을 참을 수가 없다. 한 두시간은 어떻게 버티겠는데 조금 지나면 멍해지면서 졸려오니... 난 0점짜리 아빠인가보다.