<!--CodeS-->
function DecodeUnknown(str: string): string;
var
i: Integer;
c: Integer;
begin
Result := '';
str := UpperCase(str);
for i := 1 to Length(str) do
begin
if str[i] in ['A'..'Z'] then
begin
c := Ord(str[i]);
if c >= 78 then
c := c - 13
else
c := c + 13;
Result := Result + String(Chr(c));
end
else begin
Result := Result + String(str[i]);
end;
end;
end;
<!--CodeE-->
예전에 저도 이게 궁금해서 만들어봤던 함수입니다.
대소문자 처리의 귀차니즘 때문에 결과는 대문자로 나옵니다 ^^;;
그리고 보너스!!
{5E6AB780-7743-11CF-A12B-00AA004AE837}\Count
여기는 즐겨찾기가 저장되어 있더군요..
레지스트리 키 앞부분이 생략되서 이게 뭔가 했습니다.. ㅎㅎ
파일이라고 해서 더 헷갈렸구요..
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count
이 키에는 MRU(실행 기록)이 저장되어 있으므로 지워도 상관은 없습니다.
이상한 방식으로 암호화되어 있는데 내용이 궁금하시다면 아래 함수로 해독 가능합니다.
<!--CodeS-->
function DecodeUnknown(str: string): string;
var
i: Integer;
c: Integer;
begin
Result := '';
str := UpperCase(str);
for i := 1 to Length(str) do
begin
if str[i] in ['A'..'Z'] then
begin
c := Ord(str[i]);
if c >= 78 then
c := c - 13
else
c := c + 13;
Result := Result + String(Chr(c));
end
else begin
Result := Result + String(str[i]);
end;
end;
end;
<!--CodeE-->
예전에 저도 이게 궁금해서 만들어봤던 함수입니다.
대소문자 처리의 귀차니즘 때문에 결과는 대문자로 나옵니다 ^^;;
그리고 보너스!!
{5E6AB780-7743-11CF-A12B-00AA004AE837}\Count
여기는 즐겨찾기가 저장되어 있더군요..