(PureBasic) AWS Transfer for SFTP (Amazon S3)

Once you've setup your AWS Transfer for SFTP in the AWS Console, interacting with it is no different than any other SSH/SFTP server. AWS will provide a private key in PEM format. It is used for authentication (instead of a password).

For more information, see https://docs.aws.amazon.com/transfer/latest/userguide/getting-started-use-the-service.html

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkSshKey.pb"
IncludeFile "CkSFtp.pb"

Procedure ChilkatExample()

    ; This example assumes the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

    sftp.i = CkSFtp::ckCreate()
    If sftp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Connect to the AWS SFTP server.
    ; Change the domain to your value.
    domain.s = "s-123456df999999fab.server.transfer.eu-west-2.amazonaws.com"
    port.i = 22
    success.i = CkSFtp::ckConnect(sftp,domain,port)
    If success = 0
        Debug CkSFtp::ckLastErrorText(sftp)
        CkSFtp::ckDispose(sftp)
        ProcedureReturn
    EndIf

    ; Load your AWS SFTP private key PEM file..
    sshKey.i = CkSshKey::ckCreate()
    If sshKey.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    keyText.s = CkSshKey::ckLoadText(sshKey,"qa_data/pem/s3_sftp_privateKey.pem")
    If CkSshKey::ckLastMethodSuccess(sshKey) <> 1
        Debug CkSshKey::ckLastErrorText(sshKey)
        CkSFtp::ckDispose(sftp)
        CkSshKey::ckDispose(sshKey)
        ProcedureReturn
    EndIf

    success = CkSshKey::ckFromOpenSshPrivateKey(sshKey,keyText)
    If success = 0
        Debug CkSshKey::ckLastErrorText(sshKey)
        CkSFtp::ckDispose(sftp)
        CkSshKey::ckDispose(sshKey)
        ProcedureReturn
    EndIf

    ; Authenticate with the SSH server using the private key.
    success = CkSFtp::ckAuthenticatePk(sftp,"myUsername",sshKey)
    If success = 0
        Debug CkSFtp::ckLastErrorText(sftp)
        CkSFtp::ckDispose(sftp)
        CkSshKey::ckDispose(sshKey)
        ProcedureReturn
    EndIf

    ; After authenticating, the SFTP subsystem must be initialized:
    success = CkSFtp::ckInitializeSftp(sftp)
    If success = 0
        Debug CkSFtp::ckLastErrorText(sftp)
        CkSFtp::ckDispose(sftp)
        CkSshKey::ckDispose(sshKey)
        ProcedureReturn
    EndIf

    ; Upload from the local file to the SSH server.
    ; Important -- the remote filepath is the 1st argument,
    ; the local filepath is the 2nd argument;
    remoteFilePath.s = "hamlet.xml"
    localFilePath.s = "c:/temp/hamlet.xml"

    success = CkSFtp::ckUploadFileByName(sftp,remoteFilePath,localFilePath)
    If success = 0
        Debug CkSFtp::ckLastErrorText(sftp)
        CkSFtp::ckDispose(sftp)
        CkSshKey::ckDispose(sshKey)
        ProcedureReturn
    EndIf

    Debug "Success."


    CkSFtp::ckDispose(sftp)
    CkSshKey::ckDispose(sshKey)


    ProcedureReturn
EndProcedure