MEC promete apurar vazamento de dados de inscritos do Enem
O MEC (Ministério da Educação) vai apurar de que maneira informações sobre inscritos ao Enem (Exame Nacional do Ensino Médio) dos anos de 2007, 2008 e 2009 ficaram disponíveis na internet. Era possível acessar os número de CPF (Cadastro de Pessoa Física), RG e de inscrição, além do nome da mãe de candidatos inscritos nos anos de 2007, 2008 e 2009.
Essas informações foram retiradas do ar por volta das 17h da terça-feira (3). O MEC foi avisado pelo jornal O Estado de S. Paulo sobre o problema.
O banco de dados é de responsabilidade do Inep, autarquia do ministério responsável pelo Enem. O acesso a essas informações deveria ser restrito às instituições de ensino superior interessadas em utilizar a nota dos inscritos para processos de seleção e vestibulares. Os dados deveriam estar protegidos pela exigência de uma senha das faculdades e universidades.
Segundo a assessoria de imprensa do MEC, um usuário comum dos sites do Inep não chegaria a essas informações facilmente. Apenas quem soubesse como fazer uso técnico desses dados conseguiria acessá-los, caso de escolas e faculdades. Segundo texto do jornal O Estado de São Paulo, a equipe foi informada por técnicos de uma escola de 1º e 2º graus da Grande São Paulo.
Segundo informações obtidas pelo UOL, o MEC vai apurar de que maneira essas informações ficaram acessíveis sem que fosse pedido o login e a senha do usuário.
Antecedentes
Esse é mais um incidente na trajetória do novo Enem, que se tornou prova para ingresso em faculdades e institutos federais no ano passado. Anteriormente, o exame era utilizado como avaliação do desempenho individual e como parâmetro de seleção para o Prouni, programa de concessão de bolsas do governo federal.
O furto dos cadernos de prova do Enem foi descoberto dias antes da data prevista para a aplicação da prova. O calendário teve de ser alterado - e o exame, que seria no começo de outubro, foi transferido para o início de dezembro. Mais de 1,5 milhão de inscritos faltaram ao primeiro dia do Enem em 5 de dezembro. O gabarito da prova foi divulgado com as letras das respostas embaralhadas -- o Inep identificou o erro e publicou novo gabarito com retificações.
Também apresentou problemas o Sisu (Sistema de Seleção Unificada), sistema em que os interessados escolhem as vagas em universidades e institutos federais. Houve muita sobra de vagas entre as chamadas -- o que levou o MEC a mudar as regras antes mesmo de terminar o processo de seleção para o primeiro semestre de 2010.
O MEC alterou o resultado da lista de espera do Sisu que havia sido divulgada em 14 de março. Com isso, estudantes que constavam como aprovados, verificaram posteriormente que não haviam passado. Segundo o MEC, 100% dos problemas foram resolvidos posteriormente.
Fonte: UOL
<% Dim objCDONTS ' Email object Dim strFromName ' From persons' real name Dim strFromEmail, strToEmail ' Email addresses Dim strSubject, strBody ' Message Dim strThisPage ' This page's URL Dim strReferringPage ' The referring page's URL Dim bValidInput ' A boolean indicating valid parameters ' Retrieve this page name and referring page name strThisPage = Request.ServerVariables("SCRIPT_NAME") strReferringPage = Request.ServerVariables("HTTP_REFERER") ' Debugging lines: 'Response.Write strThisPage & "
" & vbCrLf 'Response.Write strReferringPage & "
" & vbCrLf ' Read in and set the initial values of our message parameters strFromName = Trim(Request.Form("txtFromName")) strFromEmail = Trim(Request.Form("txtFromEmail")) strToEmail = Trim(Request.Form("txtToEmail")) strSubject = "www.contee.org.br" strBody = Trim(Request.Form("txtMessage")) ' I set the body message to a message that referenced the page the ' user arrived from. This makes it great if you place a link to it ' from your different articles, but can be weird if people link in ' from other web sites. If strBody = "" Then If strReferringPage = "" Or InStr(1, strReferringPage, "www.contee.org.br", 1) = 0 Then strBody = "" strBody = strBody & "O link abaixo é uma sugestão de leitura: MEC promete apurar vazamento de dados de inscritos do Enem" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu1716.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: MEC promete apurar vazamento de dados de inscritos do Enem" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: MEC promete apurar vazamento de dados de inscritos do Enem" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu1716.asp" & vbCrLf End If End If ' Quick validation just to make sure our parameters are somewhat valid bValidInput = True bValidInput = bValidInput And strFromName <> "" bValidInput = bValidInput And IsValidEmail(strFromEmail) bValidInput = bValidInput And IsValidEmail(strToEmail) ' If valid send email and show thanks, o/w show form If bValidInput Then ' Set up our email object and send the message Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = strFromName & " <" & strFromEmail & ">" objCDONTS.To = strToEmail objCDONTS.Subject = strSubject objCDONTS.Body = strBody objCDONTS.Send Set objCDONTS = Nothing ' Show our thank you message ShowThanksMsg Else If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then Response.Write "Foi encontrado erro no preenchimento. Por favor confira os dados:" & "
" & vbCrLf End If ' Show our information retrieval form ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody End If ' End of page logic... subs and functions follow! %> <% ' Subroutines and Functions that encapsulate some functionality ' and make the above code easier to write... and read. ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function ' I made this a function just to get it out of the ' logic and make it easier to read. It just shows the ' form that asks for the input Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody) ' I use script_name so users can rename this script witout having to change the code. %> <% '
The Message to be sent:
'Subject: < %= strSubject % >
'Body: < %= strBody % >
End Sub ' This just shows our thank you message... probably didn't need to ' be a function, but since I made the form one I figured I'd do this ' for consistency. Sub ShowThanksMsg() %>Sua mensagem foi enviada com sucesso. <% End Sub %>