UPA USB sample script wanted

[teerak2uk]

ENGLISH SPEAKING FORUM!!!!!!!!

[YILDIZ OTO]

Help help

UPA-USB Device Programmer v13014
Licensed to: xxxxx
System: Microsoft Windows XP Professional Service Pack 3 (build2600)
Detecting UUSP...Pease wailt!
Device Description: ELRASOFT UPA-USB Driver (3.4.1.20)
USB Driver Name: UPAUSB.sys, HS Mode
5V Tests. Close J1 and press a key to continue
---------------------------------------------------------------------------------------------------------------
Test1: P1=0V, P2=Z, P3=Z, P4=Z, P6=Z, P7=Z, P8=Z, P9=0V
Result: P1=0,00V, P2=0,00V (L), P3=0,00V (L), P4=0,00V (L),P6=0,00V (L), P7=0,00V (L), P8=0,00V (L), P9=0,00V
Test Passed
---------------------------------------------------------------------------------------------------------------
Test2: P1=8V, P2=Z, P3=Z, P4=Z, P6=Z, P7=Z, P8=Z, P9=0V
Result: P1=8,01V, P2=0,00V (L), P3=0,00V (L), P4=0,00V (L),P6=0,00V (L), P7=0,00V (L), P8=0,00V (L), P9=0,00V
Test Passed
---------------------------------------------------------------------------------------------------------------
Test3: P1=9V, P2=Z, P3=Z, P4=Z, P6=Z, P7=Z, P8=Z, P9=0V
Result: P1=9,06V, P2=0,00V (L), P3=0,00V (L), P4=0,00V (L),P6=0,00V (L), P7=0,00V (L), P8=0,00V (L), P9=0,00V
Test Passed
---------------------------------------------------------------------------------------------------------------
Test4: P1=10V, P2=Z, P3=Z, P4=Z, P6=Z, P7=Z, P8=Z, P9=0V
Result: P1=9,88V, P2=0,00V (L), P3=0,00V (L), P4=0,00V (L),P6=0,00V (L), P7=0,00V (L), P8=0,00V (L), P9=0,00V
Test Passed
---------------------------------------------------------------------------------------------------------------
Test5: P1=11V, P2=Z, P3=Z, P4=Z, P6=Z, P7=Z, P8=Z, P9=0V
Result: P1=10,75V, P2=0,00V (L), P3=0,00V (L), P4=0,00V (L),P6=0,00V (L), P7=0,00V (L), P8=0,00V (L), P9=0,00V
Test Passed
---------------------------------------------------------------------------------------------------------------
Test6: P1=12V, P2=Z, P3=Z, P4=Z, P6=Z, P7=Z, P8=Z, P9=0V
Result: P1=11,78V, P2=0,00V (L), P3=0,00V (L), P4=0,00V (L),P6=0,00V (L), P7=0,00V (L), P8=0,00V (L), P9=0,00V
Test Passed
---------------------------------------------------------------------------------------------------------------
Test7: P1=13V, P2=Z, P3=Z, P4=Z, P6=Z, P7=Z, P8=Z, P9=0V
Result: P1=12,58V, P2=0,00V (L), P3=0,00V (L), P4=0,00V (L),P6=0,00V (L), P7=0,00V (L), P8=0,00V (L), P9=0,00V
P1(12,58V ) not in 12,70V - 13,30V
Test Failed
---------------------------------------------------------------------------------------------------------------
Test20: P1=0V, P2=Z, P3=Z, P4=Z, P6=Z, P7=Z, P8=Z, P9=5V
Result: P1=0,00V, P2=3,83V (L), P3=0,00V (L), P4=0,00V (L),P6=3,83V (L), P7=0,00V (L), P8=0,00V (L), P9=4,98V
Test Passed
---------------------------------------------------------------------------------------------------------------
Test21: P1=0V, P2=L, P3=L, P4=L, P6=L, P7=L, P8=L, P9=5V
Result: P1=0,00V, P2=0,06V (L), P3=0,00V (L), P4=0,00V (L),P6=0,06V (L), P7=0,00V (L), P8=0,00V (L), P9=4,98V
Test Passed
---------------------------------------------------------------------------------------------------------------
Test22: P1=0V, P2=H, P3=H, P4=H, P6=H, P7=H, P8=H, P9=5V
Result: P1=0,00V, P2=4,91V (H), P3=4,93V (H), P4=4,95V (H),P6=4,90V (H), P7=4,93V (H), P8=4,90V (H), P9=4,96V
Test Passed
---------------------------------------------------------------------------------------------------------------
3.3V Tests. Open J1 and press a key to continue
---------------------------------------------------------------------------------------------------------------
Test40: P1=0V, P2=Z, P3=Z, P4=Z, P6=Z, P7=Z, P8=Z, P9=3.3V
Result: P1=0,00V, P2=3,11V (H), P3=0,00V (H), P4=0,00V (H),P6=3,11V (H), P7=0,00V (H), P8=0,00V (H), P9=3,59V
Test Passed
---------------------------------------------------------------------------------------------------------------
Test41: P1=0V, P2=L, P3=L, P4=L, P6=L, P7=L, P8=L, P9=3.3V
Result: P1=0,00V, P2=0,05V (L), P3=0,00V (L), P4=0,00V (L),P6=0,05V (L), P7=0,00V (L), P8=0,00V (L), P9=3,58V
Test Passed
---------------------------------------------------------------------------------------------------------------
Test42: P1=0V, P2=H, P3=H, P4=H, P6=H, P7=H, P8=H, P9=3.3V
Result: P1=0,00V, P2=3,61V (H), P3=3,61V (H), P4=3,63V (H),P6=3,59V (H), P7=3,61V (H), P8=3,59V (H), P9=3,59V
Test Passed
---------------------------------------------------------------------------------------------------------------
Test60
9541B969E5C3AA57
Test Passed
---------------------------------------------------------------------------------------------------------------
1 Tests failed

[helmi reguig]

Need a script for UPA bike ?????----------------------

[zfkd]

@YILDIZ OTO (http://www.digital-kaos.co.uk/forums/members/355052-yildiz-oto/)
http://www.digital-kaos.co.uk/forums/f154/upa-usb-test-failed-192467/#post1515365 (http://www.digital-kaos.co.uk/forums/f154/upa-usb-test-failed-192467/#post1515365)

[helmi reguig]

Need a script for UPA bike ?????
thanks

[dob12]

Hello
Thanks guys for the upload.
happy new year

[kentzee]

Hi,

Anyone have the formula for calculate mini chassis number

example:

WMWRE32010TG94879

0C43 2D15 2220 1008 E488 4108 90A0

[smokey08]

Hi,

Anyone have the formula for calculate mini chassis number

example:

WMWRE32010TG94879

0C43 2D15 2220 1008 E488 4108 90A0

I know how to calculate for bmw but my formula does not work for your example. I think you have posted wrong hex.

On bmw 1st digit of chassis number is in first 2 digits of hex string.

Then next 2 digits of the chassis number make up the next 3 digits of the hex with a multiply by 4 in there somewhere. This bit is repeated throughout the rest of it.

Make some tables to convert 0-Z to 0-23 hex and you will soon work it out.

I think this is enough information for you as your thanks button appears to be broken.

[kentzee]

The BMW formula is have also but the mini calculation is different

[diagtech2000]

hi ive downloaded one of these sample scripts, the renault twin goo 93c66 one on the first page, but i cannot get it to work? its installed ok i can see it on the right hand side of my screen under devices but when i open a .bin file then go to "Renault" (under devices) then "Renault twingoo 2008 93c66" and then go to "actions" (top Bar) then "read km" it just gives me "read error" like im trying to read the eeprom, but I've already loaded the data- im not connected to the eeprom i just want to read KM from the Dump,? please can someone help? what am i doing wrong?

below is a screen shot of the "read error"

please if someone could give me step by step instructions im happy to send them some beer tokens or something, currently i have a UPA that is useless

251798

[Lexas]

hi ive downloaded one of these sample scripts, the renault twin goo 93c66 one on the first page, but i cannot get it to work? its installed ok i can see it on the right hand side of my screen under devices but when i open a .bin file then go to "Renault" (under devices) then "Renault twingoo 2008 93c66" and then go to "actions" (top Bar) then "read km" it just gives me "read error" like im trying to read the eeprom, but I've already loaded the data- im not connected to the eeprom i just want to read KM from the Dump,? please can someone help? what am i doing wrong?

below is a screen shot of the "read error"

please if someone could give me step by step instructions im happy to send them some beer tokens or something, currently i have a UPA that is useless

251798

some sctipts just works like this, reads eeprom and gives km, then you can change and program. loaded file doesnt work. if you need just calculate km, use another program or write eeprom change km program, read again and save.

[diagtech2000]

Cheers


Sent from my iPhone using Tapatalk

[brchip]

Hello,

U'm looking for these airbag scripts:

Linea 2010 609470600 and Megane 609221300

Anyone?

Thanks in advance!

[pintobraz]

Thank you
I see if I learn anything writing scripts for my upa-usb v13.
Learn scriptability gave a help but no one is perfect.

[pintobraz]

please passe thanks

[zmeiarm]

Question dear professionals

if we have many unit with form, how i can call from main-unit

AddDeviceGroup( 'IMMO', 'Select Menu' );
AddDeviceGroupEx( ' CITROEN ', 'Select a Car', 'IMMO' );
AddDeviceEx( 'C2', 'ST95080', ' CITROEN ', 'ST95080', 'show', 'Hide');
AddDeviceEx( 'C3', 'ST95080', ' CITROEN ', 'ST95080', 'show', 'Hide');
AddDeviceEx( 'C4', 'ST95080', ' CITROEN ', 'ST95080', 'show', 'Hide');


from this diferent menu call on diferent unit with Form.
how i must change this

var
MainForm: TForm2;


Procedure Show( PParent );
begin
MainForm := TForm2.Create(PParent );
MainForm.Parent := PParent;
MainForm.Visible := True
end;

tnx a lot for answear

[dfi]

New update!!!

uuprog-s v1.1.1.02 06-Nov-14
- Added support for Infineon MCUs: XC2060N-40F, XC2060M-104F, XC2336B-24F, XC2336B-40F, XC2361A-56F, XC2361A72F,
XC2363A-56F, XC2363A-72F, XC2364A-56F,XC2364A-72F, XC2364A-104F, XC2365A-56F, XC2365A-72F, XC2365A-104F,
XC2361B-24F, XC2361B-40F, XC2363B-24F, XC2363B-40F, XC2364B-24F, XC2364B-40F, XC2365B-24F, XC2365B-40F
- Added beta support for Freescale (Motorola): MPC5604C, MPC5604P
- Added beta support for ST MCUs: SPC560P44, SPC560P50
- Added support for Freescale (Motorola) MCUs: MC9S12G48, MC9S12G64, MC9S12G96, MC9S12G128, MC9S12G192,
MC9S12G240
- Fixed some bugs with scrips

[robert54]

Hi I looking for scrypt for ford kuga 24c32 or connect 24c32 from 2013-2014 year
Thanks

[philipcoin]

Hi mate,
Hi have xprog-m and need to read vw beetle instrument cluster,can so One help.

[teuton]

Specify which cluster/type, then someone will help you

[philipcoin]

hello mates,
i have upa-usb and want to read
MC9S12H256, MC68HC912D60
on vw beetle can someone help with the pinout diagram.


PC.http://www.digital-kaos.co.uk/forums/attachment.php?attachmentid=291249&stc=1

[fuktak]

Try this.BR

[philipcoin]

hello m8,
i need help on jaguar x-type cluster need pin out diagram
MC68HC912DG128,i have UPA.
thank you.

merry xmas.
PC.

[audiotek]

Hi, could anybody help me to convert hexadecimal values onto Octal? with this UPA script I can display the code from radio in hexadecimal readed directly from eeprom or from saved dump. The algorithm is HEX>OCT/2, in this example is HEX(2A54)>OCT(25124)/2=12452. Thanks in advance.

[Min2xx]

New update!!!

uuprog-s v1.1.1.02 06-Nov-14
- Added support for Infineon MCUs: XC2060N-40F, XC2060M-104F, XC2336B-24F, XC2336B-40F, XC2361A-56F, XC2361A72F,
XC2363A-56F, XC2363A-72F, XC2364A-56F,XC2364A-72F, XC2364A-104F, XC2365A-56F, XC2365A-72F, XC2365A-104F,
XC2361B-24F, XC2361B-40F, XC2363B-24F, XC2363B-40F, XC2364B-24F, XC2364B-40F, XC2365B-24F, XC2365B-40F
- Added beta support for Freescale (Motorola): MPC5604C, MPC5604P
- Added beta support for ST MCUs: SPC560P44, SPC560P50
- Added support for Freescale (Motorola) MCUs: MC9S12G48, MC9S12G64, MC9S12G96, MC9S12G128, MC9S12G192,
MC9S12G240
- Fixed some bugs with scrips
I can't find any new update, last update:

UPA-USB Device Programmer v1.3.0.14 r2 (http://elrasoft.eu/uuprog5/uuprog_13014r2.zip) 06-May-13
uuprog v1.3.0.14 revision 2
- Fixed "the code is not signed" error
- New USB driver upausb.sys. This driver is digitally signed and can be used with USB2.0/3.0 ports under 32/64-bit Windows XP/Vista/7/8

[valdirld]

this update is for uuprog-s, not UPA-USB

[Zaebasto]

Ford/Nissan visteon algo solved. Script tested on Nissan Qashqai with 9s12xhz256, work perfect! Please push thanks button!:)

[brchip]

Ford/Nissan visteon algo solved. Script tested on Nissan Qashqai with 9s12xhz256, work perfect! Please push thanks button!:)

I got this error message:

visteon.uds: Exception: NISSAN Invalid device group at 0.138SuccessfulSuccessful

[Zaebasto]

script not crypted, edit device group, or add new. these is script for add new device group and subgroup. Add new script for dashes VDO!

[maximuceprime]

thanks you

[lupu_sandu]

New update for UPA:




uuprog-s v1.1.4.02 08-Sep-15
- Added support for Renesas V850 MCUs: uPD70F3333, uPD70F3334, uPD70F3335, uPD70F3336, uPD70F3340, uPD70F3341, uPD70F3342, uPD70F3343, uPD70F3350, uPD70F3351, uPD70F3352, uPD70F3353, uPD70F3370A, uPD70F3371, uPD70F3372, uPD70F3373, uPD70F3374, uPD70F3375, uPD70F3376A, uPD70F3377A, uPD70F3378, uPD70F3379, uPD70F3380, uPD70F3381, uPD70F3382, uPD70F3383, uPD70F3384, uPD70F3385, uPD70F3624, uPD70F3628, uPD70F3629, uPD70F3632, uPD70F3633, uPD70F3634, uPD70F3635, uPD70F3736
- Added support for Microchip eeproms 25LC512, 25LC1024
- Fixed some bugs

[sosmecano]

my upa dont work on windows 7

[lmurk]

drpeter,

How can I open and edit a file .uds. With software I need to use?

[XmoDDeR]

:dad:............................................. ......special case here , me thinks he needs headgear for the next time he bounce his head ,,,

[Zaebasto]

Script for VAG ECU - ME7 and EDC16. Test and report. 348853

[DrugWash]

Does any one have script or algo for calculation mile Bike Aprilia MANA DashBoard?

[Zaebasto]

For EDC15 Test and report

[abu deab]

INEED UPDATE 1.4 INEED RAED NEC 7F33

[deffc0n]

Hello

Need script for radio Audi Chorus motorola MC68HC705B32.

thx

[lebneni]

hahahaha ....>.................................................. ...............................

[sosmecano]

NEED GOOD SCRIPT HYNDAI I10 DASH BLEU SCRIN MCU MC9S12 MASK 0M34S

[gyalog_kakkuk]

Hi
I need malaguti madison script
Please send
Thanks

[dragon100]

Hi, some scripts for UPA, over 200Mb, I hope that someone will help. Don't forget button thanks.

[SKYTON]

ANYONE A MC9S12XHZ256 clio 4 dash and abs 95640 SCRIPT ?
as Qashqai
regards

[Zaebasto]

Hi! I want make script with many InBox in one window like this pic. Give sample please.378999

[ajayrao]

hello i want help to read ecu airbag hyundai tucson -- 95910-2e400 i have upa usb programer v 1.3 i want pinout to connect for read it .

mask : 0L85D

thx

[dfi]

here is a script to find security bytes in hc08 from a list 382704

[giaphat]

Hello,

I'm learning to creat upa script ( .xscr type)

I start with Honda CBR1000 dash boad and some function: Read file, Check file, Get Kilomet, New Kilomet, Write file
So, I have some question. How to:

1. Get kilomet from file. Convert from hex to kilomet value

2. Show a image

3. Check the org file is good or bad

if any one have good example or project, i'll buy it

Thank all!

[winaiservice]

Hello Now I buy UPA-S From EBAY The Scripts s Same The Clone How I can do
Sorry For my EngLish

[otojm]

Hello Now I buy UPA-S From EBAY The Scripts s Same The Clone How I can do
Sorry For my EngLish
hi put your script here "C:\Program Files\ELRASOFT\UPA-USB Suite\Device Programmer\DeviceScripts\....."

[winaiservice]

Yes I do it but Scripts s Same UPA Clone

[jjservice]

IS THERE SOMEONE HAS A SCIPT FOR FORD ESCAPE DASH MC68HC11KA4 MCU?

[hramos9]

Hi mates, any script to read and change km on bsi 207 2012 compact ???? It's urgent eeprom 95160

[richiebb]

Hi Folks.

I'm learning how to make pascal scripts for upa.
What I want is to order them in the list.
I have seen some scripts that have groups and sub groups ........ eg dashboards -> peugeot -> 208 xxxxxxxxxxxxx ............. dashboard -> fiat -> stylo xxxxxxxxxx , etc.
I also saw that there are .xscr extension files where this is generated, but the content is not plain text.
If someone guides me a little I will thank him

[Kocta]

Hey, does anyone script for Peugeot 307- Bsi Valeo. 2003-2004.
Thank you

[glk96000]

Hi

anyone have read new renault airbag modul with xc2336b-40f
need lift pin ?

BR GLK96000

[mikroel]

i downloaded few scripts from here and when i try to execute any command from scripts i get error " argument out of range"
are that scripts not compatible with my device or something else is problem?

[multi666]

hello i need to know how the scripts work ?

[mikroel]

i downloaded few scripts from here and when i try to execute any command from scripts i get error " argument out of range"
are that scripts not compatible with my device or something else is problem?

Solved .Some scripts only work with cracked version of software but not with ori.


Sent from my iPhone using Tapatalk

[autotechbr]

I have problem with script in UPA version 1.3 function perfect, but version upa-s no function

Program Prog1;
var
Code,Code_1: string;
KM: Integer;






Procedure ReadKM;
begin
if not ReadDevice then
begin
MsgBox( 'Read Error', 'Error', MB_OK );
end
else
begin
AddMsg('VW Voyage 2009 9s12h256');


Code_1:=inttohex(GetByteHexEdit($600),2)+inttohex( GetByteHexEdit($601),2)+inttohex(GetByteHexEdit($6 02),2)+inttohex(GetByteHexEdit($603),2);
KM:= (strtoint('$'+Code_1)/1000);
//KM:= ($ffff-strtoint('$'+Code_1));
AddMsg('Actual value' + ' = '+ IntToStr(KM)+' km');
MsgBox(IntToStr(KM) +' km', 'Actual value', MB_OK);
end;
end;


procedure NewKM;
var
n,new_KM, new_KM2: integer;
n1,n2: String;


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


end;
if StrToInt( code )> 999999 then begin
MsgBox( 'Enter 000001-999999 Code', 'Error', MB_OK );
exit;
end;


n:= StrToInt( code )*1000;
new_KM2:= $FFFFFFFF-(n);
new_KM:= (n);
n1:= IntToHex(new_KM,8);
n2:= IntToHex(new_KM2,4);


SetByteHexEdit( $600,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $601,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $602,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $603,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $608,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $609,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $60A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $60B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $610,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $611,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $612,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $613,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $618,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $619,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $61A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $61B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $620,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $621,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $622,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $623,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $628,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $629,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $62A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $62B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $630,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $631,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $632,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $633,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $638,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $639,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $63A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $63B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $640,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $641,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $642,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $643,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $648,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $649,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $64A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $64B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $650,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $651,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $652,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $653,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $658,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $659,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $65A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $65B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $660,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $661,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $662,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $663,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $668,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $669,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $66A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $66B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $670,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $671,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $672,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $673,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $678,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $679,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $67A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $67B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $680,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $681,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $682,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $683,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $688,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $689,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $68A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $68B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $690,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $691,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $692,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $693,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $698,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $699,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $69A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $69B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $6A0,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $6A1,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $6A2,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $6A3,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $6A8,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $6A9,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $6AA,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $6AB,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $6B0,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $6B1,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $6B2,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $6B3,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $6B8,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $6B9,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $6BA,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $6BB,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $6C0,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $6C1,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $6C2,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $6C3,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $6C8,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $6C9,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $6CA,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $6CB,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $6D0,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $6D1,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $6D2,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $6D3,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $6D8,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $6D9,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $6DA,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $6DB,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $6E0,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $6E1,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $6E2,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $6E3,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $6E8,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $6E9,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $6EA,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $6EB,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $6F0,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $6F1,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $6F2,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $6F3,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $6F8,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $6F9,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $6FA,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $6FB,(strtoint ('$'+n1[7]+n1[8])));


SetByteHexEdit( $700,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $701,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $702,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $703,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $708,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $709,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $70A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $70B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $710,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $711,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $712,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $713,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $718,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $719,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $71A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $71B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $720,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $721,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $722,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $723,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $728,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $729,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $72A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $72B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $730,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $731,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $732,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $733,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $738,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $739,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $73A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $73B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $740,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $741,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $742,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $743,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $748,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $749,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $74A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $74B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $750,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $751,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $752,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $753,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $758,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $759,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $75A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $75B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $760,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $761,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $762,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $763,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $768,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $769,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $76A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $76B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $770,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $771,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $772,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $773,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $778,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $779,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $77A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $77B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $780,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $781,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $782,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $783,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $788,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $789,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $78A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $78B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $790,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $791,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $792,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $793,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $798,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $799,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $79A,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $79B,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $7A0,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $7A1,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $7A2,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $7A3,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $7A8,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $7A9,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $7AA,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $7AB,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $7B0,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $7B1,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $7B2,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $7B3,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $7B8,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $7B9,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $7BA,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $7BB,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $7C0,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $7C1,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $7C2,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $7C3,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $7C8,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $7C9,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $7CA,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $7CB,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $7D0,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $7D1,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $7D2,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $7D3,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $7D8,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $7D9,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $7DA,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $7DB,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $7E0,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $7E1,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $7E2,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $7E3,(strtoint ('$'+n1[7]+n1[8])));
SetByteHexEdit( $7E8,(strtoint ('$'+n1[1]+n1[2])));
SetByteHexEdit( $7E9,(strtoint ('$'+n1[3]+n1[4])));
SetByteHexEdit( $7EA,(strtoint ('$'+n1[5]+n1[6])));
SetByteHexEdit( $7EB,(strtoint ('$'+n1[7]+n1[8])));


SetByteHexEdit( $604,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $605,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $606,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $607,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $60C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $60D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $60E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $60F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $614,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $615,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $616,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $617,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $61C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $61D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $61E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $61F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $624,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $625,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $626,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $627,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $62C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $62D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $62E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $62F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $634,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $635,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $636,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $637,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $63C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $63D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $63E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $63F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $644,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $645,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $646,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $647,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $64C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $64D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $64E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $64F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $654,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $655,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $656,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $657,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $65C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $65D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $65E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $65F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $664,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $665,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $666,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $667,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $66C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $66D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $66E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $66F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $674,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $675,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $676,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $677,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $67C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $67D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $67E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $67F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $684,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $685,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $686,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $687,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $68C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $68D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $68E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $68F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $694,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $695,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $696,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $697,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $69C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $69D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $69E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $69F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $6A4,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $6A5,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $6A6,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $6A7,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $6AC,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $6AD,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $6AE,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $6AF,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $6B4,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $6B5,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $6B6,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $6B7,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $6BC,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $6BD,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $6BE,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $6BF,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $6C4,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $6C5,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $6C6,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $6C7,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $6CC,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $6CD,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $6CE,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $6CF,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $6D4,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $6D5,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $6D6,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $6D7,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $6DC,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $6DD,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $6DE,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $6DF,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $6E4,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $6E5,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $6E6,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $6E7,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $6EC,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $6ED,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $6EE,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $6EF,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $6F4,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $6F5,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $6F6,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $6F7,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $6FC,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $6FD,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $6FE,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $6FF,(strtoint ('$'+n2[7]+n2[8])));


SetByteHexEdit( $704,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $705,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $706,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $707,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $70C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $70D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $70E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $70F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $714,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $715,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $716,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $717,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $71C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $71D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $71E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $71F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $724,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $725,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $726,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $727,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $72C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $72D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $72E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $72F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $734,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $735,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $736,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $737,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $73C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $73D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $73E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $73F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $744,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $745,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $746,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $747,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $74C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $74D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $74E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $74F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $754,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $755,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $756,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $757,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $75C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $75D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $75E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $75F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $764,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $765,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $766,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $767,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $76C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $76D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $76E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $76F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $774,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $775,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $776,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $777,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $77C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $77D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $77E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $77F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $784,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $785,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $786,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $787,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $78C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $78D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $78E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $78F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $794,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $795,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $796,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $797,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $79C,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $79D,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $79E,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $79F,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $7A4,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $7A5,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $7A6,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $7A7,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $7AC,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $7AD,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $7AE,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $7AF,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $7B4,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $7B5,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $7B6,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $7B7,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $7BC,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $7BD,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $7BE,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $7BF,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $7C4,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $7C5,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $7C6,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $7C7,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $7CC,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $7CD,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $7CE,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $7CF,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $7D4,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $7D5,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $7D6,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $7D7,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $7DC,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $7DD,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $7DE,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $7DF,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $7E4,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $7E5,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $7E6,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $7E7,(strtoint ('$'+n2[7]+n2[8])));
SetByteHexEdit( $7EC,(strtoint ('$'+n2[1]+n2[2])));
SetByteHexEdit( $7ED,(strtoint ('$'+n2[3]+n2[4])));
SetByteHexEdit( $7EE,(strtoint ('$'+n2[5]+n2[6])));
SetByteHexEdit( $7EF,(strtoint ('$'+n2[7]+n2[8])));




RefreshHexEdit;
if MsgBox( 'Program?', 'Confirm', MB_YESNO ) = IDYES then begin
SetProgramModifiedOnly( true );
ProgramDevice;
VerifyDevice;
ReadKM;
end;


end;








begin
AddDeviceGroup( 'VW', 'Select a car' );
AddDevice('VW Voyage 2009 9s12h256', 'MC9S12H56', 'VW', 'MC9S12H256' );
AddAction( 'Read KM', 'ReadKM', 'VW Voyage 2009 9s12h256' );
AddAction( 'New KM', 'NewKM', 'VW Voyage 2009 9s12h256' );
AddOpenFileAction( 'Connection', 'VW Voyage 2009 9s12h256', 'voyage.jpg' );

[hoangtu]

HI M8! PLS help me! how to convert HEX to DEC script?


procedure Button2Click(Sender: TObject);
var code,CODE_1: string;
KM: Integer;


begin




code := inttohex(GetByteHexEdit($08),2)+inttohex(GetByteHe xEdit($09),2)+inttohex(GetByteHexEdit($0a),2)+intt ohex(GetByteHexEdit($0b),2);
KM:=strtoint('$'+Code);


Edit1.text := IntToHex(KM,9);
end;


end;

[MSolen]

I'm looking for scripts for UPA-USB for the Suzuki Kingquad LTM700 dash km and moto hours on 24LC02 memory

[Geryy]

Anybody have script for Mazda CX5 2012 ?

[noronha]

Amigão, eu preciso calcular o km da eprom 93C46 do celta. como calcular na upa? la so aparece 93S46. qual a linha que fica armazenhada o km e como calcular?

[michel almeida]

where can i find this software for upa script encryption

[km666]

Hi All,

I need script for Nissan NV200 9S12XHZ.



Regards,


"solved"

[mikroel]

script not crypted, edit device group, or add new. these is script for add new device group and subgroup. Add new script for dashes VDO!

Can you add other cars as subgroups ????[emoji106]

or gave some instructions how can be made groups and subgroups ??

or anybody ???


Sent from my iPhone using Tapatalk

[mikroel]

Nobody know how to make scripts with subgroups ???

for example : AIRBAG>AUDI>A4>8W0959655

[mikroel]

DONE!!!![emoji1][emoji1][emoji1]
[emoji41][emoji41][emoji41][emoji41][emoji41][emoji41]



https://uploads.tapatalk-cdn.com/20180517/cbea4f23553a1d70b231502fcdb5576b.jpg


Sent from my iPhone using Tapatalk

[hrmotorsport]

Please can you explain how to do and upload files? i am neewbee in upa and not know hot to install scripts. thank you

BR

[mikroel]

Please can you explain how to do and upload files? i am neewbee in upa and not know hot to install scripts. thank you

BR
scrpts installation is simple.Just
copy them in DeviceSripts folder ,thats all.

[hrmotorsport]

but if want to appear as your photo, how to?

[mikroel]

it's not related to the installation but it's about how the scripts are written


Sent from my iPhone using Tapatalk

[mikroel]

here is sample

//Create Custom Device (Sub) Groups
AddDeviceGroup( 'Samples', 'Select a Device' ); //create a root group
AddDeviceGroupEx( 'Subgroup1', 'Select a Device', 'Samples' );
AddDeviceGroupEx( 'Subgroup2', 'Select a Device', 'Samples' );
AddDeviceGroupEx( 'Subgroup3', 'Select a Device', 'Samples' );

[hrmotorsport]

Perfect, have you scripts modified ? to install yours

[mikroel]

Perfect, have you scripts modified ? to install yours

I have several, just start to making my new and convert old scripts.



Sent from my iPhone using Tapatalk

[hrmotorsport]

great, when you end conversion, if you want, upload scripts :)

[mikroel]

great, when you end conversion, if you want, upload scripts :)

If you have some interesting scrips for conversion just send to me.need to be in txt format or uds . Upload somehere and send me link and i will convert them for you .


I also have more then 3000 scripts for orange5 [emoji1][emoji123][emoji123]

Sent from my iPhone using Tapatalk

[hrmotorsport]

wow! upload this scripts for orange please :D

[mikroel]

Renault Clio 4 985101389R SPC560P50

Here is my UPA script for R/W and clear crash data from


pass on pm

[greg198]

scipts pack

[rsilva]

hello,

does anyone have script to upa-s to read corsa D bcm pin?

best regards

[superchaveiro]

here is sample

//Create Custom Device (Sub) Groups
AddDeviceGroup( 'Samples', 'Select a Device' ); //create a root group
AddDeviceGroupEx( 'Subgroup1', 'Select a Device', 'Samples' );
AddDeviceGroupEx( 'Subgroup2', 'Select a Device', 'Samples' );
AddDeviceGroupEx( 'Subgroup3', 'Select a Device', 'Samples' );

Work in .uds or .xscr?

I try make script load .Bin file in button but .xscr dont work

Whow i make this?

[superchaveiro]

I need to load an original .bin file in a button. which command do I add to the button to compile in .xscr?

[superchaveiro]

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)
http://i227.photobucket.com/albums/dd129/hcip/smos-1.jpg


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 protectionlol

I need to load an original .bin file in a button. which command do I add to the button to compile in .xscr?

[superchaveiro]

how edit .xscr?

[Repinator]

someone has a script for Honda CRV 2016 eeprom 93C76 tssop8 ?

Thanks

[turbocip]

Hi,
Is there compatible scripts for upa UUSP - S ?
thank you in advance

[shuvarec]

Hi
If somebody have script calculator to toyota sienna and can share ?
Thanks

[Zaebasto]

Script for old VAG ECU's M3.X.X Bosch with EEprom 24C02 (B58258) Test and report!

[Paing Paing]

I send to you private message about this, Please kindly reply me if it is possible. Thanks..


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;

[Mohmmed Mustafa]

hi
Script of Renault Logan (Eeprom 93c56).
bye.
plz i want aal types of upa usb scripts

[Mohmmed Mustafa]

i want hyundai odometer upa usb script

[Mohmmed Mustafa]

upa usb full sript

[teerak2uk]

9 posts I want I want [emoji38][emoji38][emoji38][emoji38]

[chafik4051]

hi,
Please i need fujitsu mb91f script for upa-s (kia picanto 2016 dash)
Best Regards

[ivanrpm]

Hi guys, I am searching the algorit for hyundai i10 2017, 24c16(its different from old models), I need it for make the script.
I ran many calculators but I could not get the right one!


MANY THANKS
BEST REGARDS

[reproteq]

Hi , I am making a immo device script

Wat is the best code for save read device to file.bin

thanks in advance

[reproteq]

I?m having troubles with SaveToFile(). It appears like unkonwn operator, any idea???
hi , bro i am in same part.

you solved?

wat code use you ?

thanks

[maruti]

hello
i attach pajero scripts but when write km always o km , please help me

in scripts how to program which one write & how to , hex or how

thanks

[reproteq]

4 Pascal Script Reference


4.1 Device Management


function AddAction( Caption, ProcName, DeviceName: string ): boolean


function AddDevice( DeviceName, Description, GroupName, InheritedDeviceName: string ): boolean


function AddDeviceGroup( GroupName, Description: string ): boolean


function BlankCheckDevice: boolean


function GetDevice( DeviceName: string; var DevBase: TDevice ): boolean


procedure HideDeviceOrGroup( DeviceOrGroupName: string )


function ProgramDevice: boolean


function ReadDevice: boolean


procedure ShowDeviceOrGroup( DeviceOrGroupName: string )


function VerifyDevice: boolean





4.1.1 AddAction


function AddAction( Caption, ProcName, DeviceName: string ): boolean


4.1.2 AddDevice


function AddDevice( DeviceName, Description, GroupName, InheritedDeviceName: string ): boolean


4.1.3 AddDeviceGroup


function AddDeviceGroup( GroupName, Description: string ): boolean


4.1.4 BlankCheckDevice


function BlankCheckDevice: boolean


4.1.5 GetDevice


function GetDevice( DeviceName: string; var DevBase: TDevice ): boolean


4.1.6 HideDeviceOrGroup


procedure HideDeviceOrGroup( DeviceOrGroupName: string )


4.1.7 ProgramDevice


function ProgramDevice: boolean


4.1.8 ReadDevice


function ReadDevice: boolean


4.1.9 ShowDeviceOrGroup


procedure ShowDeviceOrGroup( DeviceOrGroupName: string )


4.1.10 VerifyDevice


function VerifyDevice: boolean





4.2 File I/O


function AddOpenFileAction( Caption, DeviceName, FileName: string ): boolean


function OpenFile( FileName: string ): boolean


4.2.1 AddOpenFileAction


function AddOpenFileAction( Caption, DeviceName, FileName: string ): boolean


4.2.2 OpenFile


function OpenFile( FileName: string ): boolean


4.3 Hex Editor


function GetByteHexEdit( Offset: integer ): byte


function GetSizeHexEdit: integer


procedure RefreshHexEdit


function SelectAllMemoryRange: boolean


function SelectEEPROMRange: boolean


procedure SetByteHexEdit( Offset: integer; Value: byte )


procedure SetProgramModifiedOnly( Value: boolean )


function SetProgramRange( StartVal, EndVal: integer ): boolean


4.3.1 GetByteHexEdit


function GetByteHexEdit( Offset: integer ): byte


4.3.2 GetSizeHexEdit


function GetSizeHexEdit: integer


4.3.3 RefreshHexEdit


procedure RefreshHexEdit


4.3.4 SelectAllMemoryRange


function SelectAllMemoryRange: boolean


4.3.5 SelectEEPROMRange


function SelectEEPROMRange: boolean


4.3.6 SetByteHexEdit


procedure SetByteHexEdit( Offset: integer; Value: byte )


4.3.7 SetProgramModifiedOnly


procedure SetProgramModifiedOnly( Value: boolean )


4.3.8 SetProgramRange


function SetProgramRange( StartVal, EndVal: integer ): boolean





4.4 Message and Input Boxes


procedure AddMsg( Text: string )


procedure ClearMsgs


function InBox( Caption, EditLabel: string; var Value: string ): boolean


function MsgBox( Text, Caption: string; Flags: integer ): integer


4.4.1 AddMsg


procedure AddMsg( Text: string )


4.4.2 ClearMsg


procedure ClearMsgs;


4.4.3 InBox


function InBox( Caption, EditLabel: string; var Value: string ): boolean


Displays a prompt in a dialog box, waits for the user to input text or click a button, and


returns the contents of the text box to Value parameter.


Parameters


Caption: string


string that contains the input box title


EditLabel: string


string that contains the edit control label


Value: string


Return Value


If the user clicks OK or presses ENTER, the InBox function returns True and Value


parameter, whatever is in the text box. If the user clicks Cancel, the function returns False.


4.4.4 MsgBox


function MsgBox( Text, Caption: string; Flags: integer ): integer


The MsgBox function creates, displays, and operates a message box


Parameters


Text: string


string that contains the message to be displayed


Caption: string


string that contains the dialog box title


Flags: integer


Specifies the contents and behavior of the dialog box. This parameter can be a combination of


flags from the following groups of flags. To indicate the buttons displayed in the message


box, specify one of the following values.


MB_OK


The message box contains one push button: OK. This is the default.


MB_OKCANCEL


The message box contains two push buttons: OK and Cancel.


MB_ABORTRETRYIGNORE


The message box contains three push buttons: Abort, Retry, and Ignore.





MB_YESNOCANCEL


The message box contains three push buttons: Yes, No, and Cancel


MB_YESNO


The message box contains two push buttons: Yes and No.


MB_RETRYCANCEL


The message box contains two push buttons: Retry and Cancel.


To display an icon in the message box, specify one of the following values.


MB_ICONHAND


A stop-sign icon appears in the message box.


MB_ICONQUESTION


A question-mark icon appears in the message box.


MB_ICONEXCLAMATION


An exclamation-point icon appears in the message box.


MB_ICONASTERISK


An icon consisting of a lowercase letter i in a circle appears in the message box.


MB_ICONWARNING


An exclamation-point icon appears in the message box.


MB_ICONERROR


A stop-sign icon appears in the message box.


MB_ICONINFORMATION


An icon consisting of a lowercase letter i in a circle appears in the message box.


MB_ICONSTOP


A stop-sign icon appears in the message box.


Return Value


If the function fails, the return value is zero.


If the function succeeds, the return value is one of the following menu-item values.


IDABORT Abort button was selected.


IDCANCEL Cancel button was selected.


IDIGNORE Ignore button was selected.


IDNO No button was selected.


IDOK OK button was selected.


IDRETRY Retry button was selected.


IDYES Yes button was selected.


4.5 Miscellaneous


Application: TApplication


InputForm: TForm





function IntToHex( Value: Integer; Digits: Integer ): string


procedure SetProductInfo( ProductName, Description: string )


4.5.1 Application


Application: TApplication


4.5.2 InputForm


InputForm: TForm


4.5.3 IntToHex


function IntToHex( Value: Integer; Digits: Integer ): string


4.5.4 SetProductInfo


procedure SetProductInfo( ProductName, Description: string )


4.6 RemObjects Pascal Script


Types


Reserved words


Statements


Library





4.6.1 Library


function FloatToStr( e: extended ): string


function IntToStr( i: Longint ): string


function StrToInt( s: string ): Longint


function StrToIntDef( s: string; def: Longint ): Longint


function Copy( s: string; ifrom, icount: Longint ): string


function Pos( substr, s: string ): Longint


procedure Delete( var s: string; ifrom, icount: Longint ): string


procedure Insert( s: string; var s2: string; ipos: Longint ): string


function GetArraylength( var v: array ): Integer


procedure SetArrayLength( var v: array; i: Integer )


function StrGet( S : String; I : Integer ) : Char


function StrSet( c : Char; I : Integer; var s : String ) : Char


function Uppercase( s : string ) : string


function Lowercase( s : string ) : string


function Trim( s : string ) : string


function Length( s : String ) : Longint


procedure SetLength( var S: String; L: Longint )


function Sin( e : Extended ) : Extended


function Cos( e : Extended ) : Extended


function Sqrt( e : Extended ) : Extended


function Round( e : Extended ) : Longint


function Trunc( e : Extended ) : Longint


function Int( e : Extended ) : Longint


function Pi : Extended


function Abs( e : Extended ) : Extended


function StrToFloat( s: string ): Extended


function FloatToStr( e : Extended ) : String


function Padl( s : string; I : longInt ) : string


function Padr( s : string; I : longInt ) : string


function Padz( s : string; I : longInt ) : string


function Replicate( c : char; I : longInt ) : string


function StringOfChar( c : char; I : longInt ) : string


4.6.2 Reserved words


AND


ARRAY


AS


BEGIN


CASE


CHR


CLASS


CONST


CONSTRUCTOR


DESTRUCTOR


DIV


DO


DOWNTO


ELSE


END


EXCEPT


EXIT


EXPORT


EXTERNAL





FINALLY


FOR


FORWARD


FUNCTION


GOTO


IF


IMPLEMENTATION


IN


INHERITED


INTERFACE


IS


LABEL


MOD


NIL


NOT


OF


OR


ORD


OUT


OVERRIDE


DEFAULT


PRIVATE


PROCEDURE


PROGRAM


PROPERTY


PROTECTED


PUBLIC


PUBLISHED


RECORD


REPEAT


SET


SHL


SHR


THEN


TO


TRY


TYPE


UNIT


UNTIL


USES


VAR


VIRTUAL


WHILE


WITH


XOR


4.6.3 Statements


begin statement1; ... statementN; end


if expression then statement1 else statement2


for counter := expression1 to|downto expression1 do statement


case expression of caseList1: statement1; ... caseListn: statementN; end


repeat statement until expression


while expression do statement


with object do statement


uses





try statement except|finally statement end


exit


continue


break


4.6.4 Types


Byte, Shortint, Word, SmallInt, Cardinal, Longint, Integer


Char


String


Real, Double, Single, Extended,Comp


Boolean


Array


Record


Variant


Enumerations


Classes

[reproteq]

hi

is posible paste here a liltle script for save file when readDevice;

Program Prog1;


///////////vars/////////////////////
var code_1,code_2,code_3,code_4,code_5,DataArray,DataR eaded: string;
spstr1,spstr2, offstr1, offstr2, offstr3, offstr4, offstr5,filepath: ansistring;
////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
///////////////////////////// function ReadData //////////////////////////////
Procedure ReadData;


begin
//////vars///////


offstr1 := '0x53';
offstr2 := '0x65';
offstr3 := '0x67';
offstr4 := '0x82';
offstr5 := '0x96';
filepath := 'C:\Users\w7\Desktop\ReadFile_dump.bin';

thanks

[maruti]

hello
thanks a lot bcoz i just try not much more pascal knowledge but try

thanks

[maruti]

hello
dear very sorry but , u told me save like this scripts & paste read file

thanks

[ivanrpm]

Hi Maruti, here is your script working , now it writes!

[maruti]

HELLO
Code_1:= inttohex(GetByteHexEdit($0A),2)+inttohex(GetByteHe xEdit($0B),2)+inttohex(GetByteHexEdit($08),2)+intt ohex(GetByteHexEdit($09),2);
i change above bcoz hex swap
now all okk km show ok

thanks

[Basmihama88]

is the any one whose know how to connect an E8a of renesas to R5F3563EJFF MCU? I'm newbie here so I'm still co591817nfusing to connect it. I've try to connect some wire to pin oi mcu but there is not working.591816

[maruti]

HELLO

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

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

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

this two stage how to sory for lots of question but i want to learn

thanks for help

[reproteq]

hi

is posible paste here a liltle script for save file when readDevice;

Program Prog1;


///////////vars/////////////////////
var code_1,code_2,code_3,code_4,code_5,DataArray,DataR eaded: string;
spstr1,spstr2, offstr1, offstr2, offstr3, offstr4, offstr5,filepath: ansistring;
////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
///////////////////////////// function ReadData //////////////////////////////
Procedure ReadData;


begin
//////vars///////


offstr1 := '0x53';
offstr2 := '0x65';
offstr3 := '0x67';
offstr4 := '0x82';
offstr5 := '0x96';
filepath := 'C:\Users\w7\Desktop\ReadFile_dump.bin';

thanks

i solved problem with this code .
is maked from genuine upa v1.500r2

/////////////////////////// FUNCTION ////////////////////////////////////
procedure Button2Click(Sender: TObject);
var he: TXHexEdit
prHe: TXhexEdit;
// AHexEdit: TXhexEdit;
i, n: integert;
b: byte;


//////openfile
begin
he := GetHexEdit();
if he <> nil then
if OpenDialog1.Execute('') then
he.OpenFile( OpenDialog1.FileName );
Clearmsgs
AddMsg('OPEN FILE OK!');


/////load data hex to app
prHe := GetHexEdit;
if prHe <> nil then begin
n := prHe.GetDataSize;
XHexEdit1.SetDataSize( n );
for i := 0 to n do begin
b := prHe.GetByteData( i );
XHexEdit1.SetByteData( i, b );
end;
XHexEdit1.DrawGrid;
end;


end;

[reproteq]

I am working in a full soft for upa
here image of desktop
when i finish i can share here.
thanks592508

[reproteq]

592509I am working in a full soft for upa
here image of desktop
when i finish i can share here.
thanks592508


sorry i duplicate post for is error.

[reproteq]

Mi aportation code uds for immooff msa15 edc15v

Program Prog1;


///////////vars/////////////////////
var code_1,code_2,code_3,code_4,code_5,DataArray,DataR eaded: string;
spstr1,spstr2, offstr1, offstr2, offstr3, offstr4, offstr5 : ansistring;
////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
///////////////////////////// function ReadData //////////////////////////////
Procedure ReadData;


begin
//////vars///////
spstr1 := ' ';
spstr2 := ' ';
offstr1 := '0x53';
offstr2 := '0x65';
offstr3 := '0x67';
offstr4 := '0x82';
offstr5 := '0x96';




if not ReadDevice then
begin
MsgBox( 'Read Error', 'Error', MB_OK );
end
else begin
DataArray:= offstr1 + spstr1 + inttohex(GetByteHexEdit($53),2)+ spstr2 +
offstr2 + spstr1 + inttohex(GetByteHexEdit($65),2)+ spstr2 +
offstr3 + spstr1 + inttohex(GetByteHexEdit($67),2)+ spstr2 +
offstr4 + spstr1 + inttohex(GetByteHexEdit($82),2)+ spstr2 +
offstr5 + spstr1 + inttohex(GetByteHexEdit($96),2);

MsgBox( DataArray, 'DataReaded', MB_OK or MB_ICONINFORMATION );

//AddSaveFileAction( 'SAVEFILEREAD', 'IMMO_VAG_MSA15-EDC15', 'C:\Users\w7\Desktop\ReadFile_IMMO_VAG_MSA15-EDC15.bin' );

end;
end;


///////////////////////////////////////////////////////////////////////////
///////////////////////////function IMMOOFF ///////////////////////////////
procedure ImmoOFF;


//////vars///////
var data1,data2,data3,data4,data5,value1,value2,value3 ,value4,value5 : integer;
/////

begin ////////////////////////readerror ////////////////////////


if not ReadDevice then begin
MsgBox( 'Read Error', 'Error', MB_OK );
end

else begin ////////////////////////setmodify ////////////////////////


SetProgramModifiedOnly( true );
if MsgBox( 'Erase Immo Data?', 'Confirm', MB_YESNO ) = IDYES then begin

///set value1 ////
data1 := $53;
value1 := $60;
SetByteHexEdit(data1 , value1);


///set value2 ////
data2 := $65;
value2 := $60;
SetByteHexEdit(data2 , value2);


///set value3 ////
data3 := $67;
value3 := $60;
SetByteHexEdit(data3 , value3);


///set value4 ////
data4 := $82;
value4 := $60;
SetByteHexEdit(data4 , value4);


///set value5 ////
data5 := $96;
value5 := $60;
SetByteHexEdit(data5, value5);


RefreshHexEdit;
end;
end;
end;






begin
AddDeviceGroup( '_REPROTEQ:SCRIPT_', 'SELECT DEVICE CAR' );
AddDevice( 'IMMO_VAG_MSA15-EDC15', '24C02 ', '_REPROTEQ:SCRIPT_', '24C02');

AddAction( 'Read_Data', 'ReadData', 'IMMO_VAG_MSA15-EDC15' );
AddAction( 'Immo_OFF', 'ImmoOFF', 'IMMO_VAG_MSA15-EDC15' );

// AddOpenFileAction( 'BOX Top Side', 'IMMO_VAG_MSA15-EDC15', 'VW2.jpg' );
//AddOpenFileAction( 'PCBoard Top Side', 'IMMO_VAG_MSA15-EDC15', 'VW1.jpg' );
//AddOpenFileAction( 'Connections', 'IMMO_VAG_MSA15-EDC15', 'VW3.jpg' );

AddMsg('Script (REPROTEQ_IMMO_VAG_MSA15-EDC15.uds) Installed OK! Reproteq'#169'');
SetProductInfo( 'REPROTEQ_IMMO_VAG_MSA15-EDC15', 'Script'#$D' Reproteq '#169'');
end.

[bermuxa77]

Hi
I wanted script for benz dash w212 2013-, w205, w447. I will pay.

[mikroel]

// AddOpenFileAction( 'BOX Top Side', 'IMMO_VAG_MSA15-EDC15', 'VW2.jpg' );
//AddOpenFileAction( 'PCBoard Top Side', 'IMMO_VAG_MSA15-EDC15', 'VW1.jpg' );
//AddOpenFileAction( 'Connections', 'IMMO_VAG_MSA15-EDC15', 'VW3.jpg' );

do you have VW2.jpag,VW1.jpg,VW3.jpg also?

also other part of script with screen ?

[reproteq]

this code is commented because not use this images.
but if you want can uncomment and add images of ecu and eeprom.

this is a simple script

[mikroel]

Yes i see that but ,

You have few mistakes in this script



Sent from my iPhone using Tapatalk

[hectorcairo]

Hello good day, maybe a script that goes well, for Body FIAT 326?

regards

[rybenz]

Hello all friends...
Does anybody can make immo off script for denso, fujitsu, mitsubishi Ecu please?.
Thank you.

[turbocip]

Can i use this scripts at this thread with UPA UUSP?
Thanks in advance

[Panathaole]

Hello.
I read an ecu iaw 5nf,(eeprom on board) but when writing, a part of the memory Is not write, I managed to write in this area after many attempts, eeprom is not from the ecu it is one st95160, the programmer is written normally the chip.... But upa doesn't, do you know something about it?

[doditntd]

hello i need a script for dash of FIAT SCUDO 2014 with 95020 eprom.
thanks

[catalinosonesti]

Hy.can somone help with calculator hex for full Ford kuga 2011 mcu 9s12xh256 because i can read but in my carprog no calculator for this mcu .thank

[Sanek222]

hi it's here http://www.softdump.net/ru/skripty-upa-usb/ford-visteon.html

[bekescars]

hey guys, anyone have spc560P50 please?

[rybenz]

Hello..
Can r/w Fujitsu Mcu MB91F with Upa V1.3 clone?
Thanks.

[galaxy0634]

Hello..
Can r/w Fujitsu Mcu MB91F with Upa V1.3 clone?
Thanks. No. Only original upa

[rybenz]

No. Only original upa

Ok thank you.

[kappa1]

Hi i need script for UPA USB to read protected MCU MC9S12DG256 , MC9S12DP512
I have this error
Reading: 1 Errors Found Device: MC9S12DG256 Range: 0-FFF
Thanks in advance!

[donchester]

hi. if i download this script how can i attach it to open with upa? i tried adding it to its folder but stays in RAR is this script TO EDIT MILEAGE ?

[nsacodificadas]

Hello Greetings to all ... I hope not to bother with my question in this thread, if you go elsewhere the query let me know .. please.
Anyone with the script design could tell me what method or application they use to encrypt the scripts uds files? Thank you so much

[michel almeida]

​IhaveThesamedoubtlikeencryptthescriptsforudx

[rybenz]

Hello mates.
I need help, does anyone have script/calc for Nippon Seiki dashboard?.
Thanks before.

[rtbdiagnostic]

Anybody can help with upa usb script for toyota steering angle sensor hilux 89245-0K010 :peaceful:

[michel almeida]

how to use this code here


Example:(hcip (https://www.digital-kaos.co.uk/forums/member.php/107817-hcip))
function DecryptSerNo: string;
const sn = ($05ABCDEF shl 4) + 7;
begin
result := UpperCase(inttohex(sn shr 4 , 8 ));
end;

begin
If GetUUSPSerialNumber <> DecryptserNo then begin
ShowMessage('Script was locked to UPA serial number ' + DecryptserNo
+#10+ ' All menu will not be loaded' + #10
+ ' Please Contact Hcip')
exit;
end else

AddDeviceGroup( '< Dash Correction >', 'Select Menu' );


AddDeviceGroupEx( 'BMW', 'Select a Car', '< Dash Correction >' );
AddDeviceex( 'Z3 inside Sw 9,10', '93S56', 'BMW', '93S56', 'E36', 'HideE36');
AddAction( 'Show ', 'ShowE36', 'Z3 inside Sw 9,10' );
end.





I didn't understand how to use this code in my script
I want to protect the serial from being edited



uses
Classes, Graphics, Controls, Forms, Dialogs, CARTECH_ELETRONICA_2, uuprog, CARTECH_ELETRONICA_5;
//=============================================//
// TODOS OS DIREITOS SÃO RESERVADOS CARTECH_ELETRONICA //
//=============================================//
procedure ShowForm;
var f,COD,CODX: TForm;
ownerf: TForm;
begin
codx:= GetUUSPSerialNumber;
cod:='0544961E'
if cod=codx then begin
ownerf := GetHexEdit;
if ownerf = nil then
exit;
f:= FindForm2( ownerf, 'Form2')
if f = nil then
f := TForm2.Create (Application);
f.Show;
f.BringToFront;
end;
end;
//=============================================//
procedure CreatePage( AParent: TForm; Caption: string );
begin
end;
//=============================================//
procedure DestroyPage( AParent: TForm );
var f: TForm;
begin
f := FindForm2( AParent, 'Form2' );
if f <> nil then begin
AParent.RemoveComponent( f )
f.Free;
end;
end;
//============== MENÚ DE FUNÇÕES =============//
begin
AddDeviceGroup('CARTECH_ELETRONICA IMOBILIZADOR CHEVROLET','SELECIONE ABAIXO A OPÇÃO DESEJADA');
AddDeviceEx('CHEVROLET CONTINENTAL OPEL 2R MC68HC08AZ32','CARGA 03 > < MC68HC08AZ32','CARTECH_ELETRONICA CHEVROLET','MC68HC08AZ32','SHOWFORM','');
AddAction('CARTECH_ELETRONICA MENÚ DE FUNÇÕES','SHOWFORM','CHEVROLET CONTINENTAL OPEL 2R MC68HC08AZ32');
AddMsg('IMOBILIZADOR CHEVROLET OPEL 2R MC68HC08AZ32'#169'TODOS OS DIREITOS RESERVADOS SERIAL ='+ GetUUSPSerialNumber);
//clearmsgs;
end.

[cjts2014]

English only :rulez: !!! MOTOROLA ...9S12XHY256

[Zaebasto]

Magnetti marelli 7GV ECU Immodata editor. Test and report!

[lgmchaveiro]

682384

hello friends i'm creating my version of 7gv .am new to the subject in scritp, i am having trouble in command to report status of immo on or off .o command used in uds ok as of friend Zaebasto.but as i am creating in form not correct on and off.
old command and this one.

Code:=inttohex(GetByteHexEdit($E2),2);//IMMO state
n4:= strtoint('$'+Code) XOR mask;
Code1:= '';
Code2:= '';
Code3:= '';
Code1:= Code1 + chr($4F)+chr($4E)+chr($20);//ON
SetLength(Code1,3);
Code2:= Code2 + chr($4F)+chr($46)+chr($46);//OFF
SetLength(Code2,3);
Code3:= Code3 + chr($56)+chr($49)+chr($52)+chr($47)+chr($49)+chr($ 4E);//VIRGIN
SetLength(Code,3);
Code3:=inttohex(GetByteHexEdit($E7),2)+inttohex(Ge tByteHexEdit($E6),2);// pincode


can someone help please

[rafal]

i am looking for ezs mercedes sprinter script ( upa-s ) ................have someone?

[talo15]

Hi everyone,
I hope someone can help me. I'm doing a scrip to change the vin from the scrip, but I can't make it work
I need the algorithm to write a new vin in a dump.
Can someone help me please.

[Zaebasto]

I cant create the same form... I try but no sucsess.

[Zaebasto]

RCD310/RCD510 with 95128 + NEC calc (bosch/blaupunkt) Free to all! NEC string in dump offset FF000 or 9F000. Also work with NECREADER string.Can crypt any eeprom in existing NEC - if you loose ori eeprom. Reset safe, change code. Press thanks! Test and report!

[Zaebasto]

I need sample of function function NewFile( strFName: string; iSize: integer ): boolean - i can`t save to file

[Zaebasto]

New version of script for VAG old benzin BOSCH ecu with 24C02 (B58258) eeprom. Test and report! Press THANKS + REP!

[Zaebasto]

Anybody have CRC32 source for upa?

[rybenz]

Hello mates.
I need help, does anyone have script/calc for Nippon Seiki dashboard?.
Thanks before.

Does anyone can help please?

[AvechuchoAxel]

Does anyone have scripts for honda CIVIC 2017 with 93c86 in MILES ?

Thank You!!

[carbandit]

Does anyone have scripts for honda CIVIC 2017 with 93c86 in MILES ?

Thank You!!

mate if you have a digiprog ... do under honda crz menu

[AvechuchoAxel]

Mileage changed fine, but is NOT counting or increasing the miles.
Tachosoft online same problem....

I have customer waiting next to me like a lead soldier!! :)

[cat barin]

Good evening will help to understand the data present in the scripts
AddDevice ('Device1' # 0 # 88, '68HC05B8 - 0F10V', 'Subgroup1' # 0 # 23, 'MC68HC912B32');
AddMsg ('Sample Device Script (Project1.xscr) Installed' # 169 '2005 ELRASOFT'
interested in # 0 # 88; # 0 # 23, # 169
the role and purpose of this data in the script

[cat barin]

I am a beginner and I don’t know to whom it will turn out with such simple questions in the manual to UPA there is no description of these data but in the example script there are
for early thanks everyone who responded in the self-study explanation

[cat barin]

I apologize for the inconvenience associated with my English

[lgmchaveiro]

hello guys .I'm trying to create a form where I can open the file of an immo and an ecu to create sync .and I'm having difficulties. a friend could help me create this formula.
I want to thank the other friends who have already helped me.700499

[Zaebasto]

CRC16 source. Free to all! Polynomial: 0x8005, Initial Value: 0xFFFF Final Xor Value: 0x0 (CRC16_modbus).
Press THANKS + REP!

[Zaebasto]

Scripts for VAG Simos 3 7 9 ecu. Test and report! Press THANKS + REP!

[Zaebasto]

Scripts for VAG Simos ecu - decode and encode flash file. Work wery slow - up to 10 mins. Write just for fun!) Test and report! Press THANKS + REP!

[Seby_TM]

If some one is interesting I designed and build new adapter what is work with New UUSP-S, UPAS and also with Old UPA-USB programmer and also with scripts.

In + this adapter can connect and work also together with down link adapters from MCUs or Eeproms for user what had yet this.

https://ae01.alicdn.com/kf/HTB1tqJyX...oq6xIxVXao.jpg (https://ae01.alicdn.com/kf/HTB1tqJyXs_vK1Rjy0Foq6xIxVXao.jpg)

https://ae01.alicdn.com/kf/HTB1DUxwX...bq6xbDXXaQ.jpg (https://ae01.alicdn.com/kf/HTB1DUxwXu6sK1RjSsrbq6xbDXXaQ.jpg)

https://frankfurt.apollo.olxcdn.com/v1/files/600oigkmwv7m3-RO/image;s=1000x700

https://frankfurt.apollo.olxcdn.com/v1/files/sucatcpkggxs3-RO/image;s=1000x700

[talo15]

Greetings, someone has the precedence to open a web page from the scrip.
please

[KADE007]

Hi to all ,

Is it possible to have script for MERCEDES SPRINTER EZS W906 with 9S12DT256 ?

I never found it...
Big thanks for your hard work !
Regards.

[lexuscar]

[QUOTE = Seby_TM; 3842042] Se alguém é interessante, eu projetei e construí um novo adaptador, o que funciona com o New UUSP-S, UPAS e também com o antigo programador UPA-USB e também com scripts.

No +, este adaptador pode conectar-se e trabalhar também em conjunto com adaptadores de link inativo de MCUs ou Eeproms para o usuário que ainda possuía isso.

https://ae01.alicdn.com/kf/HTB1tqJyX...oq6xIxVXao.jpg (https://ae01.alicdn.com/kf/HTB1tqJyXs_vK1Rjy0Foq6xIxVXao.jpg)

https://ae01.alicdn.com/kf/HTB1DUxwX...bq6xbDXXaQ.jpg (https://ae01.alicdn.com/kf/HTB1DUxwXu6sK1RjSsrbq6xbDXXaQ.jpg)

https://frankfurt.apollo.olxcdn.com/v1/files/600oigkmwv7m3-RO/image;s=1000x700

https://frankfurt.apollo.olxcdn.com/v1/files/sucatcpkggxs3-RO/image;s=1000x700 [/ QUOTE]

[Zaebasto]

VAG MED9 ecu script - read and change immodata, VIN,ID Immo OFF/ON. Fix P0601 error -just choose any operation in script. Press thanks + rep! Test and report!

[lgmchaveiro]

746826

my immo m11 chery solution, in brazil.

[nourauto]

need script GREAT WALL for upa 2015........ 2013

GREAT WALL VOLEEX C30 with EEPROM 93С66

GREAT WALL VOLEEX C30 with MCU MC9S12HY48

[gts123]

need script nissan juke for upa 2014-2017

[nourauto]

need script GREAT WALL VOLEEX C30 for upa 2013........ 2015
770381

[gaston37]

hello guys .I'm trying to create a form where I can open the file of an immo and an ecu to create sync .and I'm having difficulties. a friend could help me create this formula.
I want to thank the other friends who have already helped me.700499

Hello I know you found the solution, you guide me that I am with the same problem. thanks

[cartagena]

Hello, any one can help how to solve this script I made, cannot get the good kilometer calculation back into hex., in this 24C16 chip,
sorry I am a beginner for this but trying to learn making script.

************************************************** **********************************************
Program Prog1;
var
a,Code,Code_1: string;
KM,KM_2,KM_3,KM_4: Integer;
Procedure ReadKM;
begin
if not ReadDevice then
begin
MsgBox( 'Read Error', 'Error', MB_OK );
end
else
begin
Code:=inttohex(GetByteHexEdit($07C),2)
+inttohex(GetByteHexEdit($07D),2)
+intToHex(GetbyteHexEdit($07E),2)
+intToHex(GetByteHexEdit($07F),2);
KM:=($ -(StrToInt('$'+code))/58537);




AddMsg('Actual value' + ' = '+ IntToStr(KM)+' km');
MsgBox(IntToStr(KM) +' km', 'Actual value', MB_OK);
end;
end;
procedure NewKM;
var
n3,n2,n6,n7,new_KM,new_KM2: integer;
n1,n5,n8,code,code_2,n4: String;


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


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


new_km:= (strtoint(code));


n1 := +inttostr(new_KM);
n2 := strtoint(n1);
n3 :=$58537 *(n2);
n4 := inttohex(n3,4);


new_km2:= (strtoint(Code_2));


n5 := +inttostr(new_KM2);
n6 := strtoint(n5);
n7 :=$58537 *(n6);
n8 := inttohex(n7,4);




SetByteHexEdit( $07D,(strtoint ('$'+n4[3]+n4[4])));
SetByteHexEdit( $07C,(strtoint ('$'+n4[1]+n4[2])));


SetByteHexEdit( $08D,(strtoint ('$'+n4[1]+n4[2])));
SetByteHexEdit( $08C,(strtoint ('$'+n4[3]+n4[4])));


SetByteHexEdit( $07F,(strtoint ('$'+n8[3]+n8[4])));
SetByteHexEdit( $07E,(strtoint ('$'+n8[1]+n8[2])));


SetByteHexEdit( $08E,(strtoint ('$'+n8[3]+n8[4])));
SetByteHexEdit( $08F,(strtoint ('$'+n8[1]+n8[2])));


SetByteHexEdit( $080,(strtoint ('$'+n4[3]+n4[4])));
SetByteHexEdit( $081,(strtoint ('$'+n4[1]+n4[2])));


SetByteHexEdit( $091,(strtoint ('$'+n4[3]+n4[4])));
SetByteHexEdit( $090,(strtoint ('$'+n4[1]+n4[2])));


SetByteHexEdit( $083,(strtoint ('$'+n8[3]+n8[4])));
SetByteHexEdit( $082,(strtoint ('$'+n8[1]+n8[2])));


SetByteHexEdit( $092,(strtoint ('$'+n8[3]+n8[4])));
SetByteHexEdit( $093,(strtoint ('$'+n8[1]+n8[2])));


SetByteHexEdit( $085,(strtoint ('$'+n4[3]+n4[4])));
SetByteHexEdit( $084,(strtoint ('$'+n4[1]+n4[2])));


SetByteHexEdit( $094,(strtoint ('$'+n4[3]+n4[4])));
SetByteHexEdit( $095,(strtoint ('$'+n4[1]+n4[2])));


SetByteHexEdit( $087,(strtoint ('$'+n8[3]+n8[4])));
SetByteHexEdit( $086,(strtoint ('$'+n8[1]+n8[2])));


SetByteHexEdit( $096,(strtoint ('$'+n8[3]+n8[4])));
SetByteHexEdit( $097,(strtoint ('$'+n8[1]+n8[2])));


SetByteHexEdit( $089,(strtoint ('$'+n4[3]+n4[4])));
SetByteHexEdit( $088,(strtoint ('$'+n4[1]+n4[2])));


SetByteHexEdit( $098,(strtoint ('$'+n4[3]+n4[4])));
SetByteHexEdit( $099,(strtoint ('$'+n4[1]+n4[2])));


SetByteHexEdit( $08B,(strtoint ('$'+n8[3]+n8[4])));
SetByteHexEdit( $08A,(strtoint ('$'+n8[1]+n8[2])));


SetByteHexEdit( $09A,(strtoint ('$'+n8[3]+n8[4])));
SetByteHexEdit( $09B,(strtoint ('$'+n8[1]+n8[2])));


setByteHexEdit( $526,(strtoint ('$'+n4[3]+n4[4])));
setbyteHexEdit( $527,(strtoint ('$'+n4[1]+n4[2])));
end;
RefreshHexEdit;
if MsgBox( 'Program?', 'Confirm', MB_YESNO ) = IDYES then begin
SetProgramModifiedOnly( true );
ProgramDevice;
VerifyDevice;
ReadKM;
end;
end;
begin


AddDeviceGroup(('FORD'), 'Select a car' );
AddDevice('-=Ranger_Cluster', '24C16', 'FORD', '24C16' );
AddAction( 'ReadKM', 'ReadKM', '-=Ranger_Cluster' );
AddAction( 'New KM', 'NewKM', '-=Ranger_Cluster' );

end.

[fuzz1]

Hello
Is upa USB good for the new cars year 2018+?

[autocargo]

Of cours it is. I'm talking about the original uusp-s. Have a look on their page (Elrasoft). It''s constantly updated, at the moment it does a lot of new micro"s and eeproms. I recommend it. Good value for money. Life updates.

[fuzz1]

Thanks. However was thinking more about the clones.

[lgmchaveiro]

hello friend gaston37 you have to create 2 editors in upa. and don't use normal reading editor.

[lgmchaveiro]

hello friends, someone already managed to create a routine for checking and also adjust crc in med17 edc17 centrals, i know that it has 2 crc one 16 and one crc32, in some applications i can make crc16 and crc 16ccitt, i can exchange ideas on telegram 55 54 991062864 , it will be a great pleasure to share a little, but only in pm or telegram.


I really like creating applications for RFID and also sincere for immo.
sorry bad english

[GMXcool]

Hi

Delete from private message ! You cannot receive new messages !




hello friends, someone already managed to create a routine for checking and also adjust crc in med17 edc17 centrals, i know that it has 2 crc one 16 and one crc32, in some applications i can make crc16 and crc 16ccitt, i can exchange ideas on telegram 55 54 991062864 , it will be a great pleasure to share a little, but only in pm or telegram.


I really like creating applications for RFID and also sincere for immo.
sorry bad english

[lgmchaveiro]

[QUOTE = GMXcool; 4042853] Olá,

Excluir da mensagem privada! Você não pode receber novas mensagens! [/ QUOTE]

I don't understand friend, what should I do

[lgmchaveiro]

[QUOTE = GMXcool; 4042853] Olá,

Excluir da mensagem privada! Você não pode receber novas mensagens! [/ QUOTE]

Não entendo amigo, o que devo fazer

[GMXcool]

Your messages on this forum is full (check Inbox). You must delete messages in order to receive more !

Suas mensagens neste fórum estão cheias (marque a caixa de entrada). Você deve excluir mensagens para receber mais !!!



[QUOTE = GMXcool; 4042853] Olá,

Excluir da mensagem privada! Você não pode receber novas mensagens! [/ QUOTE]

Não entendo amigo, o que devo fazer

[lgmchaveiro]

a small contribution to the friends of the forum
fiat 500 eeprom 93c86X16 decript keys

REQUIRES ONLY IN UPA S CURRENT VERSION

test and report

https://drive.google.com/file/d/1fiNdyhJ3SeZN5fCr-UzJVZoQzYN2MKCz/view?usp=sharing

[sonny21]

Someone have script for grande punto bcm(93c86)pincode?

[lgmchaveiro]

hello and the same I sent free friend fiat 500 and gran punto to make rfid


updated driver link. thank you please


https://drive.google.com/file/d/1fiNdyhJ3SeZN5fCr-UzJVZoQzYN2MKCz/view?usp=sharing

[lgmchaveiro]

hello friends i'm bringing an image and a dump to see if anyone has already managed to create algorithms or know what type of crc uses this ecu in brazil goal 4lv polo 4mv and ec 4gv with the same type of dump
781193

[lgmchaveiro]

hello friends i'm bringing an image and a dump to see if anyone has already managed to create algorithms or know what type of crc uses this ecu in brazil goal 4lv polo 4mv and ec 4gv with the same type of dump
i am not able to add a dump but ok image
some help please.781195

[gaston37]

can you give me an example?
Thank you

[gaston37]

hello friend gaston37 you have to create 2 editors in upa. and don't use normal reading editor.

can you give me an example?
Thank you

[apexseal]

Guys I'm trying to finish a script but I'm new to pascal, I need to find the address of the first instance of a string, searching from address $3FF0 and up (read from $3FF0 to $0000) then read the 4 bytes below that. For example if the string is found at $1010 then I need to read 4 bytes starting at $1020. There is more than one string but only the one closest to $3FFF is the correct one.

[apexseal]

Figured it out...

[fuzz1]

Figured it out...

Now you leave us wanting to know how you solved it. What was the solution

[apexseal]

Now you leave us wanting to know how you solved it. What was the solution

I used a Loop... Using for example a := a - 16...

[apexseal]

Now I need help trying to figure out how to add the overflow to the last byte for example if I get a result of "01 22 33" it needs to be "22 34" (like the ROL function in the windows calculator when set to word).

[fuzz1]

hello and the same I sent free friend fiat 500 and gran punto to make rfid


updated driver link. thank you please





https://drive.google.com/file/d/1fiNdyhJ3SeZN5fCr-UzJVZoQzYN2MKCz/view?usp=sharing


Hi

The file when i clicked doesn't exist.

[astrocar]

815701

hello good nice

[marvelg]

Does anyone have a link for the scripts?
Thanks

[apexseal]

How do I make the file name show in the top tab when using "open" button in my scripts? It says "Untited" when I open any file. My scripts work perfect (read/ modify and write) but I have not figured out that part. If I open the file using the main program it shows fine but when I use "open" button it says "Untited".

[apexseal]

Does anybody have a sample script to add mcu device?

[fuzz1]

Does anybody have a sample script to add mcu device?

Would you mind helping me out with the eeprom sample scripts?

[apexseal]

I don't have any. I use the ones embedded in the software. That is why I was asking for a sample...

[fuzz1]

There are a few on DK. They were meant to run on version 1.3 and locked to some serial numbers

[VIVEKmaurya]

Hi
I need Mahindra s2 script for clone upa it has
mcu MC9S12XEG128

Thanks in advance from india.

Sent from my Redmi Note 6 Pro using Tapatalk

[lgmchaveiro]

Hello boys , has anyone managed to understand these functions , or would have some examples to help .
i try to create a text search application or search hex , and also find and replace functions any help will be valid .

function ReplaceStr( pat: string; caseSens, bForward: boolean; rep: string ): boolean
function ReplaceStr2( pat: string; caseSens, bForward: boolean; rep: string; notice: boolean; BegAdr,
EndAdr: integer ): boolean
function SearchStr( pat: string; caseSens: boolean; bForward: boolean ): boolean
function SearchStr2( pat: string; caseSens: boolean; bForward: boolean
notice: boolean; BegAdr, EndAdr: integer ): boolean

pat= text search input
casesense= for upper or lower case
bForward: true read start to end
false end to beginning
these ?????
notice: boolean; BegAdr, EndAdr: integer

[lgmchaveiro]

one more challenge in upa crc16 cciit
the algorithm in lazarus ok but in upa result error some help

function Crc16_1(buffer: String ;Polynom ,Initial:Cardinal;final:Cardinal):int64;
///crc 16 ccitt
/// Polynom 1021
var
i, j: Integer;
begin
Result := initial; //valor inicial
for i := 1 to length(buffer) do
begin


Result := Result xor (Ord(buffer[i]) shl 8);
// ShowMessage(result)
for j := 0 to 7 do
begin
if (Result and $8000) <> 0 then
Result := (Result shl 1) xor Polynom
else
Result := Result shl 1;
end;
end;
Result := Result and $FFFF;
Result := Result xor final;


end;

procedure Button1Click(Sender: TObject);
var crc:integer;
begin
//STRING, poly, initial,final xor
edit1.text:= IntToHex( Crc16_1('97EC3111',$1021,$ffff,$0000),2);


end;

result = F296
but it works for me
result=EDFF


hellppppppppppp kkkkkkkkkkkkk

[lgmchaveiro]

solved cciit :aetsch:

[fuzz1]

solved cciit :aetsch:
Share your solution if u don't mind

thanks

[lgmchaveiro]

I sent private message

[lgmchaveiro]

I would like to attach the crc16 script for everyone, but I don't think attachments function.
hehehehehe :

:palm2:

[fuzz1]

HiAttachment function.
Or you can save it on mega or Google drive.

[fuzz1]

I would like to attach the crc16 script for everyone, but I don't think attachments function.
hehehehehe :

:palm2:


Hi

Here is your script attached

[fuzz1]

Hi

here is your attached script

it must be rared

Its from icmchaveiro

I don't know if it working correctly though. It says compute checksum. What is it supposed to do?

[Antonio266]

Hi guys, has someone managed to make a script for Eeprom CRC correction in M/EDC17 ecus?
I will also pay if someone has a working script..

[lgmchaveiro]

Olá amigo, posso fazer isso sim. mas é muito complicado que terei que fazer para você copiar o bloco 1 a 1 aberto no script e fazer com que ele ajuste o crc. para fazer todo o ecu carecem de alguns algoritmos. Procuro muitos algoritmos para fazer edc17 med17 vw immo data, porque emm brazil eu tenho outros ecus que ferramentas de nível mundial não fazem.

[lgmchaveiro]

829644

I'm currently working on a script for the mareli nec +95320 cluster
systems g6 g7 brazil up beatee jeeta, odometer in km immo data and rfid keys

[lgmchaveiro]

you should know the block of your file select, copy and paste in the crc16 editor, then compute crc it calculates checksum and will give you several results of crc 16 . if you know what type of crc16 uses your dump blocks you will understand the crc function.
this crc are all correct i used for base creation crc 16 online.

https://crccalc.com/

[fuzz1]

Hi

Just wondering if anyone has been able to read any mcu not listed officially with UPA-USB.

What chip have anyone tried and been successful (not officially listed as possible to be read by usb-upa)?

[cartagena]

Hello Every 'one'

Can Some one tell how to save file into Bin type in this sample script?

procedure Button4Click(Sender: TObject);
var e: TXHexEdit
begin
e := GetHexEdit();
if e <> nil then
if SaveDialog1.Execute(' ') then
e.SaveFile( SaveDialog1.FileName );
end;


A BIG thanks for help.

[fuzz1]

Hello Every 'one'

Can Some one tell how to save file into Bin type in this sample script?

procedure Button4Click(Sender: TObject);
var e: TXHexEdit
begin
e := GetHexEdit();
if e <> nil then
if SaveDialog1.Execute(' ') then
e.SaveFile( SaveDialog1.FileName );
end;


A BIG thanks for help.



Hi

I did not understand what you trying to do.

[javedahmad]

If you need files for test, here are some files readed with UPA. :playingball:
thanx for upa dumps

[Jardel]

[QUOTE = cartagena; 4210529] Olá a todos 'um'

Alguém pode dizer como salvar o arquivo no tipo Bin neste script de exemplo?

procedimento Button4Click (Sender: TObject);
var e: TXHexEdit
begin
e: = GetHexEdit ();
se e <> nulo então
se SaveDialog1.Execute ('') então
e.SaveFile (SaveDialog1.FileName);
fim;


Um MUITO obrigado pela ajuda. [/ CITAR]

[hcip]

Hello Every 'one'

Can Some one tell how to save file into Bin type in this sample script?

procedure Button4Click(Sender: TObject);
var e: TXHexEdit
begin
e := GetHexEdit();
if e <> nil then
if SaveDialog1.Execute(' ') then
e.SaveFile( SaveDialog1.FileName );
end;


A BIG thanks for help.


You can use SaveDialog Filter & filter index in code to show multiple selection of file

eg:
SaveDialog1.Filter :='Any File [*.*]|*.*|Binary [bin file]|*.bin|Diga [*.e2p File]|*.E2P|Motorola [S19, S28, S37, mot]|*.S19;*.S28*.S37;*.mot;|Motorola [S19]|*.S19|Motorola [S28]|*.S28|Motorola [S37]|*.S37|Motorola [PonyProg]|*.mot';


Code:
procedure Button4Click(Sender: TObject);
var e: TXHexEdit
begin
e := GetHexEdit();
SaveDialog1.Filter :='Any File [*.*]|*.*|Binary [bin file]|*.bin|Diga [*.e2p File]|*.E2P|Motorola [S19, S28, S37, mot]|*.S19;*.S28*.S37;*.mot;|Motorola [S19]|*.S19|Motorola [S28]|*.S28|Motorola [S37]|*.S37|Motorola [PonyProg]|*.mot';
if e <> nil then
if SaveDialog1.Execute(' ') then
e.SaveFile( SaveDialog1.FileName );
end;

See attached picture

[MYMN]

I also want to participate in this great topic, below 3 functions 100/100 working for the calculation of the CRC16
1.CRC16_KERMIT
2.CRC16CCITT_False
3.crc16_mcrf4xx

function CRC16_KERMIT(cadena : string):word;
var
valuehex : word;
i: integer;
CRC : word;
Begin
CRC := 0;
While i< length(cadena) do
begin
valuehex := ((strtoint('$'+cadena[i+1]+cadena[i+2]) XOR CRC) AND $0F) * $1081;
CRC := CRC SHR 4;
CRC := CRC XOR valuehex;
valuehex := (((strtoint('$'+cadena[i+1]+cadena[i+2]) SHR 4) XOR LO(CRC)) AND $0F);
CRC := CRC SHR 4;
CRC := CRC XOR (valuehex * $1081);
i:=i+2;
end;
CRC16_KERMIT:=(LO(CRC) SHL 8) OR HI(CRC);
end;

************************************************** **********
function crc16CCITT_False(Buffer:String):Cardinal;
Const polynom=$1021;
var
i,j: Integer;
Initial:word;
begin
Initial:=$ffff;
Result:=Initial;
i:=0;
While i< Length(Buffer) do begin
Result:=Result xor (strtoint('$'+buffer[i+1]+buffer[i+2]) shl 8);
for j:=0 to 7 do begin
if (Result and $8000)<>0 then Result:=(Result shl 1) xor Polynom
else Result:=Result shl 1;
end;
i:=i+2;
end;


Result:=Result and $ffff ;
end;

************************************************** ******
function crc16_mcrf4xx( data: string): word;
var
i,j: integer;
crc:word;
len:int64;
begin
crc:=$FFFF;
len:=length(data);
i:=0;
if len <= 0 then exit
else
begin
while i<len do begin
crc := crc xor strtoint('$'+data[i+1]+data[i+2]);
for j:=0 to 7 do
begin
if odd(crc) then
crc:=(crc shr 1) xor $8408
else
crc:=(crc shr 1);
end;
i:=i+2;
end;


end;


crc16_mcrf4xx:=crc;
end;


********************************
for the use of these functions:
crc16CCITT_False(Data); // data: must be in Hex
crc16_mcrf4xx(Data); // data: must be in Hex
CRC16_KERMIT(Data); // data: must be in Hex


You can check the results using the site https://crccalc.com/

these types of crc16 are commonly used, example bsi valeo and continental 95256, JC and Delphi 25128

[MYMN]

Example peugoet 3008 2017, BSI delphi.. mileage : 127000 km

0x2900............00 13 60 F0 FF EC 9F 0F 00 00 E7 7B

00 13 60 F0 : Mileage (127000 * 10 >>to Hex ).

FF EC 9F 0F : =(00 13 60 F0) xor (FF FF FF FF )

E7 7B : is the CRC, obtained using the function CRC16 CCITT False :

CRC16 CCITT False('001360F0FFEC9F0F0000') ; // the function returns: E7 7B

[Jardel]

Hello everyone... could someone help me with two questions? If so, the first is how to use a filename saved as the date of the day, for example using this type of command:






procedure Button4Click(Sender: TObject);
var e: TXHexEdit
begin
e := GetHexEdit();
if e <> nil then
if SaveDialog1.Execute(' ') then
e.SaveFile( SaveDialog1.FileName );
end;

The second one I've researched endlessly and I haven't found any way to encrypt the scripts with a .udx extension. Can someone help me?

[cartagena]

You can use SaveDialog Filter & filter index in code to show multiple selection of file

eg:
SaveDialog1.Filter :='Any File [*.*]|*.*|Binary [bin file]|*.bin|Diga [*.e2p File]|*.E2P|Motorola [S19, S28, S37, mot]|*.S19;*.S28*.S37;*.mot;|Motorola [S19]|*.S19|Motorola [S28]|*.S28|Motorola [S37]|*.S37|Motorola [PonyProg]|*.mot';



Code:
procedure Button4Click(Sender: TObject);
var e: TXHexEdit
begin
e := GetHexEdit();
SaveDialog1.Filter :='Any File [*.*]|*.*|Binary [bin file]|*.bin|Diga [*.e2p File]|*.E2P|Motorola [S19, S28, S37, mot]|*.S19;*.S28*.S37;*.mot;|Motorola [S19]|*.S19|Motorola [S28]|*.S28|Motorola [S37]|*.S37|Motorola [PonyProg]|*.mot';
if e <> nil then
if SaveDialog1.Execute(' ') then
e.SaveFile( SaveDialog1.FileName );
end;

See attached picture


Maraming Salamat Master Ito yung hinahanap ko.

[Jardel]

Maraming Salamat Master Ito yung hinahanap ko.

This is a savedialog. I need filename

[hcip]

This is a savedialog. I need filename


you can used expression:

Savedialog1.filename := DateTimetoStr(now);

[hcip]

@Jardel

Because the software doesnt allowed special character of decoded date to string, you can change the special character to acceptable character in code

I Attached The Full code for Save_File Command

[Jardel]

Thank you so much, Hcip once again! The code you posted earlier worked perfectly and this new one will certainly be of great help! I know you've been asked a lot, but in all my searches I didn't find what I was looking for, if it's not too much to ask, how do I encrypt my scrips in udx? No one so far knew how to leave this question in a way that I could understand... (apologies for my English).

[hcip]

Thank you so much, Hcip once again! The code you posted earlier worked perfectly and this new one will certainly be of great help! I know you've been asked a lot, but in all my searches I didn't find what I was looking for, if it's not too much to ask, how do I encrypt my scrips in udx? No one so far knew how to leave this question in a way that I could understand... (apologies for my English).


UDX is used in old UPA software(V1.1), I think somebody here has own the UDX packer soft to share, I dont have it anymore.

if you are using IDE (V 1.3) to write a code, you can compile it in *.xscr file, From IDE just click File>>>Save Compiled

[Jardel]

Exactly what I've been doing! Thank you so much again for your great help!With that explanation it was clear as light!

[cartagena]

Hello every one I have to ask what is the problem and how to solve this error, the code is run but when you put text number to the Edit Text and press ok then I get Error, please advise every one.

[MYMN]

Hello every one I have to ask what is the problem and how to solve this error, the code is run but when you put text number to the Edit Text and press ok then I get Error, please advise every one.

I have never used upa, but in pascal language, we must assign the types of variables to the declared variables:
in your script:
var n,code:integer;
Regarding your error, it is normal:
you did not give a value to your variable 'Code'

it is necessary to put :
Code:=strtoint(edit1.text);

before that you can put the following code, to avoid the error in case of not entering the value in edit1

if (edit1.text='' ) or ( strtoint(edit1.text)>9999) then begin

MsgBox( 'Your message Here ', 'Error', MB_OK );
exit;
end;

if you want to prohibit entering non-numeric characters you can use this code:

Val(edit1.text,code,i) ;// you have to declare the variable I as an integer
if i<>0 then begin
MsgBox( 'The entered value is not an integer', 'Error', MB_OK );
exit;
end;

I don't know if the val procedure works in the UPA compiler, but it exists in the pascal language

[cartagena]

hello mate I have another error variable is not an array and the Val procedure is not work in the IDE what should be the problem

[MYMN]

Load a clear image, I see nothing,
put your code here to see where the problem ,,

[cartagena]

Hello mate here is the code thank you

////////////////////////////////////////////////
procedure EditCode;
Var n, Code: integer;
begin
SetProgramModifiedOnly( True);
if (edit1.text='' ) or ( strtoint(edit1.text)>9999) then begin
if Length(Edit1.Text='')< 4 then begin
MsgBox( 'Enter 4 Numbers Only ', 'Error', 0 );
exit;
end;
end;
Code:=StrtoInt(edit1.text);


SetByteHexEdit($1F6, StrToInt('$'+ Code[1]+Code[2]));
SetByteHexEdit($1F7, StrToInt('$'+ Code[3]+Code[4]));
RefreshHexEdit;
end;

[cartagena]

I manage the code thank you mate

[apexseal]

Guys... Is there a way of writing anything bigger than a Dword??? I have to write a patch but it would take me forever to do it dword by dword...

[fuzz1]

Guys... Is there a way of writing anything bigger than a Dword??? I have to write a patch but it would take me forever to do it dword by dword...
Dword?

What's that?

[apexseal]

4 bytes bro... In any programming language.

[clusters]

Or to be more clear....

ff = Byte
ff ff = Word
ff ff ff ff = Dword
ff ff ff ff ff ff ff ff = Qword

[viytik1]

I wanted script for dash 95640 Mercedes Vito W447 .

[teed]

Send Foto, dump with km - will write

[viytik1]

Please.Number of kilometers of signature.

[teed]

It Is simple - get the files - ( Enter your SN (UPA-USB S) Private Message )

File Work with viytik1 upa-usb S

--- Delete no work file ---

[viytik1]

Old UPA error.

[teed]

How's the programmer version?

[viytik1]

Version 1.3 Build 0.14

[teed]

OK - I write to you
OLD UPA Version

testing

[viytik1]

digitalkaos2022.udxp: Invalid UDX/UDXP file or no Authorization

[viytik1]

After second start programm ok.Thanks.

[teed]

digitalkaos2022.udxp: Invalid UDX/UDXP file or no Authorization

Always connect the programmer to the computer

[breaker13]

yamaha yxz 1000rss
dash fujitsu mb96f6a6
need a full flash (method how to assemble and disassemble) size 295424
or edit/write/sell the script
upa-usb ori v.2.2

YamahaYXZ1000RSS
2018
MB96F6A6
5863km
304.9hour
need
800km
30hour




Flash A SAS
Flash A Lower
Flash A Upper



I can ride and send a couple more sets of files if necessary

[teed]

I don't understand - what do you expect?

[breaker13]

from the pieces to assemble a file for a ready-made calculator.
lost relevance.

[teed]

So these 3 files as one file