Sub SFTP_Connect_SSHJ(Host As String, User As String, Password As String) As Boolean
Try
' ✅ forza il setup completo di SecurityUtils
Dim secUtils As JavaObject
secUtils.InitializeStatic("net.schmizz.sshj.common.SecurityUtils")
secUtils.RunMethod("getSecurityProvider", Null)
Dim ssh As JavaObject
ssh.InitializeNewInstance("net.schmizz.sshj.SSHClient", Null)
' ✅ accetta host key
Dim verifier As JavaObject
verifier.InitializeNewInstance("net.schmizz.sshj.transport.verification.PromiscuousVerifier", Null)
ssh.RunMethod("addHostKeyVerifier", Array(verifier))
' ✅ specifica la porta (importante nel runtime custom)
ssh.RunMethod("connect", Array(Host, 22))
ssh.RunMethod("authPassword", Array(User, Password))
Dim sftpClient As JavaObject = ssh.RunMethod("newSFTPClient", Null)
sFTP = sftpClient
sshClient = ssh
Return True
Catch
Log("Errore SSHJ: " & LastException)
Return False
End Try
End Sub