pc1-128.txt

PC1数据加密_解密

PC1-128 bit Encryption\Decryption
PC1-128.DLL
Copyright (C) 2000, Command-1.com

This is our 128-bit implentation of PC1. The algorithm itself also supports 80-bit keys, but in this DLL only the 128-bit key system exists.
For more information regarding this encryption algorithm, please see http://www.multimania.com/cuisinons/pc1/index.html
---

EXPORTS:
 FUNCTION PC1ENC(Command1 As String, ePassword AS STRING, sBuffer AS STRING) AS STRING
 FUNCTION PC1DEC(Command1 As String, ePassword AS STRING, sBuffer AS STRING) AS STRING
     Command1 - ID, must be "command-1.com"
    ePassword - Password used to encrypt\decrypt
      sBuffer - String to encode/decode

--- 

EXAMPLE USAGE: (VB)
  Private Declare Function PC1ENC Lib "pc1-128.dll" (Command1 As String, ePassword As String, sBuffer As String) As String
  Private Sub Main()
   OriginalString$ = "Hello"
   MsgBox "Encrypted = " & PC1ENC("command-1.com", "Password", OriginalString$)
  End Sub

EXAMPLE USAGE: (PB)
  DECLARE FUNCTION PC1ENC LIB "pc1-128.dll" (Command1 AS STRING, ePassword AS STRING, sBuffer AS STRING) AS STRING
  FUNCTION PBMAIN() AS LONG
   OriginalString$ = "Hello"
   MSGBOX "Encrypted = " & PC1ENC("command-1.com", "Password", OriginalString$)
  END FUNCTION 

---
Permission is hereby granted to use this DLL in commercial and non-commercial applications as long as the DLL remains unmodified.
For more info and other free programming resources, see http://www.command-1.com