Summary Table
Categories |
Total Count |
PII |
0 |
URL |
0 |
DNS |
0 |
EKL |
0 |
IP |
0 |
PORT |
0 |
VsID |
0 |
CF |
0 |
AI |
0 |
VPD |
0 |
PL |
0 |
Other |
0 |
File Content
{ **************************************************************
Package: XWB - Kernel RPCBroker
Date Created: Sept 18, 1997 (Version 1.1)
Site Name: Oakland, OI Field Office, Dept of Veteran Affairs
Developers: Joel Ivey
Description: SSH tunneling for Plink.exe.
Unit: fPlinkpw
Current Release: Version 1.1 Patch 65
*************************************************************** }
{ **************************************************
Changes in v1.1.65 (HGW 08/05/2015) XWB*1.1*65
1. None.
Changes in v1.1.60 (HGW 09/11/2013) XWB*1.1*60
1. None.
Changes in v1.1.50 (JLI 06/24/2008) XWB*1.1*50
1. Adding use of SSH tunneling as command line option (or property). It
appears that tunneling with Attachmate Reflection will be used within
the VA. However, code for the use of Plink.exe for SSH tunneling is
also provided to permit secure connections for those using VistA
outside of the VA.
************************************************** }
unit fPlinkpw;
interface
uses
{System}
SysUtils, Classes,
{WinApi}
Windows, Messages,
{Vcl}
Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TfPlinkPassword = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fPlinkPassword: TfPlinkPassword;
implementation
{$R *.DFM}
procedure TfPlinkPassword.Button1Click(Sender: TObject);
begin
Close;
end;
end.