请把这段c代码翻译成delphi

请将这段Delphi 翻译成java~

public class Test { public static void main(String[] args) throws Exception { System.out.println( new String(xorDecode( "TEV3", "edbbefcde6aaf3b9f5a6edd08bce59523c243e523735222f2d"), "GBK")); } static public byte[] xorDecode(final String key, final String source) { int slen=source.length()/2; byte[] out=new byte[slen]; for(int i=0; i0? (byte) (key.charAt(i%key.length()) ^ b) : b; } return out; }}哈哈诧°汇邒ahahacpty我之前的代码不改都可以得到疑似部分正确的结果。
如果你给出正确的样本解码内容(原来的内容是什么)，我就可以进一步检查细节调整...

我X，竟然审核未通过
function BrowseCallBackProc(hwnd: HWND; uMsg: UINT; lParam: LPARAM;lpData: LPARAM): Integer;
var
strDir,str1: string;
cDriver: array[0..MIN_BUFFER_SIZE-1] of Char;
dw: DWORD;
I,nDriveType: Integer;
begin
if (uMsg = BFFM_SELCHANGED) or (uMsg = BFFM_INITIALIZED) then
begin
SetLength(strDir,MIN_BUFFER_SIZE);
if not SHGetPathFromIDList(PItemIDList(lParam),@strDir[1]) then
begin
SendMessage(hwnd,BFFM_ENABLEOK,0,0);
end
else
begin
dw := GetLogicalDriveStrings(MIN_BUFFER_SIZE, cDriver);
I := 0;
while I < dw do
begin
str1 := cDriver[i] +':\';
if str1 = strDir then
begin
nDriveType := GetDriveType(PChar(str1));
if(nDriveType = DRIVE_CDROM) or (nDriveType = DRIVE_REMOVABLE) then
SendMessage(hwnd, BFFM_ENABLEOK , 0, 0);
end;
Inc(I,4);
end;
end;
end;
Result := 0;
end;

单元use shlobj

只能翻译成这样了：
type
TCallFunc = procedure ();

function FV(): Integer;
var
matrix: array[0..5] of byte;
hProcess: THandle;
lpAddress: Pointer;
lpflOldProtect: PDWORD;
success: boolean;
redpill: array[0..7] of byte;
begin
//return value: 0:none,1:vmvare;2:vpc;3:others
result := 0;

redpill[0] := $0f;
redpill[1] := $01;
redpill[2] := $0d;
redpill[3] := $00;
redpill[4] := $00;
redpill[5] := $00;
redpill[6] := $00;
redpill[7] := $c3;

hProcess := GetCurrentProcess();

lpAddress := nil;
lpflOldProtect := nil;

try
// 这句不会翻译了，哈哈
//*((unsigned*)&redpill[3]) = (unsigned)matrix;
//redpill[3] := matrix;

lpAddress := VirtualAllocEx(hProcess, nil, 6, MEM_RESERVE or MEM_COMMIT , PAGE_EXECUTE_READWRITE);

if lpAddress = nil then exit;

success := VirtualProtectEx(hProcess, lpAddress, 6, PAGE_EXECUTE_READWRITE , lpflOldProtect);

if not success then exit;

CopyMemory(lpAddress, @redpill, 8);

TCallFunc(lpAddress)();

if matrix[5] > $d0 then begin
if matrix[5] = $ff then begin//vmvare
result := 1;
exit;
end else if matrix[5] = $e8 then begin//vitualpc
result := 2;
exit;
end else begin
result := 3;
exit;
end;

end else
exit;

finally

VirtualFreeEx(hProcess, lpAddress, 0, MEM_RELEASE);
end;
end;

---

叠彩区13262264002： 请把这段c代码翻译成delphi - ？
上叶泽奇： 只能翻译成这样了:type TCallFunc = procedure (); function FV(): Integer;var matrix: array[0..5] of byte; hProcess: THandle; lpAddress: Pointer; lpflOldPro...

叠彩区13262264002： 求一个C代码定义转换成delphi定义~~ - ？
上叶泽奇： function ZBRGetHandle(hPrinter^: HANDLE;printerName: PChar;printerType^: Integer;err^: Integer):integer;cdecl; (or stdcall);

叠彩区13262264002： 请教如何将以下c语句转成delphi语句:？
上叶泽奇： 基本代码类似如下,没有调试,你看一下吧.type PHOR2_INFO=^HOR2_INFO; HOR2_INFO = record XSequares:integer; Corner1:Shortint; Corner2:Shortint; end; pSChar=^schar; schar=char; var EvalPtr:pSChar; ValList:Array[0..60,0..9] of ...

叠彩区13262264002： 哪位牛人帮下我 帮我把这段C语言代码转成Delphi 这段代码让我真的很头痛？
上叶泽奇： 你那种是动态调用,下面这样申明是静态调用的,也可以用,当然楼主可以改成动态的function ZwQueryInformationProcess(ProcessHandle: THANDLE; ProcessInformationClass: DWORD; ProcessInformation: pointer; ProcessInformationLength: ULONG; ReturnLength: PULONG ): cardinal; stdcall;external 'ntdll.dll';[]

叠彩区13262264002： 一个比较难的问题,谁能将这段VC的代码转成Delphi的...高手请进？
上叶泽奇： #include ＂stdafx.h＂#include ＂stdio.h＂#include ＂activeds.h＂int main(int argc, char* argv[]){ HRESULT hr; IADsContainer *pCont; CoInitialize(NULL);hr = ADsGetObject(L＂IIS://blackfox/w3svc/1/root＂, IID_IADsContainer, (void**) &pCont ); if ( ...

叠彩区13262264002： delphi 这段C语言代码怎样改写成Delphi代码啊？
上叶泽奇： function Rev(const s : string) : string;var i : integer;begin SetLength(Result,Length(s)); for i 1 to Length(s) do Result[(Length(s)-i)+1] s ;end;

叠彩区13262264002： 请问一下C编的程序如何转换成Delphi？
上叶泽奇： 随便改了一下,没有细心检查,看看可弗成以.uses Dialogs, SysUtils;var fi, fo, len, i: Integer; ifile, ofile, pwd: String; buf: Array[0..0] of Char; repeatprogram Project1; ifile := InputBox('', 'Enter the file:', ''); fi := FileOpen(ifile, fmShareDenyNone); if fi ...

叠彩区13262264002： 将C#的这段代码翻译成Delphi代码,看了老半天也没动什么意思. - ？
上叶泽奇： var tmp_pw_md5 :string; i:integer; s1,s:array of Byte; begin s1 :={ md5.ComputeHash(Encoding.UTF8.GetBytes(tmp1)); //delphi的MD5相关函数,可选第三方或网上找相关的单元 } for i:=0 to s1.length do tmp_pw_md5 := tmp_pw_md5 + {Fmtz(s1[i]....

叠彩区13262264002： c++ 写的程序代码能转成Delphi的代码? - ？
上叶泽奇： 可以转 像楼上的那位回答的一样 用 C,C++ To Delphi转换器(源码) 如果用这个工具转,会出很多问题,一些底层的函数是无法转换的(这个工具只能转化字面上的东西) 所以一般DELPHI程序员 都是人工转化C++代码为DELPHI代码

叠彩区13262264002： 请问C#的函数怎么转成DELPHI语句 - ？
上叶泽奇： 静态调用dll 格式是这样:Function ISO14443A_Request(requestMode: byte; cardtype: Array Of byte; Var errorCode: byte): integer; Stdcall; External 'ICCO.dll';