There's also PAKGEN of course, and I've pre-generated a bunch of PAKs that run most stuff (it doesn't do licenses which have the TOKEN field though). http://retrotron.sampsa.com/pliks/ (PLIKS.COM is the ready built PAK for most licenses) Zipped version can be found at http://retrotron.sampsa.com/pliks.zip sampsa <sampsa at mac.com> mobile +961 788 10537 On 25 Feb 2013, at 01:07, Peter Lothberg <roll at Stupi.SE> wrote: I got tired of the licence management... Anyone to update it to mordern versions? .title liza - disable or enable license checking in VMS. ; ; Author: Me. ; Date : Late night. ; Year : Happy New. ; City : A big place with many houses. ; ; This utility disables or enables license checking on the running system by ; patching the routine EXE$GRANT_LICENSE in system space. The patch ; applied simply moves SS$_NORMAL to R0 and then returns. If license ; checking is to enabled, the original contents is restored (CHMK #^X5B). ; NOTE! there seems to have been a change between 5.2 and 5.3, in 5.3 ; the service number seems to be 5B for grant_license, and 5C for ; release_license. Under 5.2 however, release_license have 5B, wonder what ; grant_license have? ; ; 22-JUN-1992 Under V 5.5, exe$grant_license have number ^X64 !! ; ; When this is run, all system integrated products (SIP's) can be ; used immedeately. Layered products have to be installed first, ; but will then run properly. ; ; Abstract: ; ; Nothing special. We create a double mapping to the physical memory ; that contains the routine (since the original mapping is write-protected!). ; We give our mapping U:W - protection, then it's only to copy our patch ; there. ; ; Privileges needed to run: all ; ; ; Assemble: ; ; $MAC LIZA ; ; Link: ; ; $LINK LIZA,SYS$SYSTEM:SYS.STB/SELEC ; $psldef $prtdef syspag: .blkl 1 .blkl 1 syspfn: .blkl 1 retadr: .blkl 1 .blkl 1 sysver: .long sys$k_version cr=13 lf=10 vermsg1: .ascid <cr><lf>/System version mismatch - was not linked under this version of VMS ./ vermsg2: .ascid <cr><lf>/ Please relink:/<cr><lf><lf> vermsg3: .ascid " $LINK LIZA,SYS$SYSTEM:SYS.STB/SELECTIVE"<cr><lf><lf> dismsg: .ascid /%LMC-S-DISB, License checking successfully disabled./ enamsg: .ascid /%LMC-F-ENAB, License checking fatally enabled./ chkena: .ascid /%LMC-I-ENAB, License checking is currently enabled/ chkdis: .ascid /%LMC-I-DISB, License checking is currently disabled/ alr_ena: .ascid /%LMC-I-ENAB, License checking is already enabled/ alr_dis: .ascid /%LMC-I-DISB, License checking is already disabled/ disflg: .blkb 1 chkflg: .blkb 1 enaqual: .ascid /ENABLE/ chkqual: .ascid /CHECK/ silqual: .ascid /SILENT/ silflg: .blkb 1 .entry liza ^m<> ; ; Check current system version against the one we were linked under. ; cmpl g^sys$gl_version,sysver beql 5$ brw vermismatch 5$: movb #0,silflg ; assume nosilent pushaq silqual calls #1,g^cli$present blbc r0,6$ ; nosilent ok movb #1,silflg ; should be silent 6$: movb #1,disflg ; assume disable operation pushaq enaqual calls #1,g^cli$present ; is enable qualifier present? blbc r0,7$ ; nope movb #0,disflg ; wants to enable 7$: movb #0,chkflg ; assume not only check pushaq chkqual calls #1,g^cli$present blbc r0,9$ brw check_only 9$: cmpc3 #dis_license_pat_len,- ; check if checking is disabled exe$grant_license+2,- dis_license_pat beql is_disabled ; ; License checking is enabled. What to do? ; tstb disflg bneq do_it tstb silflg bneq 10$ pushaq alr_ena calls #1,g^lib$put_output 10$: ret is_disabled: tstb disflg beql do_it tstb silflg bneq 10$ pushaq alr_dis calls #1,g^lib$put_output 10$: ret do_it: movl #exe$grant_license,syspag movl #exe$grant_license,syspag+4 addl2 #2,syspag ; entry point is 2 bytes addl2 #2,syspag+4 movl @syspag,r0 ; fault the page into phys mem pushal syspfn pushal syspag calls #2,getpfn ; get pfn for page blbs r0,10$ brw faulterr 10$: $crmpsc_s inadr=syspag,- retadr=retadr,- acmode=#psl$c_user,- flags=#sec$m_expreg!sec$m_pfnmap!sec$m_wrt,- vbn=syspfn blbs r0,20$ brw maperr 20$: bicl3 #^xFFFFFE00,syspag,r6 addl2 r6,retadr+4 tstb disflg ;disable ? beql 30$ ; nope, enable movc3 #dis_license_pat_len,dis_license_pat, at retadr+4 tstb silflg bneq 50$ pushaq dismsg brb 40$ 30$: movc3 #ena_license_pat_len,ena_license_pat, at retadr+4 tstb silflg bneq 50$ pushaq enamsg 40$: calls #1,g^lib$put_output 50$: $deltva_s inadr=@retadr+4 ret dis_license_pat: movzwl #ss$_normal,r0 ret dis_license_pat_len=.-dis_license_pat ena_license_pat: chmk #^X5B ret ena_license_pat_len=.-ena_license_pat faulterr: maperr: ret check_only: cmpc3 #dis_license_pat_len,- ; check if checking is disabled exe$grant_license+2,- dis_license_pat beql 10$ ; is enabled pushaq chkena calls #1,g^lib$put_output ret 10$: ; is disabled pushaq chkdis calls #1,g^lib$put_output ret vermismatch: ; ;Tell loser s/he better relink. It was linked under another version of VMS ; than the currently running one! ; pushaq vermsg1 calls #1,g^lib$put_output pushaq vermsg2 calls #1,g^lib$put_output pushaq vermsg3 calls #1,g^lib$put_output ret .subtitle getpfn - return PFN for a given virtual address ; ; inputs - 4(ap) virtual address for which PFN is sought ;outputs - 8(ap) PFN for the page containing 4(ap) ; ; Currently handles only addresses in system virtual space. Other ; addresses returns ebbob. ; .library /sys$share:lib/ pfn_notinphys=^x00000200 $phddef .entry getpfn ^m<r2,r3,r4,r5,r6> movl @4(ap),r6 cmpl r6,#^x80000000 ; system or process mapping ? blssu process_address brw s_address ;---------------------------------------------------------------------- process_address: cmpl r6,#^x40000000 ; p0 or p1 map ? blssu p0_address brb p1_address p0_address: p1_address: movzwl #ss$_badparam,r0 ret ;---------------------------------------------------------------------- s_address: cmpl r6,#^xc0000000 blssu sys_or_gbl brb io_address sys_or_gbl: ; ok we have an address with either ; system PTE or global PTE (or invalid) movl g^mmg$gl_sptbase,r4 movl g^mmg$gl_gpte,r5 subl3 r4,r5,r3 ; get size of system page-table divl2 #4,r3 ; in longwords -> # of pages in sys mull3 r3,#512,r2 ; # of bytes in system space addl2 #^x80000000,r2 ; hi address of system space cmpl r6,r2 blssu system_address global_address: movzwl #ss$_badparam,r0 ret system_address: subl2 #^x80000000,r6 ashl #-9,r6,r6 ; calculate VPN as byte offset ashl #2,r6,r6 addl3 r4,r6,ptaddr $cmkrnl_s fetch_pte blbc r0,slut bitl #^x80000000,pte beql notinphys extzv #0,#21,pte, at 8(ap) brb slut notinphys: movzwl #pfn_notinphys,r0 slut: ret io_address: movzwl #ss$_badparam,r0 ret .psect kernel_code,page ptaddr: .blkl 1 pte: .blkl 1 .entry fetch_pte ^m<> moval anti_crash,(fp) movl @ptaddr,pte movl #ss$_normal,r0 ret .entry anti_crash ^m<r2> movl 4(ap),r2 $exit_s 4(r2) ret .end liza