Imports System
Imports System.Security.Cryptography
Imports System.Text
 
 
Public Class Test
 
	Public Shared Function GetSHA1Hash(ByVal param As String) As String
        Dim _provider As New SHA1CryptoServiceProvider
        Dim _enc As New UTF8Encoding
        Dim _hashed() As Byte = _provider.ComputeHash(_enc.GetBytes(param))
        Return BitConverter.ToString(_hashed).Replace("-", "").ToLower()
    End Function
 
    Public Shared Function GetMD5Hash(ByVal param As String) As String
        Dim _provider As New MD5CryptoServiceProvider
        Dim _enc As New UTF8Encoding
        Dim _hashed() As Byte = _provider.ComputeHash(_enc.GetBytes(param))
        Return BitConverter.ToString(_hashed).Replace("-", "").ToLower()
    End Function
 
	Public Shared Sub Main()
		System.Console.Write(GetSHA1Hash(GetMD5Hash(Console.ReadLine())))
	End Sub
 
End Class