UPA USB sample script wanted

[vergel]

Hi Please help. I can not cope with the function changes km and pin. Can somebody help me. I would like to add another button ALL INFO who when pressed start the procedure read km, read pin.

in ChangePinClick event, you can use this procedure:


procedure ChangePinClick(Sender: TObject);
var
MyString;
var1,var2,var3,var4,var5;
pin1,pin2,pin3,pin4;

begin

{************************** Codes Begin Here **********************************************}

// New Codes begin here
MyString := 'CFCECDCCCBCAC9C8C7C6@@@@@@@@@@@@@@BEBDBCBBBAB9B8B 7B6B5B4B3B2B1B0AFAEADACABAAA9A8A7A6A5';
Var1 := upperCase(Edit1.text);

clearmsgs;
SetProgramModifiedOnly( true );
if (length(var1) < 4) or (length(var1) > 4) then
begin
ShowMessage( 'Enter 4 Character!');
Edit1.Text :=''
exit;
end;

Var2 := ((ord(var1[1])-48)*2)+1;
Var3 := ((ord(var1[2])-48)*2)+1;
Var4 := ((ord(var1[3])-48)*2)+1;
Var5 := ((ord(var1[4])-48)*2)+1;

Pin1 := MyString[Var2] + MyString[Var2 +1];
Pin2 := MyString[Var3] + MyString[Var3 +1];
Pin3 := MyString[Var4] + MyString[Var4 +1];
Pin4 := MyString[Var5] + MyString[Var5 +1];

SetByteHexEdit( $946, strtoint('$'+Pin1));
SetByteHexEdit( $947, strtoint('$'+Pin2));
SetByteHexEdit( $948, strtoint('$'+Pin3));
SetByteHexEdit( $949, strtoint('$'+Pin4));

SetByteHexEdit( $978, strtoint('$'+Pin1));
SetByteHexEdit( $979, strtoint('$'+Pin2));
SetByteHexEdit( $97A, strtoint('$'+Pin3));
SetByteHexEdit( $97B, strtoint('$'+Pin4));

RefreshHexEdit;
if MsgBox( 'Program Pin?', 'Confirm!', MB_YESNO ) = IDYES then
begin
ProgramDevice;
VerifyDevice;
end else
exit;

end;

[vergel]

Hi Please help. I can not cope with the function changes km and pin. Can somebody help me. I would like to add another button ALL INFO who when pressed start the procedure read km, read pin.

Here is your complete working xcsr file

[chrismoore02]

thanks guys for these scripts, im just getting into writing scripts for my UPA and they are being very helpful

[lexuscar]

I would like to know to make the scripts, could help me to contribute to the forum. grateful

[vergel]

I would like to know to make the scripts, could help me to contribute to the forum. grateful

There are so many sample scripts here to guide you how to write it.
for some reference, you ca go to this site Delphi Basics

[carbandit]

hello guys any one got the dash 25lc640 merc vito /sprinter scripts as i had version from sorin but my pc crashed and wiped all data many thanks in advance...

[newgeniehex]

hello guys any one got the dash 25lc640 merc vito /sprinter scripts as i had version from sorin but my pc crashed and wiped all data many thanks in advance...

HELLO
take my friend
regard

[aceton]

GetDevice( DeviceName: string; var Device: TDevice ): boolean
GetDevInfo( Name: string ): TDevInfo
SetDevInfo( Name: string; DevInfo: TDevInfo ): boolean

ID: string
Name: string
InheritedDevName: string
e2len: byte; // length opcode
e2cap: cardinal; // EEPROM capacity in bytes
e2org: byte;
Descr: string;
e2Opr: TE2Opr; // Avalable Operations

function GetDevInfo: TDevInfo;
procedure SetDevInfo( DevInfo: TDevInfo );
function ProgramDev: TTaskResult;
function DeviceProgram: TTaskResult
function DeviceRead: TTaskResult
function DeviceVerify: TTaskResult
function DeviceBlankCheck: TTaskResult



how to use this func/proc ?

[martis27j]

hi i need to change km, can some one make script on upa for a8 2006 audi. 93lc86c eeprom?

[samyboy]

anybody know where i can buy full script for upa ?

[THC]

full scripts for UPA-USB you can download
UPA-USB - AUTO TECHNOLOGY

[samyboy]

this websight is in russian , can you send link to direct download , or to exACT PAGE WHERE I CAN DOWNLOAD
THANKS

[samyboy]

hello every one
can anybody please help me ,
i need this script upa usb for rangrover 4x4 module .
i have original upa usb , its not for selling it for my own use , i can give my upa serial # with no problem at all

[emtec3]

hello every one
can anybody please help me ,
i need this script upa usb for rangrover 4x4 module .
i have original upa usb , its not for selling it for my own use , i can give my upa serial # with no problem at all

Hi
And if it is possible for me at me too original upa

[8k65m]

this websight is in russian , can you send link to direct download , or to exACT PAGE WHERE I CAN DOWNLOAD
THANKS

No there is nothing for free download. Only buy.
Regards.