function gen(hwid:string):String;
var res:integer;
len:byte;
key:string;
begin
res:=0;
key:=hwid;
len:=length(key);
asm
pushad
        mov DL, len
        mov eax, key
        MOV DI,$FFFF

@startats_00463C0B:

        XOR ESI,ESI

@startats_00463C0D:

        MOV ECX,ESI
        XOR EBX,EBX
        MOV BL,BYTE PTR DS:[EAX]
        SHR EBX,CL
        AND BL,1
        MOV ECX,EDI
        AND CL,1
        XOR BL,CL
        JE @startats_00463C2F
        MOVZX ECX,DI
        SHR ECX,1
        XOR CX,$8408
        MOV EDI,ECX
        JMP @startats_00463C36

@startats_00463C2F:

        MOVZX ECX,DI
        SHR ECX,1
        MOV EDI,ECX

@startats_00463C36:

        INC ESI
        CMP ESI,8
        JNZ @startats_00463C0D
        INC EAX
        DEC DL
        TEST DL,DL
        JG @startats_00463C0B

@startats_00463C42:

        NOT DI
        MOV EAX,EDI
        MOV res,EAX
popad
end;
Randomize;
Result:=Format('%0.4x',[res])+'-'+Format('%0.4x',[Random(9999)]);
end;