As0ftis_!P_Ch@nger_Kg_Src_In Delphi

[TeRcO]

السلام عليكم

موقع البرامج:

https://www.asoftis.com/ip-changer

سورس الكيجن:
 

{Create: Button1 ,Edit1.text ,Edit2.text}
procedure TForm1.Button1Click(Sender: TObject);
var
Name:string;
len,Part1,Part2:integer;
begin
len:=length(edit1.text);
  if Len > 0 then
  begin
  Name:=edit1.Text;
        ASM
        Pushad
        mov eax,Len
        inc eax
        mov dword ptr ss:[ebp-018h],eax
        xor eax,eax
        xor esi,esi

@TeRcO_AT4RE_0:
         xor ebx,ebx

@TeRcO_AT4RE_1:
        mov edx,Name
        movzx dx,byte ptr ds:[edx+eax]
        cmp dx,bx
        jnz @TeRcO_AT4RE_2
        mov edx,ebx
        add edx,edx
        add esi,edx

@TeRcO_AT4RE_2:
        inc ebx
        cmp ebx,$0100
        jnz @TeRcO_AT4RE_1
        mov edx,Name
        test edx,edx
        je @TeRcO_AT4RE_3
        sub edx,4
        mov edx,dword ptr ds:[edx]

@TeRcO_AT4RE_3:
        imul edx,edx,$011e
        add esi,edx
        inc eax
        dec dword ptr ss:[ebp-$018]
        jnz @TeRcO_AT4RE_0
        mov eax,esi
        shl eax,4
        add eax,esi
        mov Part1,eax
        mov eax,esi
        add eax,eax
        add eax,eax
        lea eax,dword ptr ds:[eax+eax*2]
        sub eax,$0319
        add eax,1
        mov Part2,eax
        Popad
  end;

  Edit2.Text:=Format('%u',[Part1])+'-'+Format('%u',[Part2]);
 
   end
Else
   edit2.Text:= ' Please type your Name ...';
end;

[TeRcO]

للافادة
 تمت اضافة سورس كود باكواد دلفي فقط