read_file_by_lines(Name, Mode, Array) ->
{ok, Device} = file:open(Name, Mode),
read_each_line(Device, []).
read_each_line(Device, Accum) ->
case io:get_line(Device, "") of
eof -> file:close(Device), array:from_list(lists:reverse(Accum));
Line -> read_each_line(Device, [Line | Accum])
end.write_file_by_lines(Name, Mode, Array) ->
{ok, Device} = file:open(Name, Mode),
lists:foreach(
fun(Line) -> io:write(Device, Line)
end,
array:to_list(Array)),
file:close(Device).http://my.site/login.php?name=user' OR TRUE OR '1'='1&password="WHERE `user` = '".$_GET['name']}."' AND `pass` = '".md5($_GET['password'])."'"WHERE `user` = 'user' OR TRUE OR '1'='1' AND `pass` = 'd41d8cd98f00b204e9800998ecf8427e'SELECT `s1`.`id`, `s1`.`city`, `s1`.`contacts`, `s2`.`count`
FROM `spec` AS `s1`
LEFT JOIN (SELECT `contacts`, COUNT(`contacts`) AS `count`
FROM `spec`
GROUP BY `contacts`)
AS `s2` USING (`contacts`)@_main proc near
push ebp
mov ebp,esp
; short int A[20];
add esp,-40
push ebx
; asm lea eax, A;
lea eax, word ptr [ebp-40]
; return A[0];
movsx eax,word ptr [ebp-40]@_main proc near
push ebp
mov ebp,esp
; short int *A = new short int[20];
add esp,-4
push ebx
push 40
call @$bnwa$qui
pop ecx
mov dword ptr [ebp-4],eax
; mov eax, A;
mov eax, dword ptr [ebp-4]
; return A[0];
mov eax,dword ptr [ebp-4]
movsx eax,word ptr [eax]