(PHP) Bloco de Notas em PHP
Criei uma coisa legal em php que nos permite fazer um pequeno bloco de notas em php :)
Observe o código php:
<?php$arquivo = "arquivo.txt"; // especificar o arquivoif(isset($_POST['texto']) ) // Checar se há algum texto novo para salvar no arquivo{$texto = stripslashes($_POST['texto']); // Poder aceitar aspas$arquivoAberto = fopen($arquivo, "w"); // abrir arquivoif(!$arquivoAberto || !fwrite($arquivoAberto, $texto)) // checar se está tudo certo{echo "Arquivo não salvo !!!<br/>";}else{echo "Arquivo salvo !!!<br/>";}fclose($arquivoAberto); // fechar arquivo}echo "<form name=form method=post>"; // criar formulário para botão de salvar arquivoecho "Digite o texto para salvar no arquivo: <br /><textarea name=texto rows=25 cols=80 style='overflow-x: scroll; overflow-y: scroll'>";echo file_get_contents($arquivo);// imprmir conteúdo do arquivo dentro do text areaecho "</textarea><br/><input type=submit value='Salvar Arquivo' /></form>";?>
Assim faz um simples sistema de editar textos em php :) Espero que apreciem ..
Abraços
(Outros) Gerador de Seguidores Twitter LANÇADO!
EDITADO EM AGOSTO de 2012 Ferramenta obsoleta. Não servirá mais para uso.
(Delphi) Alterar Memory Address (memória)
Saudações! :)
Segue aqui o código:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, tlhelp32, StdCtrls, ExtCtrls;typeTForm1 = class(TForm)Button1: TButton;procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}function GetProcessID(Const ExeFileName: string; var ProcessId: integer): boolean;varContinueLoop: BOOL;FSnapshotHandle: THandle;FProcessEntry32: TProcessEntry32;beginresult := false;FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);FProcessEntry32.dwSize := Sizeof(FProcessEntry32);ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);while integer(ContinueLoop) <> 0 do beginif (StrIComp(PChar(ExtractFileName(FProcessEntry32.szExeFile)), PChar(ExeFileName)) = 0)or (StrIComp(FProcessEntry32.szExeFile, PChar(ExeFileName)) = 0) then beginProcessId:= FProcessEntry32.th32ProcessID;result := true;break;end;ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);end;CloseHandle(FSnapshotHandle);end;procedure TForm1.Button1Click(Sender: TObject);var valorEndereco, retornoEscrita: Cardinal;var processoId, tempProcess: integer;beginif GetProcessID('EXECUTAVEL.exe', tempProcess) thenbeginvalorEndereco := $a; // NOVO VALOR PARA O ENDERÇOprocessoId := OpenProcess(PROCESS_ALL_ACCESS, False, tempProcess);// ========================WriteProcessMemory(processoId, Pointer($00AA6A34), @valorEndereco, Sizeof(valorEndereco), retornoEscrita); // $00AA6A34 em HEXADECIMAL ($ = 0x)// ========================closehandle(processoId);end elsebeginMessageDlg('Abra o programa primeiro', mtwarning, [mbOK],0);end;end;end.
Criadores
Criado por Bruno da Silva
Obs:
GetProcessID (eu modifiquei a partir dela)
Abraços
(Javascript) arrayInArray
Saudações!
Segue a função:
function arrayInArray(hayArray, staArray){var fixString = staArray.toString();for(var key in hayArray) if((fixString.indexOf(hayArray[key])) != -1) {return true;}return false;};
É meio difícil de entender, mas vamos lá
Digamos que eu tenha array1 e array2:
ARRAY1
ELEMENTO 0 -> "A"
ELEMENTO 1 -> "B"
ELEMENTO 2 -> "C"
ARRAY 2
ELEMENTO 0 -> "D"
ELEMENTO 1 -> "O"
ELEMENTO 2 -> "A"
Ele irá retornar TRUE. Pois o elemento 0 e 2 tem os mesmos valores, entenderam? Ele compara valores dentro dela.
Assim podendo criar funções legais. Do tipo:
function haveLowerChar(str)// Checar se tem caracter MINUSCULO na string// Retorna true e false{return arrayInArray((str.split("")), ("abcdefghijklmnopqrstuvwxyz".split("")));}
Viram? Simples, mas eficiente.
Espero que gostem. Abraços
Assinar:
Postagens (Atom)