UDF SSH

[JiBe]

  Hi to all,

 

 

I only am accustomed pas has posted on the forum (coz, I'm french). But I use it a lot.

So first of all, thank you all to participate in the evolution of this wonderful product.

Today is not one day like any other, I myself am decide has posted a UDF that I myself create and developed (there may be some bug) for some months.

So here it is:

This UDF allows to use the SSH protocol very easily in your code.

It uses the syntax as the TCPxxx() function.

Your code will be easier to convert :-).

 

excused my English, I'm French.

 

Example:

 

expandcollapse popup

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.4.0
Author: Joseph Barone 2010-2015

Script Function:
Modele pour l'utilisation de la fonction ssh (plink).

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include
#include
#include
#include
#include
#include "SSH_udf.au3"

_SSHStartup()

Global $butt[6]

$Gui = GUICreate("SSH Console",550,400)
$label1 = GUICtrlCreateLabel("Adresse IP:",10,10,150,20) ; ip
$input1 = GUICtrlCreateInput("",10,25,150,20) ; ip
$label2 = GUICtrlCreateLabel("Tcp port:",170,10,150,20) ; port
$input2 = GUICtrlCreateInput("",170,25,60,20) ; port
$label6 = GUICtrlCreateLabel("Protocol:",240,10,40,20) ; port
$input6 = GUICtrlCreateInput("ssh",240,25,60,20) ; port
$butt[0] = GUICtrlCreateButton("Connect0",310,5,80,20,$BS_DEFPUSHBUTTON)
$butt[1] = GUICtrlCreateButton("Connect1",390,5,80,20)
$butt[2] = GUICtrlCreateButton("Connect2",470,5,80,20)
$butt[3] = GUICtrlCreateButton("Connect3",310,25,80,20)
$butt[4] = GUICtrlCreateButton("Connect4",390,25,80,20)
$butt[5] = GUICtrlCreateButton("Connect5",470,25,80,20)

$Checkbox = GUICtrlCreateCheckbox("RSA, Fingerprint, Alert AutoValidate", 330, 45, 205, 25)

$label4 = GUICtrlCreateLabel("Login:",10,45,150,20) ; login
$input4 = GUICtrlCreateInput("",10,60,150,20) ; login
$label5 = GUICtrlCreateLabel("Mot de passe:",170,45,150,20) ; password
$input5 = GUICtrlCreateInput("",170,60,150,20,$ES_PASSWORD) ; password

$label3 = GUICtrlCreateLabel("Commande a envoyer:",10,85,150,20) ; send command
$input3 = GUICtrlCreateInput("",10,100,310,20) ; send commande vers l'hote
$butt2 = GUICtrlCreateButton("Send",330,100,80,20,$BS_DEFPUSHBUTTON)
GUICtrlSetState($butt2,$GUI_DISABLE)

$edit = GUICtrlCreateEdit("",10,130,530,260,$WS_VSCROLL);,$WS_DISABLED))

GUISetState()


Global $ConnectedSocket[6] = [-1,-1,-1,-1,-1,-1]
Global $msg, $recv, $ret

; GUI Message Loop
;==============================================
While 1
$nmsg = GUIGetMsg()

If $nmsg = $GUI_EVENT_CLOSE Then ExitLoop

;;; connect part:
$b = 0
While 1
If $nMsg = $butt[$b] Then
If GUICtrlRead($butt[$b]) = "Connect"&$b Then
_SSHParametreSet("yesall",GUICtrlRead($Checkbox))
_SSHParametreSet("protocol",GUICtrlRead($input6))
_SSHParametreSet("login",GUICtrlRead($input4))
_SSHParametreSet("passwd",GUICtrlRead($input5))
$ConnectedSocket[$b] = _SSHConnect(GUICtrlRead($input1),GUICtrlRead($input2))
If $ConnectedSocket[$b] = 0 Then
MsgBox(0,"Erreur", "Impossible de ce connecter!!")
Else
GUICtrlSetData($butt[$b],"Close"&$b
GUICtrlSetState($butt2,$GUI_ENABLE)
EndIf
DisplayArray($_config)
ConsoleWrite("nb config:"&$_nbconf&@CRLF)
Else
_SSHCloseSocket($ConnectedSocket[$b])
GUICtrlSetData($butt[$b],"Connect"&$b
GUICtrlSetState($butt2,$GUI_DISABLE)
DisplayArray($_config)
ConsoleWrite("nb config:"&$_nbconf&@CRLF)
EndIf
EndIf

;;; send part:
If $nMsg = $butt2 Then
$ret = _SSHSend( $ConnectedSocket[$b] , GUICtrlRead($input3)&@crlf)
GUICtrlSetData($input3,"")
GUICtrlSetState($input3,$GUI_FOCUS)
EndIf


;;; receive part:
$recv = _SSHRecv( $ConnectedSocket[$b])
If $recv <> "" Then
GUICtrlSetData($edit, GUICtrlRead($edit) & $recv )
EndIf
GUICtrlSendMsg($edit, $EM_SCROLL, $SB_PAGEDOWN, 0)
$b += 1
If $b = UBound($butt) Then ExitLoop
WEnd

WEnd

_SSHCloseSocket($ConnectedSocket)
_SSHShutdown()

Exit

Func DisplayArray($array)
$i = 0
$j = 0
if UBound($array,1) = 0 Then Return
While 1
ConsoleWrite("(["&UBound($array,1)&"]["&UBound($array,2)&"]) ")
While 1
ConsoleWrite("["&$j&"]"&$array[$i][$j]&" ")
$j += 1
if UBound($array,2)<=$j Then ExitLoop
WEnd
ConsoleWrite(@CRLF)
$i += 1
$j = 0
if UBound($array,1)<=$i Then ExitLoop
WEnd
EndFunc

  

I join with UDF version of modified putty myself.  🙂 LoL

but, it is not used with the UDF, it is included in the UDF.

 

putty-04012015- 92453+lic.zip

ssh_udf.zip

New version (contains the latest version of plink (0.74) edited by http://jakub.kotrla.net/putty/) 

ssh_udf-v2.zip

Same as the v2 but supports all putty/plink settings

ssh_udf-v2.1.zip

Edited March 23, 2021 by JiBe
Added code tags

[mLipok]

Thanks for sharing.

mLipok

[czyt]

Thanks for sharing~`

[lbsl]

A nice share, the only question i have:Is there a way to turn off the automatic password responder after logging on?
I have to fill in a secondary password to enable advanced level and this password is not the same as the logon-password.

 

[MimiOne]

Dear fellow citizen.
There are at least a bug:  

Impossible de ce connecté!!     >>> Impossible de se connecter !!

Commande a envoyé:   >> Commande à envoyer

Ce sera déjà plus "propre"

Kind regards

[JiBe]

A nice share, the only question i have:Is there a way to turn off the automatic password responder after logging on?
I have to fill in a secondary password to enable advanced level and this password is not the same as the logon-password.

 

Yes, simply do not fill in the login and password.

[lbsl]

Yes, simply do not fill in the login and password.

I did that, however that unfortunately does not work. After filling in the login data manually, the password will be reused whenever the phrase "Password:" comes back in the buffer. Hence the question how do i toggle off the auto responder completely so that nothing is triggered for that phrase.

login as: Using keyboard-interactive authentication.
Password: 

Router line 2 

Router>enable
Password: 
% Access denied

Router>

 

[JiBe]

Hi lbsl;

 

Your problem is the operation of plink.

_SSHParametreSet ("login", GUICtrlRead ($input4))

_SSHParametreSet ("passwd", GUICtrlRead ($input5))

When you fills both of these parameters, plink will parsed messages login and password and answer. It cannot be the prevented.

 

to avoid the problem, should you send from the code the login and the password.

 

viewing I modified the example so that plink manages more authentication.

 

excuse my English, I'm French!

ssh2.au3

[lewisg]

Do you think using this UDF and a POP3 UDF (or IMAP) I'd be able to retrieve GMail messages? 

[JiBe]

Hi lewisg,

 

No, the ssl encryption is not implemented in the same way.

Messaging, to do with stunnel (also not too difficult to manage with Autoit)

sorry.

[Chamlien]

very nice. if this udf can turn on ssh tunnel, i will be very powerful.

[JiBe]

Hi Chamlien,

It can, but it's a little more difficult to set up :-)

 

Single Port Redirerction

$__PortForwardings = "L8080=192.168.0.200:80"

 

Dynamic port forwarding (used for example with Proxifier)

$__PortForwardings = "D3128="

Edited July 11, 2017 by JiBe

[nacerbaaziz]

thank you very much

[g0gcd]

Thanks for the UDF. It has really helped me implement an SSH interface with my modem very quickly. My previous code used TelNet and the SSH UDF seems so much more secure.

I have a question:

My router responds really slowly to _SSHConnect(). It returns a non-zero channel number quickly but the following _SSHRecv() function does not detect a prompt for several seconds. This is usually 4 to 6 seconds but could be over 30 seconds. I use a timer to abandon the attempt to communicate at 30 seconds.

Several suggestions point to this being an issue with 'ReverseDNS' and suggest setting some options, for example 'UseDNS no'. Where are these stored in the UDF?

I am trying to extract line performance statistics from the modem every five minutes and have the AutoIT program set as a scheduled windows task. Would I be better setting up a channel and leaving it open - then calling for the log every five minutes?

Any help gratefully received. 

 

Thanks

John

expandcollapse popup

; Start the service and register OnAutoItExit to be called when the script is closed, to ensure that the session is closed correctly.
_Log("Opening Communications")
_SSHStartup()
OnAutoItExitRegister("OnAutoItExit")

;Connect to modem/router telnet port
_Log("Connecting")
Local $hTimer = TimerInit()
Local $RouterIP = _SSHConnect($DeviceIP, "22", $DeviceUserName, $DevicePassword)

;Check that modem/router is responding
If $RouterIP = 0 Then
    $Connected = "No"
    _Log("Failed to connect")
Else
    $Connected = "Yes"
    _Log("Connected: (" & $RouterIP & ")")

;    Wait for prompt
    $i = 0
    _SSHSend($RouterIP, "" & @CRLF)
    Do
        Sleep(1000)
        $TCPRecv = _SSHRecv($RouterIP, "5000")
        FileWriteLine($DlyFilename, @MDAY & "/" & @MON & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "." & @MSEC & ";" & $TCPRecv )
        _Log($TCPRecv)
        $i = $i + 1
    Until StringInStr($TCPRecv,">") > 0 OR $i = 30 

    If StringInStr($TCPRecv,">") > 0 Then
        $LoggedIn = "Yes"
        _Log("Logged in at " & $i & " seconds.")

;        Send WAN SHOW command
        Sleep(1000)
        _SSHSend($RouterIP, "wan show" & @CRLF)
        Sleep(100)
        $TCPRecv = _SSHRecv($RouterIP, "5000")

..etc

        EndIf
    Else
        $LoggedIn = "No"
        _Log("Responding, but too slow in accepting login. Gave up at " & $i & " seconds.")
    EndIf

   _ProcessStats()

EndIf

_SSHCloseSocket($RouterIP)
_SSHShutDown()

 

Edited March 21, 2021 by Melba23
Added code tags

[Melba23]

g0gcd,

Welcome to the AutoIt forums. When you post code in future please use Code tags - see here how to do it.  Then you get a scrolling box and syntax colouring as you can see above now I have added the tags. Thanks in advance for your cooperation.

M23

[JiBe]

Hi g0gcd,

Yes, I found this connection time from 4 to 5 sec.
I have never made the connection with a DNS resolution deadline.
For me, this deadline is SSH trading time
Maybe I'm wrong. 
However, if you know the putty/plink setting to prevent DNS resolution, 

You can overload plink settings using the _SSHParametreSet ($_NameParameter, $_Value) feature
Before calling the function _SSHConnect ($_IPAddr, $_port -22, $_login , "", $_passwd - "")

Just for the record, I have not updated this UDF.
In the state, it uses an old version of plink.
It contains flaws that have not been fixed, so take precautions.

I didn't update it, because I would have to adapt the changes to the original Putty/plink code.
And I don't have too much time for that. Also, I feel that AutoIT is a bit finished, there is no new version for a long time.

In terms of the added options, there are two.
1 - the ability to autologin with the password hidden in the spot manager.
2 - the ability to respond yes automatically to new connections.

I hope I understand your question and answered it correctly.

PS: I hope my English is readable, I'm French. 
Jibe

[g0gcd]

Melba23,

Apologies, brain fade. To mis-paraphrase your tagline "I'm old too!"

Thanks for correcting it for me.

Jibe

Thank you for responding very quickly. I have now pinned down the problem to my modem/router not having a matching cipher (not the reverse DNS issue that I thought it was). I need to adjust the connect string to get something like: ssh -c 3des-cbc admin@192.168.1.254. This works using OpenSSH and PuTTY; I just need to figure out where to tweak the parameter set in the UDF to get the cipher definition inserted. I currently have PuTTY and PLink references open and will look more deeply into _SSHParametreSet().

I understand your comments about AutoIT. It's an extremely useful tool and it's probably as near perfect as it can get, so I'm not surprised that it's not been revised recently.  Thank you once again for solving 95% of my problem. You have saved me a lot of time.

I may just take the time to update the embedded PLink version, as that may help someone else in the future. I can see how you've done that and, if I get around to it, I'll mail the revised code block for you to patch in.

Aussi,

Votre langue anglaise est bien meilleure que mon français! Je n'ai aucun problème à te comprendre.

Best wishes

John

G0GCD

 

 

[JiBe]

Hi g0gcd,

for your need for a connection chain, I added in the v2.1 all the parameters accessible via Plink/Putty.

For your use, I think you should get back the putty edition that I site. Make your setup with putty and save it. you will have a sessions directory in which your session is backed up, this will give you the settings used with _SSHParametreSet()

http://jakub.kotrla.net/putty/portable_putty_074_0.16.0_all_in_one.zip

Example:

_SSHParametreSet("HostKey", "ed25519,ecdsa,rsa,dsa,WARN")
_SSHParametreSet("KEX", "ecdh,dh-gex-sha1,dh-group14-sha1,rsa,WARN,dh-group1-sha1")
_SSHParametreSet("Cipher", "aes,chacha20,3des,WARN,des,blowfish,arcfour")

for English, thank you Bing Trad 🙂

JiBe