UPA USB sample script wanted

[newgeniehex]

Hello,
my script for VW Simos71.
Read: Pin,Vin,Immo_sn,VW_Part_Nr,SW,Coding,Location,Typ, CS,Manufacture-ID
Prod.Date.
<ECUs VOLKSWAGEN><Simos71><96C86>

HELLO
Thank for your scrypt!!
can you had 2 actions :change the vin and change the pin please
many thank in advance

[szogun0]

There is something wrong in VIN reading. Doesn't have 16-th sign.
Can You change it?

[zfkd]

@newgeniehex all in connect upa press button ECU Infos.
Now the button set pin is online, only for you and your serial number.

Vin 17 is IO.

[zfkd]

[samyboy]

hello everyone can somebody please shar script files for north american market please ' i can give my UPA serial NUmber if you like
thanks in advance

[nomis]

you can make your own script than to ask members who have ready to use script,
There is a lot of examples here, just an imagination and a simple calculation and you will be learn little by little, the others will not grab your knowledge from you

as for example below, the instruction is for Toyota denso
just to improve it and you can make it with your own



/// ****************** Denso Code *************** //
procedure NewKM;
var
n3,n2,new_KM: integer;
n1,code,n4: String;

begin
SetProgramModifiedOnly( true );
if InBox( 'Enter KM', 'New KM',code ) then begin


if length( code ) >6 then begin
if MsgBox( 'Out of Range', 'Error', MB_RETRYCANCEL ) = IDRETRY then begin
NewKM;
end;
exit;
end;

/// *******CALCULATION ************** //
new_km:= (strtoint(code)+1000000);

n1 := '$' +inttostr(new_KM);
n2 := strtoint(n1);
n3 := $FFFFFFF - (n2);
n4 := inttohex(n3,2);
// ******* END of CALCULATION *********//



//********* OFFSETS *********///
SetByteHexEdit( $A,(strtoint ('$'+n4[2]+n4[3])));
SetByteHexEdit( $9,(strtoint ('$'+n4[4]+n4[5])));
SetByteHexEdit( $8,(strtoint ('$'+n4[6]+n4[7])));


end;

Hi hcip , copy this code and past on script ide but when i compile it show me syntax error ! please can you guide me first 2 or 3 step ... Thanks

[dfi]

That is a script for old upa software, ver.1.1.

[hcip]

@ Nomis

Make it like this

procedure Denso_C46;
var
x,n1,n2,n3,n4,n5,n6,n7,Code
begin
Code := Edit1.text
clearmsgs;
SetProgramModifiedOnly( true );
case code of
'',null:
begin
ShowMessage( 'Enter Number in a Textbox');
exit;
end;
end;

n7 :=0
n1 := Inttostr(Round(strtoint(code)) +1000000);
n2 := n1[7];
n4 := Strtoint('$'+inttostr(int(round(strtoint(code))* 0.01))) xor $FFFF
if strtoint(n2) <5 then n3 := $F else n3 := $A;
n7 := (Strtoint('$'+n1[6]) xor 15) shl 4 xor n3;
n6 := $80 ; x := 0;
while x < $8 do begin
SetByteHexEdit( x,$FF);
x := X +1;
end;
n5 := strtoint(n2) mod 5 *2
x := 0;
while x < n5 do begin
SetByteHexEdit( x,N6);
x := X +2;
end;
x:= 8;
while x< 19 do begin
SetByteHexEdit( x, N7);
SetByteHexEdit( x+1,n4 or $0);
SetByteHexEdit( X+2,n4 shr 8);
x := X +4;
end;
RefreshHexEdit;
if MsgBox( 'Program Mileage?','Confirmation', MB_YESNO ) = IDYES then begin
ProgramDevice;
VerifyDevice
end ;
end;

[hcip]

Here is a sample script ready

[dfi]

You can still use old form of scripts if you don't know how to use the new IDE by clicking File-New-Script.

[nomis]

Thank you so much for your help . I think i need to know some very basic knowledge about pascal , how to work codes and functions .

Regards.

[hcip]

The Compiled *.Xscr script can easily change the name of the author so I think we need to protect it for bieng change by others who downloaded our works,

as for example I changed the name of Xzcr script (Simos71) by ZFKD (attached)



I also attached my sample script with my name, if anybody change my name in my works please try it. for most xscr script the name of the author can see if you open the xscr file in any hexeditor in ASCII

if anybody can change my name I will move to another protection

[vinicio1716]

HI EVERYONE
I have created some scripts for my UPA programmer, but these scripts works with wathever UPA, maybe any one know how to programm in order to create a script which works only with my UPA (with my UPA serial).

THANK YOU SO MUCH

[DrugWash]

HI EVERYONE
I have created some scripts for my UPA programmer, but these scripts works with wathever UPA, maybe any one know how to programm in order to create a script which works only with my UPA (with my UPA serial).

THANK YOU SO MUCH

You can use this function

s := GetUUSPSerialNumber;
if s = '00000000' then {Check with you serial}
begin
AddMsg('!!! No UPA-USB Connected !!!');
AddMsg('UUPS Serial : ' + S);
exit;
end;

For checking you serial!

[vinicio1716]

THANK YOU SO MUCH, I AM GOING TO TRY IT
EXCUSEME COULD YOU TELL ME HOW COULD I ENCRYPT MY SCRIPTS?? maybe with .udx??