Return to rsabuild.com CVS log

Up to [PGP] / pgp / vmsbuild

Annotation of pgp/vmsbuild/rsabuild.com, revision 1.1.1.1

1.1       root        1: $!x='f$ver(0)'
                      2: $!
                      3: $!Program:     RSABUILD.COM
                      4: $!
                      5: $!Author:      David G. North, CCP
                      6: $!             1333 Maywood Ct
                      7: $!             Plano, Texas  75023-1914
                      8: $!             (214) 881-1553
                      9: $!             [email protected]
                     10: $!
                     11: $!Date:                94.05.19
                     12: $!
                     13: $!Revisions:
                     14: $!  Who                Date    Description
                     15: $!  D.North    940519  Public Release
                     16: $!
                     17: $!License:
                     18: $!    Ownership of and rights to these programs is retained by the author(s).
                     19: $!    Limited license to use and distribute the software in this library is
                     20: $!    hereby granted under the following conditions:
                     21: $!      1. Any and all authorship, ownership, copyright or licensing
                     22: $!         information is preserved within any source copies at all times.
                     23: $!      2. Under absolutely *NO* circumstances may any of this code be used
                     24: $!         in any form for commercial profit without a written licensing
                     25: $!         agreement from the author(s).  This does not imply that such
                     26: $!         a written agreement could not be obtained.
                     27: $!      3. Except by written agreement under condition 2, and subject to
                     28: $!         condition 5, source shall be freely provided with all binaries.
                     29: $!      4. Library contents may be transferred or copied in any form so
                     30: $!         long as conditions 1, 2, 3, and 5 are met.  Nominal charges may
                     31: $!         be assessed for media and transferral labor without such charges
                     32: $!         being considered 'commercial profit' thereby violating condition 2.
                     33: $!      5. THESE ROUTINES ARE FOR U.S. INTERNAL USE ONLY.  The Author WILL
                     34: $!         NOT BE HELD ACCOUNTABLE FOR _YOUR_ EXPORTING THESE ROUTINES FROM
                     35: $!         THE UNITED STATES.  EXPORT OF THESE ROUTINES FROM THE U.S. TO ANY
                     36: $!         FOREIGN COUNTRY MAY BE A VIOLATION OF ITAR REGULATIONS AND MAY
                     37: $!         SUBJECT YOU TO PROSECUTION BY THE U.S. GOVERNMENT, POSSIBLY RESULTING
                     38: $!         IN YOUR INCARCERATION.
                     39: $!
                     40: $!Extended conditions:
                     41: $!   These routines were designed to build the RSAREF library distributed
                     42: $!   with MIT PGP V2.6, and the MIT PGP V2.6 sources AS DISTRIBUTED.  The
                     43: $!   author explicitly denies any responsibilities regarding your rights to
                     44: $!   posses, to use, or to modify ANYTHING called PGP or RSAREF.  These
                     45: $!   routines essentially 'edit' and compile arbitrary source files provided
                     46: $!   by you.  The content of those source files, and the source files
                     47: $!   resulting from the editing operations are YOUR SOLE RESPONSIBILITY with
                     48: $!   respect to any legal ramifications that may exist.
                     49: $!
                     50: $!Warranty:
                     51: $!   These programs are distributed in the hopes that they will be useful, but
                     52: $!   WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
                     53: $!   or FITNESS FOR A PARTICULAR PURPOSE.
                     54: $!
                     55: $!Revisions:   When       What
                     56: $!             94.05.16   Initial release
                     57: $!
                     58: $!Description:
                     59: $!     Given the presense of appropriately named source files in an
                     60: $!      appropriate adjacent directory ([-.RSAREF.SOURCE]), this procedure
                     61: $!      will create RSAREFLIB.OLB, which may be used by PGPBUILD in the
                     62: $!      construction of a VMS executable file called PGP26.EXE.
                     63: $!
                     64: $ me = f$environment("procedure")
                     65: $ df = f$elem(0,"]",me)+"]"
                     66: $ set def 'df'
                     67: $ src="[-.-.rsaref.source]"
                     68: $ obj="sys$disk:[]"
                     69: $ cflags:=/debug/opt=noinline
                     70: $ set ver
                     71: $ library /create rsareflib
                     72: $!x='f$ver(0)'
                     73: $ call compile desc
                     74: $ call compile digit
                     75: $ call compile md2c
                     76: $ call compile md5c
                     77: $ call compile nn
                     78: $ call compile prime
                     79: $ call compile rsa
                     80: $ call compile r_encode
                     81: $ call compile r_enhanc
                     82: $ call compile r_keygen
                     83: $ call compile r_random
                     84: $ call compile r_stdlib
                     85: $ exit
                     86: $!
                     87: $ compile: subroutine  !p1 is file name
                     88: $ sfile = f$parse("''p1'","''src'","sys$disk:[].c")
                     89: $ ofile = f$parse("''p1'","''obj'","sys$disk:[].obj;")
                     90: $ set ver
                     91: $ cc 'cflags' 'sfile'/object='ofile'
                     92: $ library rsareflib 'ofile'
                     93: $ delete 'ofile'
                     94: $!x='f$ver(0)'
                     95: $ endsubroutine

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.