HTTPS/Authenticated: Difference between revisions

The goal of this task is to demonstrate [[HTTPS request]]s with authentication.

Implementations of this task should not use client certificates for this: that is the subject of [[Client-Authenticated HTTPS Request|another task]].

 

=={{header|AutoHotkey}}==

{{libheader|iweb}}

{{libheader|COM}}

pwb := iWeb_newGui(0, 0, 1000, 800)

iWeb_nav(pwb, "http://www.facebook.com/login.php?ref=pf")

#Include iweb.ahk

#Include COM.ahk

 

=={{header|BaCon}}==

 

website$ = "website.com"

CLOSE NETWORK conn

 

 

=={{header|C}}==

{{libheader|libcurl}}

#include <stdlib.h>

#include "curl/curl.h"

}

return EXIT_SUCCESS;

 

=={{header|C sharp|C#}}==

{{works with|C sharp|3.0}}

 

using System;

using System.Net;

}

}

 

=={{header|Clojure}}==

{{libheader|clj-http}}

 

 

=={{header|Delphi}}==

 

{$APPTYPE CONSOLE}

lIOHandler.Free;

end;

 

=={{header|Go}}==

The task solution is really the client program, but to test it I wrote a server and created a custom certificate. I won't describe the certificate, but this is the server:

 

import (

http.HandleFunc("/", hw)

log.Fatal(http.ListenAndServeTLS(":8080", "cert.pem", "key.pem", nil))

It is a "Hello world" server, but over TLS and with basic authentication required on the Get. Errors are logged to aid client debugging.

 

The client:

 

import (

}

fmt.Println(string(b))

 

=={{header|Haskell}}==

Example uses the [https://hackage.haskell.org/package/req <tt>req</tt>] and [https://hackage.haskell.org/package/aeson <tt>aeson</tt>] packages:

 

 

module Main (main) where

jsonResponse

(basicAuth "someuser" "somepassword")

 

=={{header|Julia}}==

An example using HTTP (see the source for HTTP.jl for the code below ) to access and play a song:

using HTTP, HTTP.IOExtras, JSON, MusicProcessing

HTTP.open("POST", "http://music.com/play") do io

end

end

 

=={{header|Kotlin}}==

 

import java.net.Authenticator

println(line)

}

 

=={{header|Lasso}}==

local(x = curl('https://sourceforge.net'))

#x->set(CURLOPT_USERPWD, #username + ':' + #password)

local(y = #x->result)

 

=={{header|LiveCode}}==

HTTP Basic Auth as part of url

libURLFollowHttpRedirects true

libURLSetSSLVerification true

put URL "https://user:passwd@example.basicauth.com/" into response

put response

 

You can also set the headers for the basic auth requests

libURLFollowHttpRedirects true

libURLSetSSLVerification true

put URL "https://example.basicauth.com" into response

put response

 

=={{header|Lua}}==

{{libheader|lua-requests}}

 

local requests = require('requests')

local auth = requests.HTTPBasicAuth('admin', 'admin')

})

io.write(string.format('Status: %d', resp.status_code))

 

{{out}}

Status: 200

</pre>

 

=={{header|Nim}}==

{{libheader|OpenSSL}}

 

 

const

let headers = newHttpHeaders({"Authorization": "Basic " & base64.encode(User & ":" & Password)})

let client = newHttpClient(headers = headers)

 

=={{header|Perl}}==

{{libheader|LWP}}

my $ua = LWP::UserAgent->new;

my $netloc = 'http://www.buddhism-dict.net/cgi-bin/xpr-dealt.pl:80';

passwd => 'YYYYYY',

'.persistent' => 'y', # tick checkbox

 

=={{header|Phix}}==

Exactly the same as the [[HTTP#Phix]] task.

You can of course use curl_easy_setopt(curl,CURLOPT_USERPWD,"user:password") rather than embed that in the url.

 

=={{header|PicoLisp}}==

(in (list 'curl "-u" (pack User ': Pass) Url)

(while (line)

=={{header|PowerShell}}==

{{trans|C#}}

# credentials of current user:

$client.Credentials = [Net.CredentialCache]::DefaultCredentials

# $client.Credentials = [System.Net.NetworkCredential]::new("User", "Password")

$data = $client.DownloadString("https://example.com")

=={{header|Python}}==

{{works with|Python|2.4 and 2.6}}

'''Note:''' You should install '''''mechanize''''' to run code below. Visit: http://wwwsearch.sourceforge.net/mechanize/

 

# -*- coding: utf-8 -*-

 

 

response = br.submit()

 

{{libheader|Requests}}

{{works with|Python|2.7, 3.4–3.7}}

 

username = "user"

response = requests.get(url, auth=(username, password)

 

 

=={{header|Racket}}==

#lang racket

 

(for ([l (in-port read-line (get-pure-port (string->url "https://www.google.com/")))])

(displayln l))))

 

=={{header|Raku}}==

Used here to connect to my local wireless router to a page that is password protected. Obviously not going to be generally publicly accessible but should be easily adaptable to other sites / devices.

 

 

my $username = 'username'; # my username

$ua.auth( $username, $password );

my $response = $ua.get: $address;

 

=={{header|Ruby}}==

require 'net/http'

 

request.basic_auth('username', 'password')

http.request request

 

=={{header|Run BASIC}}==

<CENTER><TABLE CELLPADDING=0 CELLSPACING=0 border=1 bgcolor=wheat>

<TR><TD colspan=2 bgcolor=tan align=center>LOGIN</TD></TR>

 

[exit]

[[File:ClientAuthorizationRunBasic.png]]

 

=={{header|Rust}}==

extern crate reqwest;

 

println!("{}", body);

}

{{out}}

<pre>

 

=={{header|Scala}}==

 

import javax.net.ssl.HttpsURLConnection

new BufferedSource(con.getInputStream).getLines.foreach(println(_))

 

 

=={{header|Sidef}}==

 

var mech = %s'WWW::Mechanize'.new(

'login' => 'XXXXXX',

'passwd' => 'YYYYYY',

 

=={{header|Tcl}}==

{{tcllib|base64}}

Uses the [http://tls.sourceforge.net Tls] package.

package require tls

http::register https 443 ::tls::socket

# Now as for conventional use of the “http” package

set data [http::data $token]

 

=={{header|Visual Basic}}==

{{works with|VBA|6.5}}

{{works with|VBA|7.1}}

' in the "references" dialog of the IDE, check

' "Microsoft WinHTTP Services, version 5.1" (winhttp.dll)

HttpReq.Send

Debug.Print HttpReq.ResponseText

 

=={{header|Wren}}==

{{libheader|libcurl}}

An embedded program so we can ask the C host to communicate with libcurl for us.

 

var CURLOPT_URL = 10002

return

}

<br>

We now embed this in the following C program, compile and run it.

 

#include <stdio.h>

WrenVM* vm = wrenNewVM(&config);

const char* module = "main";

char *script = readFile(fileName);

WrenInterpretResult result = wrenInterpret(vm, module, script);

free(script);

return 0;

 

=={{header|zkl}}==

Using cURL to do the heavy lifting, get a XML list of computers connected to my router.

zkl: var data=ZC().get("http://usr:pw@192.168.1.1/computer_list.xml")

L(Data(1,049),121,0)

{{out}}

<pre>

{{omit from|Brainf***}}

{{omit from|Commodore BASIC|Does not have network access}}

{{omit from|Inform 7|Does not have network access.}}

{{omit from|Locomotive Basic|Does not have network access.}}