Beiträge von Feklo

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Drawing
Imports System.IO
Imports System.Net
Imports System.Runtime.CompilerServices
Imports System.Text
Imports System.Threading
Imports System.Windows.Forms
Imports System.Security.Cryptography


Public Class Form1


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        MsgBox(Fonction1)
    End Sub


    Private Function Fonction1() As String
        Dim str As String
        Dim time As DateTime
        Dim minute As Integer
        Dim str2 As String
        Dim str3 As String
        Dim num2 As Long
        Dim utcNow As DateTime
        Dim strArray As String()
        Dim time3 As DateTime
        Dim flag As Boolean
        Dim str4 As String
        Try
            utcNow = DateTime.UtcNow
            minute = 0
            str = "Test"
            flag = ((utcNow.Minute Mod 5) <> 0)
            If flag Then
                minute = (utcNow.Minute - (utcNow.Minute Mod 5))
            Else
                minute = utcNow.Minute
            End If
            str3 = ""
            flag = (minute.ToString.Length = 1)
            If flag Then
                str3 = Convert.ToString(0)
            Else
                str3 = minute.ToString
            End If
            strArray = New String() {Convert.ToString(utcNow.Day), "/", Convert.ToString(utcNow.Month), "/", Convert.ToString(utcNow.Year), " ", Convert.ToString(utcNow.Hour), ":", str3, ":00"}
            time = DateTime.Parse(String.Concat(strArray))
            time3 = DateTime.Parse("01/01/1970 00:00:00")
            num2 = (time.Ticks - time3.Ticks)
            num2 = CLng(Math.Round(CDbl((CDbl(num2) / 10000000))))


            str2 = Fonction3((num2.ToString & str))
            str4 = str2
        Catch exception1 As Exception
            'UnhandledException.m00006b(exception1, New Object() {str, time, minute, str2, str3, num2, utcNow, strArray, time3, flag, Me})
            Throw
        End Try
        Return str4
    End Function


    Private Shared Function Fonction2(ByVal p0 As Byte()) As String
        Dim str As String
        Dim builder As StringBuilder
        Dim num As Integer
        Dim num2 As Integer
        Dim num3 As Integer
        Dim str2 As String
        Try
            builder = New StringBuilder(p0.Length)
            num2 = (p0.Length - 1)
            num = 0
            GoTo Label_0035
Label_0017:
            builder.Append(p0(num).ToString("X2"))
            num += 1
Label_0035:
            num3 = num2
            If (num <= num3) Then
                GoTo Label_0017
            End If
            str = builder.ToString.ToLower
            str2 = str
        Catch exception1 As Exception
            'UnhandledException.m000070(exception1, str, builder, num, num2, num3, p0)
            'Throw
        End Try
        Return str2
    End Function


    Public Shared Function Fonction3(ByVal p0 As String) As String
        Dim buffer As Byte()
        Dim bytes As Byte()
        Dim str As String
        Dim provider As MD5CryptoServiceProvider
        Dim str2 As String
        Try
            provider = New MD5CryptoServiceProvider
            bytes = Encoding.Default.GetBytes(p0)
            buffer = provider.ComputeHash(bytes)
            provider.Clear()
            str = Fonction2(buffer)
            str2 = str
        Catch exception1 As Exception
            'UnhandledException.m00006f(exception1, buffer, bytes, str, provider, p0)
            Throw
        End Try
        Return str2
    End Function
 
End Class