FREE Infinity-BEST sources in Delphi7

[tolski]

theres something missing???exe.

[Gehstock]

Untested - I Have no Devices. have Added a new Button for Connect/Disconnect - Program Try to Connect at Startup and gives a Exception if Fail

https://rapidshare.com/files/3048959988/Best.rar

[Gehstock]

Edit:Fixed Version
https://rapidshare.com/files/2243418740/Best.rar

[soft@man]

[QUOTE=GSMHASSAN;8404800]Sir tassala3 baraka men nasssibe awjah lafte[/Q



IWA NITTEEE HADA MALO MRIDEEEE BRAAAA YYYYYY HHHHHHHH

[MANOLE]

Originally Posted by Dzirt

So, great. Time to make all nokia free, include xglod and lumia, when be at home, will make it. So, boxes/dongles will be not usefull anymore from this moment.

Tell this to Infinity BEST dongle resellers who got stock.
So, Is good for resellers to know what programmer of BEST thinking.

As a reseller, I do not know if I will sell your dongle any more since you act like
a children.

Kashan worked for some years to build a reputation, now you come and destroy it.

BR,
Manole

[mustipusti]

Originally Posted by Gehstock

Edit:Fixed Version
https://rapidshare.com/files/2243418740/Best.rar

Never expected that "You" would compile it and release it. Lol

[karwos]

Perfect demonstration of smartcard security powerfull NO comments...

Result:=false;
dead:='AB0FBD96AF2AC271D26264AFDEAD0400';
FillChar(tarr,50,0);
tarr[0]:=1;
StrToBufHex(rap_s,@tarr[1]);
StrToBufHex(uni_key,@tarr[9]);
StrToBufHex(dead,@tarr[29]);
s:=Copy(s308,Pos(dead,s308)+32,$810);
SetLength(akey,16);
SHAx(@tarr[0],45,@akey[1]);
i:=StrToBufHex(s,@Buf);
sSource:=TMemoryStream.Create;
sDest:=TMemoryStream.Create;
sSource.Write(Buf,i);
sSource.Seek(0,soFromBeginning);
Form1.AESDecrypt(sSource,sDest,@akey[1],nil);
sSource.Free;
sDest.Seek(0,soFromBeginning);
sDest.Read(Buf,sDest.Size);
sDest.Free;
if ((Chr(Buf[1])='L') and (Chr(Buf[2])='P') and (Chr(Buf[3])='A')) then keyd:=@Buf[64] else
if ((Chr(Buf[1])='L') and (Chr(Buf[2])='2') and (Chr(Buf[3])='0')) then keyd:=@Buf[28] else exit;

I guess whole Inifnity security is like this.

CheckDongleIfPresent and only this.
Next time if your card don't support AES - just put key generation method inside with call GetAESKey(&UniData,KeyToGet) so you don't expose key generation base and only fetch valid aes key for this phone from card... still more secure than useless dongle checks.

3 ppls in one project and noone from security? Even those "social" neither software one so things like security codes leaks happens here?

[zulea]

This ones are BEST:

function CardDestroy : boolean;
begin
    e.card_apdu($88, $10, $03, $00, $01, #$FF);
    Result:=true;
end;

function CardBlock: boolean;
begin
    e.card_apdu($88, $27, $03, $00, $01, #$FF);
    Result:=true;
end;

Now, some BEST predictions for future releases of MALICIOUS custom virus who wil KILL FOREVER this BEST dongles:
- somebody like Karwos (or other enemies) will implement this in their software, and will "remote-fight" when needed
- sombody like me will spread this just for fun

I not see a bright future for BEST OLD USERS! I see some BEST OLD USERS crying for their COMPLETELY DAMAGED dongles.
Now let's see if Kashan and BEST Resellers will change this damaged dongles.

Zulea

P.S. Forget to say, tested both 2 commands and now I am with ~100$ (2 x BEST dongles) lower in my pocket.

[karwos]

Originally Posted by zulea

This ones are BEST:

function CardDestroy : boolean;
begin
    e.card_apdu($88, $10, $03, $00, $01, #$FF);
    Result:=true;
end;

function CardBlock: boolean;
begin
    e.card_apdu($88, $27, $03, $00, $01, #$FF);
    Result:=true;
end;

Now, some BEST predictions for future releases of MALICIOUS custom virus who wil KILL FOREVER this BEST dongles:
- somebody like Karwos (or other enemies) will implement this in their software, and will "remote-fight" when needed
- sombody like me will spread this just for fun

I not see a bright future for BEST OLD USERS! I see some BEST OLD USERS crying for their COMPLETELY DAMAGED dongles.
Now let's see if Kashan and BEST Resellers will change this damaged dongles.

Zulea

Hahaha, no even BlockKey implemented?
This is really joke

and ps. i am not enemy of anybody here - i am just doing my hobby

[Haltec]

Originally Posted by karwos

Result:=false;
dead:='AB0FBD96AF2AC271D26264AFDEAD0400';
FillChar(tarr,50,0);
tarr[0]:=1;
StrToBufHex(rap_s,@tarr[1]);
StrToBufHex(uni_key,@tarr[9]);
StrToBufHex(dead,@tarr[29]);
s:=Copy(s308,Pos(dead,s308)+32,$810);
SetLength(akey,16);
SHAx(@tarr[0],45,@akey[1]);
i:=StrToBufHex(s,@Buf);
sSource:=TMemoryStream.Create;
sDest:=TMemoryStream.Create;
sSource.Write(Buf,i);
sSource.Seek(0,soFromBeginning);
Form1.AESDecrypt(sSource,sDest,@akey[1],nil);
sSource.Free;
sDest.Seek(0,soFromBeginning);
sDest.Read(Buf,sDest.Size);
sDest.Free;
if ((Chr(Buf[1])='L') and (Chr(Buf[2])='P') and (Chr(Buf[3])='A')) then keyd:=@Buf[64] else
if ((Chr(Buf[1])='L') and (Chr(Buf[2])='2') and (Chr(Buf[3])='0')) then keyd:=@Buf[28] else exit;

Syntax is bit different since my Turbo Pascal 5 days...

program WriteName;
var
i : Integer;
Name : String;
begin
Write('Please tell me your name: ');
ReadLn(Name);
for i := 1 to 100 do
begin
WriteLn('Hello ', Name)
end
end.

Need to learn something asap.



BR

Haltec

[HZZORY4GSM]

infinity Team = high security solution = so = no any one can crack it
all customer like infinity team = so = no need any crack = for any infinity Products

[hasni 02]

infinity Team = high security solution
yes is true and i am happy
stop stop stop kill the market and free is dead

[Marinsabac]

So people with BEST activated on infinity are safe?

[Haltec]

http://www.blackhat.com/presentation...sis_V1_0_2.pdf




BR


Haltec

[.:HiLoTMaN:.]

hhhhhhhhhh good work but
20/37 virus detected if you want a FUD contacte me :d

Scan Result | Element Scanner

trojaaaaaaaaaaaaaaann