Jump to content

SpawNyK

Members
  • Posts

    13
  • Joined

  • Last visited

Recent Profile Visitors

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

SpawNyK's Achievements

Newbie

Newbie (1/14)

10

Reputation

  1. M-am inregistrat de vreo 8 ore ... si tot nu vine link-ul de confirmare ... logat sunt da nu pot sa postez, banuiesc k tre sa vina link-ul ... iar J-A-K este offline pe messenger :/ Banuiesc ca trebuie sa mai astept ...
  2. Thanx, e chiar bun am incercat si nu detecteaza, speram sa tzina ceva
  3. Iti sugerez sa faci exact ce a zis RealitySucks, dar la fel sa te documentezi calumea sa nu cumva sa-l strici
  4. Pana la lvl5 am ajuns cu cunostintele mele, am ajuns si mai sus dar am cautat pe google si am gasit raspunsurile la toate lvl-lurile, sry numai am linkul
  5. Eu va sugerez sa cumparati un cont de STEAM (CS 1.6) pentru ca este destul de ieftin si e pe viata, asta inseamnand sa nu va prinda VAC-ul cu ceva. Cel mai rapid mod de a face rost de STEAM este sa-l cumparati prin SMS, testat si merge chiar foarte bine, mai multe detalii in link. http://www.pgl.ro/forum/showthread.php?t=33168
  6. Si eu am un V360v si iti sugerez Diabolic53MP, documenteaza-te bine inainte sa faci ceva. http://rapidshare.com/files/100522945/Diabolic53MP_v1.4_-MediaViewer.rar.html
  7. Ca sa decodezi fisierele encripate .vbe Se baga codul intr-un .txt, dupa care se schimba extensia in .vbe, se executa si se urmaresc indicatziile mai departe ... option explicit Dim oArgs, NomFichier 'Optional argument : the encoded filename NomFichier="" Set oArgs = WScript.Arguments Select Case oArgs.Count Case 0 'No Arg, popup a dialog box to choose the file NomFichier=BrowseForFolder("Choose an encoded file", &H4031, &H0011) Case 1 If Instr(oArgs(0),"?")=0 Then '-? ou /? => aide NomFichier=oArgs(0) End If Case Else WScript.Echo "Too many parameters" End Select Set oArgs = Nothing If NomFichier<>"" Then Dim fso Set fso=WScript.CreateObject("Scripting.FileSystemObject") If fso.FileExists(NomFichier) Then Dim fic,contenu Set fic = fso.OpenTextFile(NomFichier, 1) Contenu=fic.readAll fic.close Set fic=Nothing Const TagInit="#@~^" '#@~^awQAAA== Const TagFin="==^#~@" '& chr(0) Dim DebutCode, FinCode Do FinCode=0 DebutCode=Instr(Contenu,TagInit) If DebutCode>0 Then If (Instr(DebutCode,Contenu,"==")-DebutCode)=10 Then 'If "==" follows the tag FinCode=Instr(DebutCode,Contenu,TagFin) If FinCode>0 Then Contenu=Left(Contenu,DebutCode-1) & _ Decode(Mid(Contenu,DebutCode+12,FinCode-DebutCode-12-6)) & _ Mid(Contenu,FinCode+6) End If End If End If Loop Until FinCode=0 WScript.Echo Contenu Else WScript.Echo Nomfichier & " not found" End If Set fso=Nothing Else WScript.Echo "Please give a filename" WScript.Echo "Usage : " & wscript.fullname & " " & WScript.ScriptFullName & " <filename>" End If Function Decode(Chaine) Dim se,i,c,j,index,ChaineTemp Dim tDecode(127) Const Combinaison="1231232332321323132311233213233211323231311231321323112331123132" Set se=WSCript.CreateObject("Scripting.Encoder") For i=9 to 127 tDecode(i)="JLA" Next For i=9 to 127 ChaineTemp=Mid(se.EncodeScriptFile(".vbs",string(3,i),0,""),13,3) For j=1 to 3 c=Asc(Mid(ChaineTemp,j,1)) tDecode(c)=Left(tDecode(c),j-1) & chr(i) & Mid(tDecode(c),j+1) Next Next 'Next line we correct a bug, otherwise a ")" could be decoded to a ">" tDecode(42)=Left(tDecode(42),1) & ")" & Right(tDecode(42),1) Set se=Nothing Chaine=Replace(Replace(Chaine,"@&",chr(10)),"@#",chr(13)) Chaine=Replace(Replace(Chaine,"@*",">"),"@!","<") Chaine=Replace(Chaine,"@$","@") index=-1 For i=1 to Len(Chaine) c=asc(Mid(Chaine,i,1)) If c<128 Then index=index+1 If (c=9) or ((c>31) and (c<128)) Then If (c<>60) and (c<>62) and (c<>64) Then Chaine=Left(Chaine,i-1) & Mid(tDecode(c),Mid(Combinaison,(index mod 64)+1,1),1) & Mid(Chaine,i+1) End If End If Next Decode=Chaine End Function Function BrowseForFolder(ByVal pstrPrompt, ByVal pintBrowseType, ByVal pintLocation) Dim ShellObject, pstrTempFolder, x Set ShellObject=WScript.CreateObject("Shell.Application") On Error Resume Next Set pstrTempFolder=ShellObject.BrowseForFolder(&H0,pstrPrompt,pintBrowseType,pintLocation) BrowseForFolder=pstrTempFolder.ParentFolder.ParseName(pstrTempFolder.Title).Path If Err.Number<>0 Then BrowseForFolder="" Set pstrTempFolder=Nothing Set ShellObject=Nothing End Function Nu este facut de mine, doar l-am gasit pe net k mi-a trebuit, banuiesc k multzi stiatzi de el, il postez pentru cine nu stia
  8. Este un troian, daca nu stii ce inseamna asta citeste aici : http://en.wikipedia.org/wiki/Trojan_horse_(computing)
  9. Pacat k nu merge pe 8 si pe 9, putina lume mai ai versiuni mai vechi ... dar asta e ... gj anyway :wink:
  10. chiar marfa ... asta ... mam chinuit ceva si mam blocat la 5 dar pt unu k mine e bine :roll:
  11. Misto ca idee. Am incercat la mine am 2 tel (Nokia 6234 si un Motto v360), si pe unu si pe altu in primul rand k itzi cere confirmare daca vrei userul XXXX sa se connecteze la tine, si chiar daca iam dat tot nu mi-a mers, adik daca dadeam sai vad mesajele sau contactele aprea blank. Oi fi gresit eu pe undeva ? :/
  12. Salut, acesta este primul meu post pe forum, si imi pare rau k tre sa fie cu o problema de a mea, dar nu-i dau de cap. Ce vreau eu sa fac banuiesc ca este simplu, sa schimb icon-ul de la un .exe compliat, sunt eu un noob in astea dar nu sunt prost, inainte sa postez, am cautat pe forum si cu search si manual, m-am uitat in FAQ de pe site, am incercat cu Reshack, merge dar cand vreau sa accesez acel .exe imi da eroare :/, am incercat cu nBinder nu merge :/, am incercat cu inca vreo 2 - 3 bindere luate de pe forum, n-am reusit. Asa ca va rog frumos daca se poate sa-mi datzi si mie o solutie la problema mea. Multumesc anticipat, bafta !!
×
×
  • Create New...