Return to rsabuild.com CVS log

Up to [PGP] / pgp / vmsbuild

Annotation of pgp/vmsbuild/rsabuild.com, revision 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.