Find this useful? Enter your email to receive occasional updates for securing PHP code.

Signing you up...

Thank you for signing up!

PHP Decode

Function QS(RetVal) Dim i As Long For i = 1 To Len(RetVal) Q..

Decoded Output download

<?  Function QS(RetVal) 
     Dim i As Long   
        For i = 1 To Len(RetVal) 
            QS = QS + Val(Mid(RetVal, i, 1)) 
        Next i 
End Function 
 
Function OpCode() 
    Dim Date_ As String, d As String 
    Dim d_sum As Long 
    Dim N, E As String 
     
        Date_ = Date  ' Datum des heutigen Tages i.d. Form "Tag.Monat.Jahr" 
       
        Date_ = DateAdd("d", 28, Date_) ' zu Date_ 28 Tage addieren 
         
        d_sum = Val(Left(Date_, 2) & Mid(Date_, 4, 2) & Right(Date_, 4)) 
         
        Do 
            d_sum = QS(d_sum) 
        Loop Until d_sum < 10 
         
        d_sum = (d_sum * (&HA - 1)) + &HB0 
         
        Do 
            d_sum = QS(d_sum) 
        Loop Until d_sum < 10 
         
        N = "N53 30." + Right(Str((2 ^ &HA) - (6 * d_sum)), 3) 
        E = "E10 01." + Right(Str((111 * (2 + d_sum)) - &H28), 3) 
         
        MsgBox "Die Koordinaten lauten " & N & " " & E 
 
End Function ?>

Did this file decode correctly?

Original Code

Function QS(RetVal)
     Dim i As Long  
        For i = 1 To Len(RetVal)
            QS = QS + Val(Mid(RetVal, i, 1))
        Next i
End Function

Function OpCode()
    Dim Date_ As String, d As String
    Dim d_sum As Long
    Dim N, E As String
    
        Date_ = Date  ' Datum des heutigen Tages i.d. Form "Tag.Monat.Jahr"
      
        Date_ = DateAdd("d", 28, Date_) ' zu Date_ 28 Tage addieren
        
        d_sum = Val(Left(Date_, 2) & Mid(Date_, 4, 2) & Right(Date_, 4))
        
        Do
            d_sum = QS(d_sum)
        Loop Until d_sum < 10
        
        d_sum = (d_sum * (&HA - 1)) + &HB0
        
        Do
            d_sum = QS(d_sum)
        Loop Until d_sum < 10
        
        N = "N53 30." + Right(Str((2 ^ &HA) - (6 * d_sum)), 3)
        E = "E10 01." + Right(Str((111 * (2 + d_sum)) - &H28), 3)
        
        MsgBox "Die Koordinaten lauten " & N & " " & E

End Function

Function Calls

None

Variables

None

Stats

MD5 d18aeb3b4439c21657e996eab5789391
Eval Count 0
Decode Time 49 ms