telnet şifresi girme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
AhmetNuri
Üye
Mesajlar: 250
Kayıt: 02 Tem 2007 06:55
Konum: ist
İletişim:

telnet şifresi girme

Mesaj gönderen AhmetNuri » 23 Ağu 2010 09:51

Elimde c# ile yazılmış bir program var. bu program ile telnet üzerinde bir cihaza bağlanıyorum. bunu delphi de indy bileşenleri ile bağlanmayı denedim. bağlandım ve cihaz şifre soruyor. şifre gönderdim kabul etmiyor. hatalı şifre diyor. aşağıda c# ve benim kodu gönderiyorum. bir yerede hata var ama c# ı tam bilmedim için sorunu bulamadım.
c# kodu

Kod: Tümünü seç

 case State.PreLogin:
                    /*
                     * Varsayılan şifre olan 1234'ü yolla.
                     * 
                     * Send default password 1234
                     */
                    string resp = Encoding.ASCII.GetString(m_buffer, 0, recvd);
                    if (resp.EndsWith("Password: "))
                    {
                        Byte[] data = Encoding.ASCII.GetBytes("1234");
                        m_client.GetStream().Write(data, 0, data.Length);
                        m_state = State.Login;
                    }
Delphi Kodu

Kod: Tümünü seç

procedure TfrmTelnetDemo.edtSendCommandKeyPress(Sender: TObject;
  var Key: Char);
var
  i : integer;
  s : string;
begin
if IdTelnetDemo.Connected then
  if (key = #13) then
   begin
    s := edtSendCommand.text;
    for i := 1 to length(s) do
      IdTelnetDemo.SendCh(s[i]);
    IdTelnetDemo.SendCh(#13);
    edtSendCommand.Clear;
    edtSendCommand.SetFocus;
   end;

end;
Ahmet DENİZ

Cevapla